Найти максимальное число из трех | Язык Паскаль

Найти максимальное число из трех

Определить какое из трех введенных пользователем чисел максимальное и вывести его на экран.

Пример выполнения программы

Введите три числа: 23 54 14
Максимальное из них: 54

Решение задачи на языке Паскаль

var
    n1, n2, n3, max: integer;
 
begin
    write('Введите три числа: ');
    readln(n1, n2, n3);
 
    if n1 > n2 then
        max := n1
    else
        max := n2;
 
    if n3 > max then
        max := n3;
 
    writeln('Максимальное из них: ', max);
end.

Пусть числа, которые вводит пользователь, присваиваются переменным n1, n2, n3. Введем четвертую переменную max, в которую по ходу выполнения кода будет помещено найденное максимальное значение. Тогда алгоритм решения задачи можно свести к следующему:

  1. Сравнить первое и второе число (n1 и n2). Переменной max присвоить значение переменной, содержащей большее значение.
  2. Сравнить значение переменной max с третьим числом (n3). Если значение n3 окажется больше, чем max, то присвоить max значение третьего числа. Если же значение max окажется больше, то ничего не делать.

Другой способ решения задачи - сразу предположить, что первая переменная содержит максимальное число, и присвоить его переменной max. Далее, сравнивая значение max со значениями двух других переменных, будем менять max только в том случае, если второе или третье числа больше того значения, которое содержится в max.

var
    n1, n2, n3, max: integer;
 
begin
    write('Введите три числа: ');
    readln(n1, n2, n3);
 
    max := n1;

    if n2 > max then
        max := n2;
 
    if n3 > max then
        max := n3;
 
    writeln('Максимальное из них: ', max);
 
end.