Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 177256
14.03.2010, 20:46
0.00 руб.
0 2 1
Компьютеры Программирование
Здравствуйте!
Найти max{min(a, b) , min(c, d)}

Обсуждение

Неизвестный
14.03.2010, 21:06
общий
это ответ
Здравствуйте, Евгений [eXill@nD] Малясёв .
Это просто, "один в один", решается с помощью функций. Код программы в приложении, а здесь пример окна вывода
Код:
Введите четыре числа (a, b, c, d):
1 2 3 4
max(min(a,b), min(c,d)) =     3.0000


WriteLn('max(min(a,b), min(c,d)) = ', max(min(a,b), min(c, d)):10:4);
Определяет формат вывода числа: использовать под вывод числа 10 символов, из низ 4 - числа после запятой

Приложение:
function min(a, b: Real): Real;
begin
if a < b then min :=a
else min := b
end;

function max(a, b: Real): Real;
begin
if a > b then max := a
else max := b
end;

var
a, b, c, d: Real;
BEGIN
WriteLn('Введите четыре числа (a, b, c, d):');
ReadLn(a, b, c, d);
{Числа можно вводить через пробел}
WriteLn('max(min(a,b), min(c,d)) = ', max(min(a,b), min(c, d)):10:4);
END.
5
давно
Евгений [eXill@nD] Малясёв
Профессионал
2405
441
14.03.2010, 21:15
общий
Спасибо!!!! а можно еще сделать блок схему?;)
Форма ответа