Taschenrechner: Quadrieren (a^b)

[Thorben_K]

Altanative auch noch als rekurive Function

Delphi-Quellcode:

function nfacultaet(a : LongInt):LongInt;
begin
  if a = 1 then
    result := 1
  else
    result := a * nfacultaet(a-1);
end;