Pascal (Паскаль) Графика2

[DRGNforce]

Построить график функции y=x-3/(x*x)+2 на отрезке [-1;5]

[DoDge_VipeR]

сделаю все задания! быстро и недорого - обращайтесь!

[Symbi0S]

uses crt,graph;
const
     mx=20;
     my=20;
     dx=0.1;
var x0,y0,px,py:integer;
  y,x,x1,x2:real;
 i,GD,GM:integer;


procedure  koordsetka;
var kx,ky,j,minusx0,minusy0:integer;
st,stminus:string[3];
begin
x0:=320;
y0:=240;
minusx0:=320;
minusy0:=240;
line(10,y0,630,y0);
line(x0,10,x0,470);
 outtextxy(322,245,'0');
 outtextxy(327,10,'y');
 outtextxy(625,245,'x');

 for j:=1 to 10 do
 begin
 str(j:1,st);
 stminus:='-'+st;
 x0:=x0+mx;
 minusx0:=minusx0-mx;
 line(x0,237,x0,242);
 outtextxy(x0,245,st);
 line(minusx0,237,minusx0,242);
 outtextxy(minusx0-10,245,stminus);

 y0:=y0-my;
 minusy0:=minusy0+my;
 line(318,y0,322,y0);
 outtextxy(325,y0,st);
 line(318,minusy0,322,minusy0);
 outtextxy(325,minusy0-3,stminus);
 end;
 end;



begin
gd:=detect;
INITGRAPH(GD,GM,'D:\PASCAL\BGI');
koordsetka;
x0:=320;
y0:=240;
x1:= -1;
x2:= 5;
x:=x1;
while x<=x2 do
begin
y:= x-3/(x*x)+2;
px:=x0+round(x*mx);
py:=y0-round(y*my);
putpixel(px,py,4);
px:=x0+round(x*mx);
py:=y0-round(y*my);
putpixel(px,py,2);
py:=y0-round(y*my);
putpixel(px,py,2);
x:=x+dx;
end;
readln;
closegraph;
end.