Question

Определив подпрограмму нахождения максимума из двух чисел, найти максимум из четырех заданных чисел.

Answer 1

С использованием подпрограммы функция:

program Maximum;

var
  x1, x2, x3, x4, m: integer;

function max(a, b: integer): integer;
begin
  if a > b
    then max := a
  else max := b
end;

begin
  write('Введите 4 числа: ');
  readln(x1, x2, x3, x4);
  m := max(x1, max(x2, max(x3, x4)));
  writeln('Максимальное: ', m);
end.

Answer 2

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

Перед тем, как приступить к написанию кода, предположим, что у вас уже есть подпрограмма для нахождения максимума из двух чисел, и она называется "max_of_two".

В большинстве языков программирования подобная функция уже предоставляется, например, в Python это можно сделать так:

pythonCopy code
# Подпрограмма для нахождения максимума из двух чисел
def max_of_two(a, b):
    if a > b:
        return a
    return b

# Подпрограмма для нахождения максимума из четырех чисел
def max_of_four(a, b, c, d):
    max_of_ab = max_of_two(a, b)
    max_of_cd = max_of_two(c, d)
    return max_of_two(max_of_ab, max_of_cd)

# Пример использования
num1 = 10
num2 = 23
num3 = 8
num4 = 37

result = max_of_four(num1, num2, num3, num4)
print("Максимум из четырех чисел:", result)

Здесь функция "max_of_four" вызывает функцию "max_of_two" два раза: сначала для нахождения максимума из первой пары чисел (a, b), а затем для нахождения максимума из второй пары чисел (c, d). Возвращаемый результат – максимум из четырех заданных чисел.