home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8609.d64 / fak < prev    next >
Text File  |  1995-03-30  |  337b  |  20 lines

  1. program fakultaet;
  2. var n:integer;
  3. function rekursiv(n:integer):integer;
  4. begin
  5.    if n=0 then rekursiv:=1
  6.       else rekursiv:=rekursiv(n-1)*n
  7. end;
  8. function iterativ(n:integer):integer;
  9. var i,f:integer;
  10. begin
  11.    f:=1;
  12.    for i:=2 to n do f:=f*i;
  13.    iterative:=f
  14. end;
  15. begin
  16.    n:=3;
  17.    writeln(rekursive(n));
  18.    writeln(iterative(n))
  19. end.
  20.