Предмет: Информатика, автор: PoTuK00

Найти экстремиум, составив разветвляющуюся задачу
x=max(max(a,b)+min(b,c),b+d)

Аноним: А зачем тут какое-то "ветвление" ? Пример неудачной постановки задачи.

PoTuK00: используя технологию структурного программирования разработать разветвляющуюся программу для решения задачи поиска экстремума. - Так выглядит полное задание

Аноним: Вот и говорю, что глупо. Max и Min в современном Паскале - встроенные функции и нечего тут ветвить

PoTuK00: В задании еще сказано, что надо использовать управляющие структуры "Выбор" и "Обход"

Аноним: Экран обновите, я там скрин прицепил

Аноним: ЗАЧЕМ??? И где использовать? Ваше выражение просто пишется одной строкой, фактически переписывается из формулы.

Аноним: Вот если бы было сказано, что функции max и min запрещено использовать... другое дело

PoTuK00: Откуда я знаю зачем :) Такое задание, надо показать преподу, что у умею пользоваться структурами этими и составлять разветвляющиеся программы

Аноним: Ну я тоже не могу высосать из пальца какие-то структуры, если в них нет нужды

Ответы

Автор ответа: Аноним

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a,b,c,d:real;
Read(a,b,c,d);
var x:=Max(Max(a,b)+Min(b,c),b+d);
Writeln(x)
end.

Пример
3.18 -6 14.3 9.1
3.1

Приложения: