Побудова кривих регресій методом парабол

if abs(cv-y*m)<32500 then

lineto(round(ch+abs(x)*m),round(cv-y*m));

end;

outtextxy(30,30,'graphic');

{маштабування графўка}

repeat

chr:=readkey;

case ord(chr) of

{збўльшення графўка}

43:begin

case m of

400:outtextxy(40,40,'no more big');

10..390:begin

m:=m+10;

v:=20*trunc(400/m);

break;

end;

end;

end;

{зменшення графўка}

45:begin

case m of

10:outtextxy(40,40,'no more small');

10..1000:begin

m:=m-10;