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

[Светлана]

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

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

[-Федосеев Павел-]

Даже более того:
здесь половина на PascalABC, а половина на C.
Обалдеть...

Светлана, ты самостоятельно хочешь реализовать программу?

Тогда посмотри по форуму или в учебниках инициализацию графического режима:

Код

USES
  Graph;
................
BEGIN
  GraphDrv:=Detect;
  GraphMode:=Detect;
  PathToBGI:=''; {путь к файлам "*.bgi" - а конкретно (в современном мире) к "egavga.bgi"}
  InitGraph(GraphDrv, GraphMode, PathToBGI);
  ErrorCode:=GraphResult;
  if ErrorCode<>grOK
  then begin
    WriteLn('Графическая ошибка: ', GraphErrorMsg(ErrorCode));
    Halt(1);
  end;
  Xmax:=GetMaxX; {получение размеров графического экрана в точках}
  Ymax:=GetMaxY; { для вычисления масштаба графика}
.................

После этого поэкспериментируй для себя с рисунками точек, линий, окружностей...
Далее строишь график...