unter1

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T13:13:06+00:00. Aktuelle Version

Funktion Fakultät

in Pascal kann man mit folgender Funktion die Fakultät einer Zahl berechnen:

function fak(n: integer):integer;
begin
  if n=0
  then result:=1
  else result:=n*fak(n-1)
end;

Aufruf der Funktion und der Ausgabe des Ergebnisses:

writeln(fak(4));

Berechne nun die Fakultät einer beliebigen Zahl:

writeln(fak(10));