home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / NRPAS13 / QROMO.DEM < prev    next >
Text File  |  1991-04-29  |  572b  |  32 lines
  1. PROGRAM d4r6(input,output);
  2. (* Driver for routine QROMO *)
  3. CONST
  4.    x1=0.0;
  5.    x2=1.5707963;
  6.    n=5;
  7. TYPE
  8.    glnarray = ARRAY [1..n] OF real;
  9. VAR
  10.    glit : integer;
  11.    result : real;
  12.  
  13. FUNCTION func(x: real): real;
  14. BEGIN
  15.    func :=sqrt(x)/sin(x)
  16. END;
  17.  
  18. (*$I MODFILE.PAS *)
  19. (*$I MIDSQL.PAS *)
  20.  
  21. (*$I POLINT.PAS *)
  22.  
  23. (*$I QROMO.PAS *)
  24.  
  25. BEGIN
  26.    writeln('Improper integral:');
  27.    writeln;
  28.    qromo(x1,x2,result);
  29.    writeln('Function: sqrt(x)/sin(x)       Interval: (0,pi/2)');
  30.    writeln('Using: MIDSQL                  Result:',result:8:4);
  31. END.
  32.