Question

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

Answer 1

Program Pr1;
uses crt;
var a,b,c,max,min:integer;
begin
clrscr;
readln(a,b,c);
if a>b then max:=a
else max:=b;
if c>max then max:=c;
writeln('max ',max);
if a<b then min:=a
else min:=b;
if c<min then min:=c;
writeln('min ',min);
end.

Answer 2

Программа нахождения наименьшего и наибольшего из трех чисел в Pascal

Вот пример программы на языке Pascal, которая находит наименьшее и наибольшее из трех чисел с помощью процедур:

program MinMax;

var
  a, b, c: Integer;

procedure FindMinMax(a, b, c: Integer; var min, max: Integer);
begin
  if a < b then
  begin
    min := a;
    max := b;
  end
  else
  begin
    min := b;
    max := a;
  end;

if c < min then
    min := c
  else if c > max then
    max := c;
end;

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

var min, max: Integer;
  FindMinMax(a, b, c, min, max);

writeln('Наименьшее число: ', min);
  writeln('Наибольшее число: ', max);
end.

В этой программе мы объявляем три переменные `a`, `b` и `c`, которые будут содержать введенные пользователем числа. Затем мы объявляем процедуру `FindMinMax`, которая принимает три числа и две переменные `min` и `max` по ссылке. Внутри процедуры мы сравниваем числа и находим наименьшее и наибольшее из них, присваивая значения переменным `min` и `max`.

Затем мы считываем три числа с помощью `readln` и вызываем процедуру `FindMinMax`, передавая ей введенные числа и переменные `min` и `max`. После этого выводим наименьшее и наибольшее число с помощью `writeln`.

Пример использования программы: ``` Введите три числа: 5 10 3 Наименьшее число: 3 Наибольшее число: 10 ```

Примечание: Приведенный выше код является примером и может быть изменен или доработан в зависимости от ваших потребностей и требований языка Pascal.

Источники: -: Dec 7, 2015, "Pascal - наименьшее и наибольшее число", [ссылка](https://www.cyberforum.ru/pascalabc/thread1468742.html)