3.2.2 Максимум из трех чисел

Задача. Найти и напечатать максимальное из трех целых чисел, заданных на устройстве ввода.

Решение. Функция $MAX(x,y)$, дающая максимум из двух чисел, определяется соотношением

Наша задача, таким образом, сводится к вычислению значения выражения $MAX(MAX(X,Y),Z)$, для заданных целых $X,Y,Z$:

module МаксимумИзТрехЦелыхЧисел;
    var X,Y,Z : integer;
    procedure MAX(X,Y : integer) :integer;
        begin if X > Y then return X else return Y end end MAX;
begin
    read(X,Y,Z);
    write ('Максимум из чисел ', X,Y,Z);
    writeln (' равен ', MAX(MAX(X,Y),Z))
end МаксимумИзТрехЦелыхЧисел.
 

© В.Н. Касьянов, Е.В.Касьянова, 2004