Question

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

Answer 1

procedure pr_max(a,b,c:integer; var max:integer);

begin

if a>b then max:=a else max:=b;

if c>max then max:=c;

end;

var m:integer;

begin

pr_max(15,47,24,m);

writeln(m);

end.

Результат:

47

Answer 2

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

pascalCopy code
procedure FindMaxOfThree(a, b, c: Integer; var max: Integer);
begin
  if (a >= b) and (a >= c) then
    max := a
  else if (b >= a) and (b >= c) then
    max := b
  else
    max := c;
end;

В этой процедуре мы передаем три числа a, b и c в качестве параметров типа Integer. Также мы используем переменную max, переданную по ссылке с помощью ключевого слова var, чтобы хранить максимальное значение.

Процедура сравнивает значения a, b и c между собой и присваивает максимальное значение переменной max. После завершения процедуры, переменная max будет содержать максимальное из трех чисел.

Пример вызова этой процедуры:

pascalCopy code
var
  num1, num2, num3, result: Integer;

begin
  num1 := 10;
  num2 := 25;
  num3 := 15;

  FindMaxOfThree(num1, num2, num3, result);

  writeln('Максимальное число: ', result);
end.

Этот пример выведет на экран "Максимальное число: 25", так как 25 является наибольшим из трех данных чисел.