Question

18. Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). Cоставьте программу в Delphe7

Answer 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.