Добрый день!
как можно(если можна) сравнить 2 числа с помощью case of.
заранее благодарен.
{♂☺☺☺☻☺☺☺♂}
case (x1<x2) of
true:{Если верно}
else {в противном случае}
{♂☺☺☺☻☺☺☺♂}
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.
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.
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.