home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / REKURZE.IPS < prev    next >
Text File  |  1998-03-25  |  669b  |  20 lines
  1. FUNCTION factorial(n: real): real;
  2.    IF (n = 0) then
  3.       factorial := 1
  4.    ELSE
  5.       factorial := n*factorial(n-1); 
  6.    ENDIF
  7. ENDFUNC;
  8.  
  9. PROCEDURE main
  10.    ConsoleClear; ConsoleShow;
  11.    WRITELN('Test rekurze:');
  12.    WRITELN('faktorißl Φφsla 1 je:',  factorial(1):5); {   1}
  13.    WRITELN('faktorißl Φφsla 2 je:',  factorial(2):5); {   2}
  14.    WRITELN('faktorißl Φφsla 3 je:',  factorial(3):5); {   6}
  15.    WRITELN('faktorißl Φφsla 4 je:',  factorial(4):5); {  24}
  16.    WRITELN('faktorißl Φφsla 5 je:',  factorial(5):5); { 120}
  17.    WRITELN('faktorißl Φφsla 6 je:',  factorial(6):5); { 720}
  18.    WRITELN('faktorißl Φφsla 7 je:',  factorial(7):5); {5040}
  19. ENDPROC;
  20.