Ex 5b - Page 134 مثال ع التكامل

      N=5000
      A=0
      B=3.14

      Sum = 0

      Dx = (B-A)/N

      do 10 i=1,N
         x = A + (i*Dx)
         y = sin(x)
         area = Dx * y
         sum = sum + area
  10  continue
      write(*,*)sum/3.14
      pause
      stop
      end