[Vlad111]

Тестил функции.Всё вроде нормально.Всё запускается
Но при нажатии на 'батон' выдает:

Project Project1.exe raised exception class EInvalidOp with message 'Invalid floating point operation'. Process stopped. Use Step or Run to continue

Не могу дорубиться-что он от меня хочет???
Вот код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s,h,x,CYM:real;
function integral(f,a,b:real;n:integer):real;
var
s1,s2:real;
i:integer;
begin
h:=(b-a)/n;
x:=a;
s1:=f;
x:=b;
s2:=f;
x:=a+h;
s:=(s1+s2)/2;
for i:=1 to n-1 do
begin
s:=s+f;
x:=x+h;
end;
s:=h*s;
end;
function fk1(z:real):real;
begin
Result:=z*z*sqrt(1-z*z)+z*z*sqrt(1-z*z);
end;

begin
CYM:=integral(fk1(x),0,1,80);

Edit1.Text:=Floattostr(CYM);
end;

end.

lmikle: пользуемся тегами