case of + сравнение чисел Опции

[compiler]

Добрый день!
как можно(если можна) сравнить 2 числа с помощью case of.
заранее благодарен.

[volvo]

наверно надо создавать свой объект...

var a, b: double;
begin
  a := 23.4; b := 23.4;

  case byte((a - b) > 0) + 2 * byte((a - b) < 0) of
     0: writeln('a = b');
     1: writeln('a > b');
     2: writeln('a < b');
  end;
end.

[compiler]

begin
  ...
end.

спасибо

собственно еще что лучше писать через if или case, как показал volvo, с точки зрения стиля...

Сообщение отредактировано: compiler - 28.04.2007 23:21