انجام برنامه نویسی محاسبات عددی پیشرفته نمونه کد فرترن انتگرال به روش ذوزنقه

                                                                                                                                                        

---------------------------------------------------------------------------------------------------------------------------------

 

PROGRAM antegral

IMPLICIT NONE

INTEGER::n

REAL::t,i,s,fa,fb,b,a,delx

PRINT*

PRINT*," f(x) = x - 2**x"

PRINT*," baraye antegral az a ta b , a va b ra vared konid : "

PRINT*," a = "

READ*,a

PRINT*," b = "

READ*,b

PRINT*," n ra vared konid : "

READ*,n

delx=(b-a)/n

s=0.

DO  i=a+delx,b-delx,delx

s=s+(i-2**(i))

END DO

fa=a-2**(a)

fb=b-2**(b)

t=(s+((fa+fb)/2))*delx

PRINT*,"   javab antegral az",a,"ta",b,"  = ",t

PRINT*

END