Déclaration de cas avec des opérateurs logiques (< > =, etc) en Pascal

Question

J'ai des difficultés à faire ce travail. Apparemment, je ne peux pas utiliser> ou < dans la phrase de cas, y a-t-il une solution de contournement pour cela? Merci!

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; 

Plus lisible que if ... else if ... else? Tu décides.

Answer 2

N'utilisez pas de boîtier alors, pourquoi ne pas utiliser si?

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;