Найти максимальное число из трех
Определить какое из трех введенных пользователем чисел максимальное и вывести его на экран.
Пример выполнения программы
Введите три числа: 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, в которую по ходу выполнения кода будет помещено найденное максимальное значение. Тогда алгоритм решения задачи можно свести к следующему:
- Сравнить первое и второе число (n1 и n2). Переменной max присвоить значение переменной, содержащей большее значение.
- Сравнить значение переменной 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.