...........................................

نقل قول:::

کد فرترن انتگرال گیری عددی به روش ذوزنقه...این کد اول a و b را میگیرهد.a و b به ترتیب کران های پایین و بالای انتگرال هستند یعنی همان بازه ای که میخوایم انتگرال معین را حساب کنیم.سپس n رو میگیرهد.n تعداد نقاطی که روی محور x تولید میکند یعنی از بازه a تا b رو به n قسمت مساوی تقسیم میکند در نتیجه دلتا x برابر فاصله a تا b تقسیم بر n خواهد شد.سپس مجموع f(i) ها را با هم جمع میکند که از a به علاوه دلتا x شروع میشود تا b منهای دلتا x با گام های دلتا x. سپس f(a) و f(b) را هم حساب میکند و تقسیم بر 2 میکند و با مجموع f(i) ها که بالا به دست امد جمع میکند و مجموع این دو تا را در دلتا x ضرب میکند.در آخر هم جواب را نشان میدهد. در این مثل روش را برای تابع مثال f(x) = x - 2^x   نوشته است.…

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