Код:
begin
1 N:=2;
2 t:=(p-a)/(2*N);
3 Sum1:=(F(a)+F(p))/3*t;
4 for i:=1 to N do
5 Sum1:=Sum1+4.0*t/3.0*F(a+t*(2*i-1));
6 for i:=2 to N do
7 Sum1:=Sum1+2.0*t/3.0*F(a+t*(2*i-2));
8 Sum2:=Sum1;
9 Repeat
10 Sum1:=Sum2;
11 N:=N*2;
12 t:=(p-a)/(2*N);
13 Sum2:=(F(a)+F(p))/3*t;
14 for i:=1 to N do
15 Sum2:=Sum2+4.0*t/3.0*F(a+t*(2*i-1));
16 for i:=2 to N do
17 Sum2:=Sum2+2.0*t/3.0*F(a+t*(2*i-2));
18 Until ABS(Sum2-Sum1)<Eps;
19 Simpson:=Sum2;
20 end;
Спасибо за разъяснение, но многое мне, конечно, не понятно
Кстати и препод сказал, что вы ошиблись хех, да да... а именно в строчке - 7, опираясь на формулу сказал, что "-2" не должно там быть и попросил меня понять как работает весь этот цикл > объяснить ему > сдать, ибо мое объяснение его не особо удовлетворило. Объясните, пожалуйста, все строчки, если вас не затруднит, ибо в методе симпсона и в самих интегралах я не очень, желательно разжевав) Еще раз огромное спасибо)