Falls du aber auf Delphi-Code setzt, gibt es Neutral Generals Code auch in rekursiver Form (evtl. schneller):
Delphi-Quellcode:
function Potenz(Basis, Exponent: Integer): Int64;
begin
if Exponent = 0 then
Exit
else
Result := Basis * Potenz(Basis, Exponent - 1);
end;
(Nicht für negative Exponenten!)