home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-10  |  297 b   |  19 lines
  1. PROGRAM fakultaet;
  2. var n:longint;
  3.  
  4. function fac(n:longint):longint;
  5. begin
  6.   if n=0 then fac:=1 else fac:=n*fac(n-1);
  7. end;
  8.  
  9. begin
  10.  repeat
  11.   writeln('Fakultaetsberechnung mit longint (0=ende)');
  12.   write(  'Zahl : ');
  13.   read(n);
  14.   writeln('fac(',n,')=',fac(n));
  15.  until n=0;
  16. end.
  17.  
  18.  
  19.