Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  int
Language: FORTRAN
Code:
Program integral
integer::i,n
real::xa,xb,h,a,soma
xa=0
xb=3.1415
n=10000
h=(xb-xa)/n
soma=0

do i=(xa+h),(xb-h)
soma=2*sin(i)+soma
end do

soma=soma+sin(xa)+sin(xb)
A=(h/2)*soma
write(*,*) A
end program integral          
Comments: