Переменные основной программы
var
a, b, c, d: integer;
Подпрограмма
function
max(x, y: integer): integer;
begin
if x > y then max:= x else max: y
end;
Основная программа
begin
readln(a, b, c, d);
writeln('MAX=', max(max(a,b), max(c,d)))
end.
Выполните приведённую выше программу в среде программирования PascalABC.NET.
Измените программу так, чтобы с её помощью можно было найти:
а) максимальное из чисел a, b, c;
Для выполнения и понимания данной задачи, давайте разберём программу на Pascal по шагам, а затем изменим её таким образом, чтобы нашли максимальное из трех чисел: a, b и c.
### Объяснение исходной программы
1. **Переменные:**
В первой строке объявляются переменные `a`, `b`, `c`, и `d`, которые представляют собой целые числа (`integer`).
```pascal
var
a, b, c, d: integer;
```
2. **Функция `max`:**
Подпрограмма, которая принимает два целых числа (x и y) и возвращает максимальное из них. Если `x > y`, то функция возвращает `x`, иначе — `y`.
```pascal
function max(x, y: integer): integer;
begin
if x > y then
max := x
else
max := y
end;
```
Обратите внимание, что нужно использовать `max := y` вместо `max: y` — это опечатка в вашем коде.
3. **Основная программа:**
В основной части программы считываются значения переменных `a`, `b`, `c`, и `d`, а затем выводится максимальное значение из двух пар: (a, b) и (c, d).
```pascal
begin
readln(a, b, c, d);
writeln('MAX=', max(max(a, b), max(c, d)))
end.
```
### Изменение программы для нахождения максимального из a, b и c
Теперь изменим программу так, чтобы она находила максимальное из трех чисел: a, b и c. Для этого можно использовать функцию `max`, чтобы сравнить все три числа:
1. Удаляем переменную `d`, так как она больше не нужна.
2. Изменяем основную программу для поиска максимального значения из a, b и c.
Вот как будет выглядеть измененная версия программы:
```pascal
var
a, b, c: integer;
function max(x, y: integer): integer;
begin
if x > y then
max := x
else
max := y
end;
begin
readln(a, b, c);
writeln('MAX=', max(max(a, b), c));
end.
```
### Объяснение изменений:
1. **Удаление переменной `d`:**
Мы убрали переменную `d`, так как она не входит в задачу.
2. **Изменение вызова функции `max`:**
Вызов функции изменен на `max(max(a, b), c)`, чтобы находить максимум из трех переменных — сначала находя максимум между `a` и `b`, а затем сравнивая это значение с `c`.
Теперь программа будет считывать три числа и выводить максимальное из них. Вы можете скопировать и вставить этот код в среду программирования PascalABC.NET и проверить его работоспособность.
