Oberlausitz/unter1

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Funktion Fakultät

in Pascal kann man mit folgender Funktion die Fakultät einer Zahl berechnen:
<code id="4d36de5d8b885">
function fak(n: integer):integer;
begin
  if n=0
  then result:=1
  else result:=n*fak(n-1)
end;
</code>

Aufruf der Funktion und der Ausgabe des Ergebnisses:
<run id="4d36df23d5893">writeln(fak(4));</run>

Berechne nun die Fakultät von 10 oder 11:
<run id="4d36df87ca635">writeln(fak(10));</run>

<check>result:=(fak(10)=3628800) and fak(11)=39916800;</check>


[[oberlausitz|zurück]]