Вопрос по информатике:
18. Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). Cоставьте программу в Delphe7
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.10.2017 22:44
- Информатика
- remove_red_eye 2004
- thumb_up 19
Ответы и объяснения 1
Program ex;
// Функция для определения из двух чисел минимальное
function min(a, b: real): real;
begin
if (a > b) then min := b else min := a
end;
// Функция для определения из двух чисел максимальное
function max2(a, b: real): real;
begin
if (a > b) then max2 := a else max2 := b
end;
// Функция для определения из трех чисел максимальное
function max3(a, b, c: real): real;
begin
// Сначала определяем максимальное из первых двух чисел,
// затем у нас останется два числа и нам остается определить
// максимальное из них
max3 := max2(max2(a, b), c);
end;
var
x, y, z, d, max_int: real;
begin
writeln('Введите 4 числа');
readln(x, y, z, d);
max_int := max3(min(x, y), min(x, z), min(z, d));
writeln(max_int);
end.
- 05.10.2017 11:34
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.