Страница 1 из 1
Арифметика. Функции.
Добавлено: 14 апр 2009, 15:48
spankyham
Уважаемые специалисты, прошу помочь решеить следующую задачу:
Даны три числа x, y, z. Вычислить S = min(z, max(y, x)).
[*censored*]
Re: Задача на Паскаль
Добавлено: 14 апр 2009, 18:01
Naeel Maqsudov
Код: Выделить всё
function max(x,y:real):real;
begin
if x>y then max:=x else max:=y;
end;
function min(x,y:real):real;
begin
if x<y then min:=x else min:=y;
end;
var
x,y,z:real;
begin
write('введите x, y, z через пробел:');readln(x,y,z);
writeln('S=',min(z, max(y, x)));
end.
Добавлено: 14 апр 2009, 23:04
spankyham
спасибо =) только мне уже на другом форуме помогли разобраться с этой задачкой, решение сходится )