[funky_haska]

спасибо! графики работают, все круто!
теперь появляется вот такое сообщение и выделяется f2

project project1.exe raised exception class EOverflow with message "Floating point overflow". Process stopped. Use step or run to continue

я понятия не имею, что это может означать - помогите пожалуйста

вот код программы:

Код:

function f1(x,y:real):real;
begin
f1:=sin(x+y)-1.5*x;
end;

function f2(x,y:real):real;
begin
f2:=power(x, 2)+power(y, 2)-1;
end;

procedure TForm1.N1Click(Sender: TObject);    //графики
var x,y:real;
begin
Series1.Clear;
x:=-5;
while x<=5 do
begin
Series1.AddXY(x,f1(x,y));
x:=x+e;
end;
Series2.Clear;
x:=-5;
while x<=5 do
begin
Series2.AddXY(x,f2(x,y));
x:=x+e;
end;
end;

procedure TForm1.N2Click(Sender: TObject);   //метод Гаусса-Зейделя
var k,x,y,xn,yn:real;
begin
k:=0;
x:=strtofloat(Edit6.Text);
y:=strtofloat(Edit7.Text);
yn:=f1(x,y);
xn:=f2(x,y);
repeat
k:=k+1;
x:=xn;
y:=yn;
yn:=f1(xn,y);
xn:=f2(x,y);
until (abs(x-xn)<e) and (abs(y-yn)<e);
Edit4.Text:=floattostr(xn);
Edit5.Text:=floattostr(yn);
Edit8.Text:=floattostr(k);
end;


procedure TForm1.N3Click(Sender: TObject); //Метод Якоби
var x,y,xn,yn:real; k:integer;
begin
x:=strtofloat(Edit6.Text);
y:=strtofloat(Edit7.Text);
xn:=f2(x,y);
yn:=f1(x,y);
repeat
k:=k+1;
x:=xn;
y:=yn;
yn:=f1(x,y);
xn:=f2(x,y);
until (abs(x-xn)<e) and (abs(y-yn)<e);
Edit2.Text:=floattostr(xn);
Edit3.Text:=floattostr(yn);
Edit1.Text:=floattostr(k);
end;


procedure TForm1.N4Click(Sender: TObject);
begin
Form1.Close;
end;

end.