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"></run>

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



Programmiere nun die Prozedur '''zehnfak''' in welcher die Fakultäten der ersten 10 natürlichen Zahlen berechnet werden:
<code id="4d36e6de2bcf8">
procedure zehnfak(n: integer);
var i:integer;
begin
i:=n;
repeat
 writeln(i,'! = ',fak(i));
 i:=i-1;
until i<0;
 
end;</code>

Rufe nun diese Prozedur  auf:
<run id="4d36e708cc543">
</run>

<check>result:=zehnfak(10)=3628800;</check>


[[oberlausitz|zurück]]