Программа рисования графика, не пашет Опции

[Светлана]

помогите пожалуста подредактировать

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.

не работает
рисунок точечный должен получаться

Сообщение отредактировано: Lapp - 17.02.2012 5:58