Составить подпрограмму нахождения максимума из двух чисел - Pascal
Формулировка задачи:
Определив подпрограмму нахождения максимума из двух чисел,
найти максимум из четырех заданных чисел.
Решение задачи: «Составить подпрограмму нахождения максимума из двух чисел»
textual
Листинг программы
function x(a,b:Real):Real; begin if a>b then x:=a else x:=b; end; var a,b,c,d:Real; begin Read(a,b,c,d); Write(x(x(a,b),x(c,d))); end.
Объяснение кода листинга программы
- Объявлена функция x(a,b:Real):Real.
- Внутри функции происходит проверка: если a больше b, то x присваивается значение a, иначе x присваивается значение b.
- Завершается объявление функции.
- В основной части программы объявлены переменные a, b, c, d типа Real.
- Введенный пользователем ввод с помощью функции Read записывается в переменные a, b, c, d.
- Вызывается функция x с аргументами a, b.
- Результат функции x записывается в переменную x.
- Вызывается функция Write, которая выводит на экран значение переменной x.
- Программа завершается.