вот кусочек проги, есть вопрос,я записала его как комментарии в программе.
Procedure Integral(xn,xk:real; var S:real;f1:RealFunctionType);
const n=1000;
var x,dx:real;
begin
dx:=(xk-xn)/n;
x:=xn;
S:=0;
while x<xk do
begin
S:=S+(f1(x)+f1(x+dx))/2*dx; <=== {здесь должно быть может S:=S+(f1(x/2)+f1(x/2+dx))/2*dx;???}
x:=x+dx;
end;
end;
{$F+}
Function MyFunc(x:real):real;
begin
MyFunc:=(x/2+5)*cos(x/2)
end;
{$F-}
М | Выбирай правильные теги, пожалуйста. Lapp |