Pascal中逻辑运算符（< > =等）的语句声明

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更具可读性？你决定。

Answer 2

不要用例然后，为什么不使用if？

if num = 0 then 
     cont_0 := cont_0 + 1; 
if num > 0 then 
BEGIN 
     cont_pos := cont_pos + 1; 
     sum_pos := sum_pos + num; 
END 
if num < 0 then 
     sum_neg := sum_neg + num;