home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / BESSJ.DEM < prev    next >
Encoding:
Text File  |  1991-04-29  |  596 b   |  28 lines
  1. PROGRAM d6r20(input,output,dfile);
  2. (* driver for routine BESSJ *)
  3. VAR
  4.    i,n,nval : integer;
  5.    val,x : real;
  6.    txt : string[18];
  7.    dfile : text;
  8.  
  9. (*$I MODFILE.PAS *)
  10. (*$I BESSJ0.PAS *)
  11.  
  12. (*$I BESSJ1.PAS *)
  13.  
  14. (*$I BESSJ.PAS *)
  15.  
  16. BEGIN
  17.    glopen(dfile,'fncval.dat');
  18.    REPEAT readln(dfile,txt) UNTIL (txt = 'Bessel Function Jn');
  19.    readln(dfile,nval);
  20.    writeln(txt);
  21.    writeln('n':4,'x':7,'actual':14,'bessj(n,x)':18);
  22.    FOR i := 1 to nval DO BEGIN
  23.       readln(dfile,n,x,val);
  24.       writeln(n:4,x:8:2,'   ',val:13,'   ',bessj(n,x):13)
  25.    END;
  26.    close(dfile)
  27. END.
  28.