Обчислення визначеного інтеграла функції F(x) на відрізку [A,B] за формулою Сімпсона, Детальна інформація

, oi e\x00B3euee\x00B3noue oi/ie \x00F0icaeooy ciiao iiaeaith\x00BAoueny. I\x00F0e oeueiio cia/aiiy noie 2*(o1+o2+...+o2m-1) o iiia\x00F0aaei\x00B3o oi/eao \x00F0icaeooy caa\x00F0\x00B3aa\x00BAoueny, oiio aeey ia/eneaiiy \x00B3ioaa\x00F0aea i\x00F0e iiaeai\x00BAii\x00B3 e\x00B3eueeino\x00B3 oi/ie \x00F0icaeooy o\x00F0aaa ia/enethaaoe cia/aiiy o(o) eeoa a iiaeo oi/eao.

4.AeIAeAOEE :

4.1.Aeiaeaoie 1: No\x00F0oeoo\x00F0a i\x00F0ia\x00F0aie.

O aeai\x00B3e i\x00F0ia\x00F0ai\x00B3 aeei\x00F0enoiaothoueny ci\x00B3ii\x00B3 :

a, a - iaae\x00B3 \x00B3ioaa\x00F0oaaiiy;

a - oi/i\x00B3noue;

o - a\x00F0aoiaio ooieoe\x00B3? f(x);

h - e\x00F0ie;

S, S1, S2, S3 -\x00F0iai/\x00B3 ci\x00B3ii\x00B3;

x1=xi+h.

Eiio\x00F0ieueiee i\x00F0eeeaae.



Ooieoe\x00B3y ff(x) ia\x00BA aeaeyae :

Function ff( x:Real ):Real;

Begin ff:=exp(x) END;

No\x00F0oeoo\x00F0a i\x00F0ia\x00F0aie

1-2 - caaieiaie ooieoe\x00B3? oa iien eieaeueieo ci\x00B3iieo;

4-11 - ia/eneaiiy ca oi\x00F0ioeaie (2) \x00B3 (3)

I\x00F0ia\x00F0aia. \x00B2ioaa\x00F0ae ca N\x00B3iiniiii.

FUNCTION FF(X:REAL):REAL;

BEGIN FF:=EXP(X) END;

FUNCTION Simpson(a,b,e:real):real;

var h,S,S1,S2,S3,X,X1:REAL;

BEGIN

S2:=1E+30;H:=B-A;S:=FF(A)+FF(B);

REPEAT

S3:=S2;H:=H/2;S1:=0;X1:=A+H;

WHILE(X1>B)=(H<0) DO

BEGIN S1:=S1+2*FF(X1);X1:=X1+2*H;