uses GraphABC;
var x0,y0:integer;
my,x1,x2, py,dx,y,x,px,mx:real;
begin writeln('x=');
readln(x);
x1:=-15;
x2:=5;
dx:=0.1;
x:=x1;
while x<x2 do
y:=0.5*sqr(x)+4*x-3;
px:=x0+x*mx;
py:=y0-y*my;
putpixel(px,py,4);
x:=dx;
void main
int gdriver=detect;
int gmode;
int errorcode;
initgraph(&gdriver,&gmode,pathtodriver);
errorcode=graphresult;
if (errorcode !=gr0k
print("ошибка",errorcode);
puts ("для завершения программы нажмите<enter>");
getch;
return;
grafik;
getch;
closegraph;
end;
writeln ('y=',y);
readln;
end.
не работает
рисунок точечный должен получаться