Question

Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint): real; begin var i: integer; var anew: real; anew:=a; for i:= 2 to n do begin a:=a*anew; end; end; begin readln (a, n); writeln (power(a, n)); end.

Answer 1

Program pr1;

var
  a: real;
  n: longint;

function power (a:real; n:longint): real;
begin
  var i: integer;
  var anew: real;
  anew:=a;
  for i:= 2 to n do
    a:=a*anew;
  power:=a
end;

begin
  readln (a, n);
  writeln (power(a, n));
end.

Answer 2

В программе выводится ноль из-за того, что функция power не возвращает никакого значения (то есть не содержит инструкции Result := ...). По умолчанию в Pascal, если функция не возвращает явно указанное значение, она возвращает значение по умолчанию, которым для числовых типов данных, включая real, является ноль.

Чтобы исправить эту проблему, нужно добавить инструкцию Result := ... в функцию power, чтобы вернуть результат вычислений. Также стоит убрать объявление anew внутри функции, чтобы не перекрывать внешний параметр a.

Вот исправленный код программы:

pascalCopy code
program pr1;

var
  a: real;
  n: longint;

function power(a: real; n: longint): real;
var
  i: integer;
begin
  Result := a; // Инициализируем результат значением a
  for i := 2 to n do
  begin
    Result := Result * a; // Накапливаем результат в переменной Result
  end;
end;

begin
  readln(a, n);
  writeln(power(a, n));
end.

Теперь функция power правильно возвращает результат возведения числа a в степень n, и вместо нуля на экран будет выведено правильное значение.