Составить подпрограмму нахождения максимума из двух чисел - 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.

Объяснение кода листинга программы

  1. Объявлена функция x(a,b:Real):Real.
  2. Внутри функции происходит проверка: если a больше b, то x присваивается значение a, иначе x присваивается значение b.
  3. Завершается объявление функции.
  4. В основной части программы объявлены переменные a, b, c, d типа Real.
  5. Введенный пользователем ввод с помощью функции Read записывается в переменные a, b, c, d.
  6. Вызывается функция x с аргументами a, b.
  7. Результат функции x записывается в переменную x.
  8. Вызывается функция Write, которая выводит на экран значение переменной x.
  9. Программа завершается.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы