Автор: Bronislav

Bronislav — Wed, 30 Jan 2019 16:20:45 +0000

program Recur3;//pabc.net

function Pow(x: real; n: integer): real;
  
  function Pow_(n: integer): real;//рекурсивная функция
  begin
    if n = 0 then result := 1
    else if n < 0 then result := 1 / Pow_(-n)
    else if n.IsEven then result := Sqr(Pow_(n div 2))
    else result := x * Pow_(n - 1)
  end;

begin
  Result := Pow_(n)
end;

begin
  var X := ReadReal();
  var a := ReadArrInteger(5);
  foreach var n in a do Writeln(Pow(x, n))
end.

program Recur3;//pabc.net

function Pow(x: real; n: integer): real;

function Pow_(n: integer): real;//рекурсивная функция

begin

if n = 0 then result := 1

else if n < 0 then result := 1 / Pow_(-n)

else if n.IsEven then result := Sqr(Pow_(n div 2))

else result := x * Pow_(n - 1)

end;

begin

Result := Pow_(n)

end;

begin

var X := ReadReal();

var a := ReadArrInteger(5);

foreach var n in a do Writeln(Pow(x, n))

end.

Комментарии: Решаем задачи Абрамян на Паскале. Recur3

Автор: Bronislav