1.2.2 Написать программу нахождения минимального из 5 целых чисел, использующую функцию поиска минимального из двух чисел. Язык паскаль
Цель задачи понятна: написать программу на Паскале, которая находит минимальное из пяти целых чисел, используя функцию поиска минимума двух чисел.
План решения
- Объявим функцию Min2, которая возвращает меньшие из двух чисел.
- Считываем пять целых чисел: a1, a2, a3, a4, a5.
- Вычисляем минимальное последовательно: m = Min2(a1, a2); затем m = Min2(m, a3); далее m = Min2(m, a4); и наконец m = Min2(m, a5).
- Выводим получившееся минимальное значение m.
Пояснение по шагам
- Функция Min2 просто сравнивает два целых и возвращает меньший из них.
- Слева направо берем минимум между двумя числами и текущее минимальное, так что после пяти вызовов мы получим минимальное из всех пяти.
- Такой подход удовлетворяет условию задачи «использовать функцию поиска минимального из двух чисел».
Пример кода на Pascal
program MinOfFive;
function Min2(a, b: integer): integer;
begin
if a < b then
Min2 := a
else
Min2 := b;
end;
var
a1, a2, a3, a4, a5, m: integer;
begin
// Считываем пять целых чисел (разделитель может быть пробел или перевод строки)
ReadLn(a1, a2, a3, a4, a5);
m := Min2(a1, a2);
m := Min2(m, a3);
m := Min2(m, a4);
m := Min2(m, a5);
WriteLn(m);
end.
Дополнительные заметки
- Можно также писать считывание по строкам или использовать Read вместо ReadLn, если вход подаётся построчно или через пробелы.
- Программа корректно работает с отрицательными числами и с повторяющимися значениями.
- Временная сложность — O(1), потому что константное количество сравнений (4 вызова Min2).
