uses Graph, Crt;
{$R-}
var d, e, r, i: Integer;
x,dx,x1,x2,y:real;
mx,my,x0,y0,px,py:longint;
begin
d:= Detect;
InitGraph (d, e, 'd:\tpascal\Bgi');
r:= GraphResult;
If r <> GrOk then
begin
WriteLn (GraphErrorMsg(r));
ReadLn;
Exit;
end;
x0:=320; y0:=240;
mx:=160; my:=10;{масштаб по Х = 640/4=160, по У=любой}
line(10,y0,630,y0);
line(x0,19,x0,470);
x1:=-3.2;
x2:=3.2;
dx:=0.001;
x:=x1;
while (x<x2) do
begin
А дальше чет я в тупике
