home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / fakutest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  534 b   |  29 lines
  1.  
  2. PROGRAM Fakutest;
  3.  
  4. VAR a:Integer;
  5.  
  6. FUNCTION reku_Fak (n : Integer) : LongInt;
  7.  BEGIN
  8.   IF n=1 THEN reku_Fak := 1
  9.        ELSE reku_Fak := reku_Fak(n-1) * n
  10.  END; { von Fak }
  11.  
  12.  
  13. FUNCTION iter_Fak (n : Integer) : LongInt;
  14.  Var i, Hilf : LongInt;
  15.  BEGIN
  16.   Hilf := 1;
  17.   IF n=1 THEN Hilf := 1
  18.        ELSE FOR i:=1 to n DO Hilf := Hilf * i;
  19.   iter_Fak := Hilf
  20.  END; { von Fak }
  21.  
  22. BEGIN
  23.  Write ('Zahl:');
  24.  Readln (a);
  25.  Writeln ('Fakultät rekursiv: ',reku_Fak(a));
  26.  Writeln ('Fakultät iterativ: ',iter_Fak(a))
  27. END.
  28.  
  29.