fork download
copy 
  1. F(X)=X
  2. READ(*,*)A,B,N
  3. H=(B-A)/N
  4. WRITE(*,*)'LOWER LIMIT',A,'UPPER LIMIT',B
  5. WRITE(*,*)'LENGTH OF SUBINTERVAL',H
  6. SUM=0
  7. X=A
  8. DO 35 I=1,N
  9. SUM=SUM+F(X)+F(X+H)
  10. X=X+H
  11. 35 CONTINUE
  12. VALUE=H/2*SUM
  13. WRITE(*,*)'THE VALUE OF INTEGRATION',VALUE
  14. STOP
  15. END
Success #stdin #stdout 0s 3980KB
comments (?)
stdin
copy 
0,1,50
stdout
copy 
 LOWER LIMIT   0.00000000E+00 UPPER LIMIT   1.00000000    
 LENGTH OF SUBINTERVAL   1.99999996E-02
 THE VALUE OF INTEGRATION  0.499999911
https://ideone.com/qKxdOl
language:
Fortran (gfortran 8.3)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!