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:
<run id="4d36df87ca635"></run>

<check>result:=(fak(10)=1);</check>


[[oberlausitz|zurück]]