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;