Potenzberechnung mit Delphi

[Stevie]

Igitt Rekursion

Delphi-Quellcode:

function Power(x, y: Integer): Double;
var
  i: Integer;
begin
  Result := 1;
  if y >= 0 then
  begin
    for i := 1 to y do
    begin
      Result := Result * x;
    end;
  end
  else
  begin
    for i := -1 downto y do
    begin
      Result := Result / x;
    end;
  end;
end;