Question

2. Написать процедуру, которая находит из двух целых чисел наиболь-шее число. (язык Pascal)

Answer 1

program raf105;

var x,y,z:integer;

procedure max1 (a,b:integer);

begin

 if a>b

   then z:=a

   else z:=b;

end;

begin

write('Введите 2 числа через пробел: ');

readln(x,y);

max1(x,y);

writeln('Большее число: ',z);

end.

Язык PascalABC

Answer 2

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

pascalCopy code
program FindMax;

procedure FindMaximum(a, b: Integer; var max: Integer);
begin
  if a > b then
    max := a
  else
    max := b;
end;

var
  num1, num2, maximum: Integer;

begin
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);

  FindMaximum(num1, num2, maximum);

  writeln('Наибольшее число: ', maximum);

  readln;
end.

В этом примере процедура FindMaximum принимает два целых числа (a и b) и переменную max, которая будет содержать наибольшее число. Внутри процедуры происходит сравнение чисел: если a больше b, то max присваивается значение a, иначе max присваивается значение b. Затем в основной программе пользователю предлагается ввести два числа, после чего происходит вызов процедуры FindMaximum с этими числами и переменной maximum. Результат выводится на экран.