SS
Svetlana Shestakova
Кто может поправить подпрограмму вычисления интеграла методом Симпсона?
Procedure Simps(x,Eps:real; Km:integer; var Int:real; var Er: integer);
var
U,V, Int1, Y1, Yn, S4, S2, H, Del:real;
I,J,K: integer;
begin
Y1:=F(U);
Yn:=F(V);
Int1:=0;
K:=2;
Er:=1;
J:=1;
repeat
if J<=Km then
H:=(V-U)/K;
X:=U+H;
Int:=0;
I:=1;
S4:=0;
S2:=0;
repeat
if ODD(I) then
S4:=S4+F(X) else
S2:=S2+F(X);
Int:=Y1+Yn+4*S4+2*S2;
X:=X+H;
I:=I+1;
until I>=K;
Int:=H*Int/3;
Del:=abs(Int1-Int);
if Del
end;