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

[compiler]

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

[volvo]

Можно:

var a, b: double;
begin
  a := 23.2; b := 23.4;
  case byte((a - b) > 0) of
     0:
     case byte((a - b) < 0) of
       1: writeln('a < b');
       0: writeln('a = b');
     end;


     1: writeln('a > b');
  end;
end.

Только зачем?

[compiler]

здорово было бы если можно было написать

var a, b: double;
begin
  a := 23.2; b := 23.4;
  case (a сравн b)  of
     0:writeln('a > b');
     1: writeln('a < b');
     2: writeln('a = b');
   end; 
end.

читабильно (по-крайне мере для меня)... наверно надо создавать свой объект... но тогда это будет не понятно другим..

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

[Malice]

здорово было бы если можно было написать

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

ps Не успел

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