Консультация № 136537
12.05.2008, 20:29
0.00 руб.
0 1 1
даны действительные числа x, y, z. получить max(x,y,z) и min (x,y,z)
язык turbo pascal

Обсуждение

Неизвестный
12.05.2008, 20:58
общий
это ответ
Здравствуйте, Saske!
Программа в приложении. Функции max и min возвращают соответственно максимальное и минимальное значения из двух указанных чисел. Далее с их помощью минимальное из первых двух чисел сравнивается с третьим числом и выводится результат.
Пишите, если будут вопросы.

Удачи!

Приложение:
function max(a,b:real):real;begin if a >= b then max := a else max := b;end;function min(a,b:real):real;begin if a <= b then min := a else min := b;end;var x,y,z : real;begin WriteLn(‘Input x,y,z:‘); ReadLn(x,y,z); writeln(‘max:‘,max(max(x,y),z)); writeln(‘min:‘,min(min(x,y),z)); ReadLn;end.
Форма ответа