home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG050.ARK / STIRLING.PAS < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  658b  |  27 lines
  1. var n,k : integer;
  2.  
  3. function stirling(n,k : integer);
  4.  
  5.    begin
  6.    if (k=1) or (n=k)
  7.       then stirling:=1
  8.       else stirling:=stirling(n-1,k-1)+k*stirling(n-1,k)
  9.    end; (* function stirling *)
  10.  
  11. begin (* main line *)
  12. put#1(9,9,9,9,9,'k',13,10); (* print centered "k" *)
  13.  
  14. put#1('n', 9);              (* print column headings *)
  15. for n:=1 to 10 do
  16.    put#1(n#,9);
  17. put#1(13, 10);
  18. put#1(9,'=',9,'=',9,'=',9,'=',9,'=',9,'=',9,'=',9,'=',9,'=',9,'=',13,10);
  19.  
  20. for n:=1 to 10 do begin     (* print body of table *)
  21.    put#1(n#, ':', 9);
  22.    for k:=1 to n do
  23.       put#1(stirling(n,k)#, 9);
  24.    put#1(13, 10) (* start new line *)
  25.    end
  26. end.
  27.