home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / BICO.DEM < prev    next >
Encoding:
Text File  |  1991-04-29  |  674 b   |  29 lines
  1. PROGRAM d6r3(input,output,dfile);
  2. (* driver for routine BICO *)
  3. VAR
  4.    binco : real;
  5.    i,k,n,nval : integer;
  6.    txt : string[21];
  7.    dfile : text;
  8.    gla : ARRAY [1..100] OF real;
  9.  
  10. (*$I MODFILE.PAS *)
  11. (*$I GAMMLN.PAS *)
  12.  
  13. (*$I FACTLN.PAS *)
  14.  
  15. (*$I BICO.PAS *)
  16.  
  17. BEGIN
  18.    FOR i := 1 to 100 DO gla[i] := -1.0; (* initialize FACTLN *)
  19.    glopen(dfile,'fncval.dat');
  20.    REPEAT readln(dfile,txt) UNTIL (txt = 'Binomial Coefficients');
  21.    readln(dfile,nval);
  22.    writeln (txt);
  23.    writeln ('n':6,'k':6,'actual':12,'bico(n,k)':12);
  24.    FOR i := 1 to nval DO BEGIN
  25.       readln(dfile,n,k,binco);
  26.       writeln (n:6,k:6,binco:12:0,bico(n,k):12:0)
  27.    END
  28. END.
  29.