Mm ivaat nosirov doc

f:=ln(x*x+3*x+1); end; begin clrscr; write(‘куйи чегара a=’); readln(a); write(‘юкори чегара b=’); readln(b); write(‘булаклар сони n=’); readln(n); s:=(f(a)+f(b))/2; h:=(b-a)/n; for i:=2 to n do s:=s+f(a+(i-1)*h); J:=h*s; textcolor(13); writeln(‘интеграл киймати J=’,J:3:4); end.

2)
бошлаш
s=s+(3+k)f(a+(i-1)h)
{Симпсон усули}
Program integral2(input,output); Uses crt;
var a,b,h,s,J:real; i,n,k:integer; function f(x:real):real; begin
f:=ln(x*x+3*x+1); end; begin clrscr; write(‘куйи чегара a=’); readln(a); write(‘юкори чегара b=’); readln(b); write(‘булаклар сони n=’); readln(n); h:=(b-a)/n; s:=f(a)+f(b); k:=1;
for i:=2 to n do begin s:=s+(3+k)*f(a+(i-1)*h); k=-k
end;
www.qmii.uz/e-lib
J:=s*h/3; textcolor(2); writeln(‘интеграл киймати J=’,J:3:4); end.

k=-k
63

J=s h/3
интеграл J=
С^тамомлаш
Ушбу дастурларни замонавий IBM ва Pentiem компьютерларининг Turbo Pascal тизимига киритиб натижаларни олиш ва тахлил килиш мумкин.
Назорат саволлари

1. 
   Аник интегрални хисоблашнинг асосий формуласини ёзинг ва изохланг
   
2. 
   Кайси холларда интегралнинг киймати такрибий хисобланади?
   
3. 
   Интегралнинг кийматини такрибий хисоблашнинг кандай усулларини би-ласиз?
   
4. 
   Интеграл кийматини такрибий хисоблашнинг тугри туртбурчак усули формуласини ёзинг ва тушинтиринг
   
5. 
   Интеграл кийматини такрибий хисоблашнинг трапеция усули формула-сини ёзинг ва тушинтиринг
   
6. 
   Интеграл кийматини такрибий хисоблашнинг парабола усули формула-сини ёзинг ва тушинтиринг
   
7. 
   Интегрални кийматини такрибий хисоблашнинг кайси усулида аниклик каттарок булади ?
   

1,2
8. \ (2x + 0,5) • sin xdx ; интегралнинг кийматини тугри турт бурчак
0,4
усулида такрибий хисоблашнинг алгорими блок-схемаси ва дастурини ту-зинг