Integrallarni taqribiy hisoblash

Simpson formulasining dasturi Simpson usuli

program Simpson_simpl;
var n,i,k,m:integer; a,b,h,s,s1,s2:real; //n=2m
function f(x:real):real;
begin f:=x*x end;
procedure Simp(a,b:real;n:integer; var s:real); var i:integer; h:real;
begin s:=f(a)+f(b); s1:=0;s2:=0; h:=(b-a)/n; m:=n div 2;
for i:=1 to m-1 do
begin s1:=s1+f(a+(2*i-1)*h); s2:=s2+f(a+(2*i)*h) end; s:=s+4*s1+2*s2;s:=s*h/3; end;
begin
write('a,b,n=?'); readln(a,b,n); h:=(b-a)/n; Simp(a,b,n,s); writeln('S=',s);
end.
Programma asosida eksperimentlar o’tkazamiz.

a,b,n=?0	1	10	S=0.225333333333333
a,b,n=?0	1	20	S=0.273166666666667
a,b,n=?0	1	40	S=0.301645833333333
a,b,n=?0	1	80	S=0.317080729166667
a,b,n=?0	1	100	S=0.320265333333333
a,b,n=?0	1	200	S=0.326733166666667
a,b,n=?0	1	500	S=0.330677322666667

Natija to’g’riligi ko’rinib turibdi.

Adabiyotlar:

1. 
   Ю. Ю. Тарасевич. Математическое и компьютерное моделирование. Изд. 4-е, испр. М.: Едиториал УРСС, 2004. 152 с.
   
2. 
   Б. П. Демидович, И. А. Марон. Основы вычислительной математики. Издательство «Наука» Москва 1986
   
3. 
   Е. В. Бошкиново и др. Численное методы и их реализация в MS Excel. Самара 2009
   
4. 
   Ю. В. Василков, Н. Н. Василкова. Компьютерные технологии вычилений в математическом моделировании. Изд. «Финансы и статистика» М.:2002
   
5. 
   А. С. Амридинов, А. И. Бабаяров, Б. Б. Бабажанов. «Ҳисоблаш математикаси» фанидан лаборатория ишларини бажариш бўйича услубий тавсиялар ва топшириқлар. Самарқанд: СамДУ нашри. 2008.