unter1

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T14:02:05+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:

Programmiere nun die Procedur zehnfak in welcher die Fakultäten der ersten 10 natürlichen Zahlen berechnet werden:

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

Rufe nun diese Funktion auf: