Написать программу на Паскале для нахождения наименьшего и наибольшего из трех чисел с помощью процедур.

Конечно! Вот пример того, как можно написать программу на Паскале, которая находит наименьшее и наибольшее из трёх чисел с использованием процедур. Я подробно объясню структуру.

pascal
program MinMaxThreeNumbers;

uses crt;

var
  a, b, c: integer;
  minValue, maxValue: integer;

procedure FindMinMax(x, y, z: integer; var minNum, maxNum: integer);
begin
  { Находим минимальное число }
  minNum := x;
  if y < minNum then
    minNum := y;
  if z < minNum then
    minNum := z;

  { Находим максимальное число }
  maxNum := x;
  if y > maxNum then
    maxNum := y;
  if z > maxNum then
    maxNum := z;
end;

begin
  clrscr;
  writeln('Введите три числа:');
  readln(a, b, c);

  { Вызов процедуры для нахождения минимального и максимального }
  FindMinMax(a, b, c, minValue, maxValue);

  writeln('Наименьшее число: ', minValue);
  writeln('Наибольшее число: ', maxValue);

  readln;
end.

Пояснение программы:

1. Объявление переменных:

   • a, b, c — три числа, которые вводит пользователь.

   • minValue, maxValue — переменные для хранения минимального и максимального числа.

2. Процедура FindMinMax:

   • Принимает три числа (x, y, z) и два параметра по ссылке (var minNum, maxNum) для результата.

   • Сначала ищет минимальное число, сравнивая последовательно x, y и z.

   • Затем ищет максимальное число аналогично.

3. Основная программа:

   • Очищает экран (clrscr).

   • Просит пользователя ввести три числа.

   • Вызывает процедуру FindMinMax.

   • Выводит результаты на экран.

Эта структура с процедурой делает код аккуратным и легко расширяемым, например, если захотите находить минимум и максимум из большего количества чисел.

Если хочешь, я могу показать ещё более компактный вариант программы с использованием только одной процедуры для обеих задач, который выглядит ещё элегантнее.