Задать вопрос
23 января, 00:19

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

+4
Ответы (1)
  1. 23 января, 02:27
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «18. Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)). Cоставьте программу в Delphe7 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы