Паскаль построение графика

[MIKE11IPME]

при построении графика вылетает ошибка инвалид флоатин поинт оперейшн
график 1/(x*x)
ошибка в строке
line(x00+round(x1*20*kq),y00-round(y1*20*kq),x00+round(x*20*kq), y00-round(y*20*kq));

сама программа

program lab5;
uses graph,crt;
var gb,f,gm:Integer;
k,x0,y0,g:real;
t:char;



procedure showgraph(const xq,yq,kq:real);
var x,y,x1,y1,dx:real;
i,x00,y00,j,p,q:integer;
begin
setcolor(15);
setlinestyle(0,0,1);
x00:=round(xq);
y00:=round(yq);
x:=-57;
dx:=0.001;
cleardevice;
line(10,y00,getmaxX-10,y00);
line(x00,10,x00,getmaxY-10);
line(x00,10,x00-5,15);
line(x00,10,x00+5,15);
line(x00-5,15,x00+5,15);
line(getmaxX-10,y00,getmaxX-15,y00-5);
line(getmaxX-10,y00,getmaxX-15,y00+5);
line(getmaxX-15,y00+5,getmaxX-15,y00-5);
f:=0;
while (f<getmaxX*5) do
 begin
 line(round(f*kq),y00+3,round(f*kq),y00-3);
 inc(f,10);
 end;
f:=0;
While (f<getmaxY*5) do
 begin
 line(x00+3,round(f*kq),x00-3,round(f*kq));
 inc(f,10);
 end;
outtextxy(getmaxX-15,y00+10,'X');
outtextxy(x00-15,10,'Y');
outtextxy(x00-10,y00+5,'0');
j:=8;
p:=1;
q:=15;
setcolor(2);
{AsiptotbI}
setlinestyle(3,3,3);
line(x00,0,x00,getmaxY);
g:=kq;
x:=-57;
i:=-9;
while x<57 do
begin
if x<>0 then
begin
y:=1/(x*x);
if (ABS(y1-y)>0) and (ABS(x1-x)<1) then
begin
setcolor(14);
setlinestyle(0,0,1);
line(x00+round(x1*20*kq),y00-round(y1*20*kq),x00+round(x*20*kq),y00-round(y*20*kq));
end;
y1:=y;
x1:=x;
end;
x:=x+dx;
end;
end;

begin

g:=1;
gb:=0;
initgraph(gb,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
k:=1;
showgraph(x0,y0,k);
repeat
t:=Readkey;
case t of
#50:begin
y0:=y0-50;
showgraph(x0,y0,k);
end;
#52:begin
x0:=x0+50;
showgraph(x0,y0,k);
end;
#54:begin
x0:=x0-50;
showgraph(x0,y0,k);
end;
#56:begin
y0:=y0+50;
showgraph(x0,y0,k);
end;
#43:begin
k:=k*2;
k:=k*2;
showgraph(x0,y0,k);
end;
#45:begin
k:=k/2;
k:=k/2;
showgraph(x0,y0,k);
end;
end;
until t=#48;
closegraph;
end.

[Novenkaja]

MIKE11IPME

привет,а можешь конкретно мой пример решить?
мне очень нужен он до завтра,я что-то в программе написала,компайл есть,а ран ничего....
очень нужны пункты...

[MIKE11IPME]

y:=1/(x*x); строчка в программе
заместо этой функции , напиши свою и попробуй запустить
намлок включаешь и 4 6 2 8 , двигают график , 0 выход + - уменьшение , увеличение
доп клавиатура типа как калькулятор

[Novenkaja]

а ты не мог бы пожалуйста это сделать???
само задание я тут выложила,моё смс идёт сразуц под твоим,оно ещё с вопросиком....
я просто уже физически немогу,до этого ещё делала задания по прог
осталось толкьо это
сделай пожалуйста

к тому же со слов намок-я ничего не поняла,что ты хотел сказать

[Novenkaja]

ты где?
помоги пожалуйста)))

[MIKE11IPME]

в твоей теме , а по сути то эт тож я кое кому делаю -_-

[Novenkaja]

я там тебе ответила

[MIKE11IPME]

а мб мне кто поможет =D?

[Novenkaja]

я бы с радостью помогла бы,но не знаю чем...
у меня ток одна пока проблема-прог
я тебе там написала

[MIKE11IPME]

Да хоть ктот ну подскажите где тут ошибка ?