ГДЗ по информатике 9 класс Босова, номер §1.2 ПМ 3

§. ПМ Функции на языке Паскаль

Выполните приведённую выше программу в среде программирования PascalABC.NET. Измените программу так, чтобы с её помощью можно было найти: а) максимальное из чисел a, b, c; б) максимальное из чисел b, c, d; в) минимальное из четырёх чисел; г) разность максимального и минимального из четырёх чисел.

Решение

В программе на стр. функция max(x, y) возвращает большее из двух чисел. Поэтому результат max(a, b) сравниваем с c, если нужны три числа. Для минимума напишем такую же функцию с противоположным условием.

var a, b, c, d: integer;

function max(x, y: integer): integer;
begin
  if x > y then max := x else max := y
end;

function min(x, y: integer): integer;
begin
  if x < y then min := x else min := y
end;

begin
  readln(a, b, c, d);
  writeln('а) ', max(max(a, b), c));
  writeln('б) ', max(max(b, c), d));
  writeln('в) ', min(min(a, b), min(c, d)));
  writeln('г) ', max(max(a, b), max(c, d)) -
                min(min(a, b), min(c, d)))
end.

После readln вводятся четыре целых числа. В строке а) внутренний вызов выбирает большее из a и b, внешний сравнивает его с c. Строка б) работает так же для b, c, d. В строке в) сначала находятся минимумы двух пар, потом меньший из этих минимумов. Последняя строка вычитает общий минимум из общего максимума. Например, для , , , получаются , , и .

Ответ

Для входных данных : а) ; б) ; в) ; г) . Программа приведена в решении.

Помогло?

Номер §1.2 ПМ 3