PMG/Programmierparadigmen/Seite Christiane

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4e944f5dc4381">
function fak_rek(n:integer):integer;
begin
 if n=0 then result:=1 
 else result:=n*fak_rek(n-1);
end;
</code>

<run id="4e944f5dc4400">

</run>