Ошибка в задаче

[mrX91]

Все доброго времени суток! У меня ошибка в задаче, в чем проблема, помогите пожалуйста.

const
	a=-2;
	b=8;
	e=0.0001;
Function func (x:real):real;
begin
func:=2*sin(x+1)-(0.5*x*x)+1;
end;

{вычисляет интеграл для заданного кол-ва отрезков}
Function integral(n0:integer):real;
var
	dx:real;
	x:real;
begin
	dx:=(b-a)/n0;
	x:=a;
	integral:=0;
	while (x<=(b-dx)) do
	begin
		integral:=integral+(dx/2)*(func(x)+func(x+dx));
		x:=x+dx;
	end;
end;


var
	n0,n1:integer;
	i0, i1:real;
	err:real;
begin

	n0:=5;
	n1:=n0*2;
        err:=1;
	while (err > e) do
	begin
		i0:=integral(n0);
		i1:=integral(n1);
		err:=abs(i1-i0)/3;
		n0:=n1;
		n1:=n0*2;
	end;

	writeln('Integral = ', i1:5:10);

end.

[ACE Valery]

какая ошибка? какая задача?

[mrX91]

ошибка в этой строчке
begin
integral:=integral+(dx/2)*(func(x)+func(x+dx));
Сама задача по ссылке т.к задание объемное..

[Stilet]

Тоже не вижу ошибок. Вот результ:

Integral = -73.7638671585

Какая ошибка? Текст ее какой? Ты в каком компиляторе компилируешь?
Может тебе нужно писать

	Result:=0;
	while (x<=(b-dx)) do
	begin
		Result:=Result+(dx/2)*(func(x)+func(x+dx));
		x:=x+dx;
	end;

[mrX91]

[Error] Project2.dpr(25): Not enough actual parameters

Делаю через Delphi 7 (Application Consol).
Если у Вас ошибок нет задача то хоть правильная?

[Stilet]

Делаю через Delphi 7 (Application Consol).

А зачем же ты эту тему в раздел о Паскале запостил?
В Делфи меняй на Result, и запомни сокрытие текстов ошибок = неуважение к форумчанам

[mrX91]

Мои сори, я как бы предполагал что все равно это считается как Паскаль

[mrX91]

теперь:

[Warning] Project2.dpr(49): Variable 'i1' might not have been initialized

и выходит окно с ошибкой

[Stilet]

[Warning]

Это не ошибка.

и выходит окно с ошибкой

Значит устрой пошаговку. Нажимай F7 пока не попадешь на строку где падает программа.

[ACE Valery]

Сама задача по ссылке т.к задание объемное..

И что? Скопипастить сложно? Кто будет качать непойми какие архивы? Может, там вирус? В конце-концов, кому помощь нужна-то?