Question

Найдите ошибку. Вместо бОльшего числа, выводит 0. program bolsheyechislo; var a, b, c, d, e, max, max1, max2 : integer; function MaxChislo: integer; begin if max1 > max2 then max := max1 else max := max2; end; begin writeln('Введите 5 чисел:'); readln(a, b, c, d, e); max1 := a; max2 := b; max := MaxChislo; max1 := c; max2 := max; max := MaxChislo; max1 := d; max2 := max; max := MaxChislo; max1 := e; max2 := max; max := MaxChislo; writeln('Самое большое число: ', max ); end.

Answer 1

program bolsheyechislo;

var a, b, c, d, e, max : integer;

function MaxChislo(x,y: integer): integer;

begin

if x > y

then MaxChislo := x

else MaxChislo := y;

end;

begin

writeln('Введите 5 чисел:');

readln(a, b, c, d, e);

max := MaxChislo(MaxChislo(MaxChislo(a,b),MaxChislo(c,d)),e);

writeln('Самое большое число: ', max );

end.

Пример:

Введите 5 чисел:

12 45 38 79 50

Самое большое число: 79

Answer 2

Программа содержит ошибку в функции MaxChislo. Функция должна возвращать значение переменной max, которая содержит максимальное из двух чисел max1 и max2. Однако, в данной программе функция ничего не возвращает, и по умолчанию возвращается значение 0, что и приводит к некорректному выводу "Самое большое число: 0".

Чтобы исправить программу, нужно добавить оператор Result в функцию MaxChislo, чтобы она возвращала верное значение. Вот исправленный код:

pascalCopy code
program bolsheyechislo;

var
  a, b, c, d, e, max, max1, max2: integer;

function MaxChislo: integer;
begin
  if max1 > max2 then
    Result := max1
  else
    Result := max2;
end;

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

  max1 := a;
  max2 := b;
  max := MaxChislo;

  max1 := c;
  max2 := max;
  max := MaxChislo;

  max1 := d;
  max2 := max;
  max := MaxChislo;

  max1 := e;
  max2 := max;
  max := MaxChislo;

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

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