home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 September / 64er_Magazin_86-09_1986_Markt__Technik_de.d64 / fak < prev    next >
Text File  |  2022-10-26  |  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.