Potenzberechnung mit Hilfe einer Rekursion

[gammatester]

Zitat von Wolfgang Mix:

Funzt hier soweit

Gruß

Wolgang

Hier nicht, da Potenz(2,-1) einen Stackoverflow gibt. Besser

Delphi-Quellcode:

function Potenz(Basis, Exponent: Integer): Int64;
begin
  if Exponent<0 then Result := 0
  else if Exponent = 0 then Result := 1
  else Result := Basis * Potenz(Basis, Exponent-1);
end;

oder Basis und Exponent als cardinal deklarieren.

Gruß Gammatester