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 einer beliebigen Zahl:
<run id="4d36df87ca635">writeln(fak(10));</run>

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



Programmiere nun die Funktion zehnfak in welcher die Fakultäten der ersten 10 natürlichen Zahlen berechnet werden:
<run id="4d36e52a41f4d">
function zehnfak(n: integer):integer;
begin

end;
</run>


[[oberlausitz|zurück]]