case - 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？あなたが決める。

Answer 2

case then を使用しないでください。なぜ 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;