在Pascal中使用逻辑运算符(<> =等)的case语句

Question

我无法完成这项工作.显然,我不能使用>或<在案例句中,是否有解决方法？谢谢!

case num of
    0:
        begin
            cont_0 := cont_0 + 1;
        end;
    > 0:
        begin
            cont_pos := cont_pos + 1;
            sum_pos  := sum_pos + num;
        end;
    < 0:
        begin
            sum_neg := sum_neg + num;
        end;  
    else;
end;

Answer 1

case Sign(num) of
    -1: ... 
     0: ...
     1: ...
end;

比可读性更强if ... else if ... else？你决定.