unter1

Aus ProgrammingWiki

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:

Programmiere nun die Prozedur fak2 in welcher die Fakultäten der ersten n natürlichen Zahlen berechnet werden:

procedure fak2(n: integer);
var i:integer;
begin
i:=n;
repeat
 writeln(i,'! = ',fak(i));
 i:=i-1;
until i<0;
 
end;

Rufe nun diese Prozedur auf: