Задача: задано уравнение прямой. Построить на экране эту прямую. Pascal (материал 11 класса)

uses graph;

var xc, yc, m, x1, y1:integer;

x, y:real;

begin xc:=0;

initgraph (xc, yc,'') ;

xc:=getmaxX div 2;

yc:=getmaxY div 2;

m:=yc div 2;

line (5, yc, getmaxX-5, yc) ;

line (xc-m, yc+3, xc-m, yc-3) ;

outtextXY (xc-m, yc+10,'-1') ;

outtextXY (xc+5, yc+10,'0') ;

line (xc+m, yc+3, xc+m, yc-3) ;

outtextXY (xc+m, yc+10,'1') ;

line (xc, 5, xc, getmaxY-5) ;

line (xc-3, yc-m, xc+3, yc-m) ;

outtextXY (xc-10, yc-m,'1') ;

line (xc-3, yc+m, xc+3, yc+m) ;

outtextXY (xc-15, yc+m,'-1') ;

setcolor (12) ;

line (xc-m, yc, xc, yc-m) ;

line (xc, yc-m, xc+m, yc) ;

line (xc+m, yc, xc, yc+m) ;

line (xc, yc+m, xc-m, yc) ;

x:=-4;

while x<=4 do begin

y:=0.52*x+0.18;

x1:=xc+round (x*m) ;

y1:=yc-round (y*m) ;

putpixel (x1, y1,14) ;

x:=x+0.01;

end;

readln

end.