Mm ivaat nosirov doc

f(x)=ln(x²+3x+1)
куринишида ёзиб олиб, бу функциядан блок–схема ва дастур тузишда фойдала-намиз. Фойдаланувчининг функциясини алгоритм ва дастурда f харфи билан, функцияни а нуктадаги кийматини f(a) ва b нуктадаги кийматини f(b) билан, булиниш кадамларини i харфи билан, булаклар сонини n харфи билан, оралик-чалар узинлигини h харфи билан, интеграл ости йигиндисини s харфи билан, интегралнинг кийматини эса J харфи билан билгилаб оламиз.
Энди интеграл кийматини такрибий хисоблаш учун барча маълумотлар тайёр булгандан кейин интеграл кийматини такрибий хисоблаш трапеция ва Симпсон усуллари учун хисоблашнинг алгортми блок-схемалари ва Pascal дас-турлаштириш тилида дастурларини тузамиз.
www.qmii.uz/e-lib

1)
бошлаш
f(x)=ln(x²+3x+1)
a,b,n
s=(f(a)+f(b))/2
h=(b-a)/n
i=2,…,n
s=s+f(a+(i-1)h)
J=h s

тамомлаш

интеграл J=
62
{Интегрални трапеция усулида такрибий хисоблаш дастури}
Program integral1(input,output); Uses crt;
var a,b,h,s,J:real; i,n:integer;
{ностандарт функцияни тавсифлаймиз}
function f(x:real):real; begin