TurboPascal сбрасывает в режиме Graph

[Foxtrot_1]

Добрый вечер уважаемые форумчане! TurboPascal сбрасывает в режиме Graph.

program grph;

uses graph;

var
  gdriver, gmode, errorcode, w, h: integer;
  x0, y0, x1, y1, x2, y2, i, j, x, y: integer;
  fx1, fx2, fy1, fy2, m: real;

function f1(x: real): real;
begin
  f1:=Sin(x);
end;

function f2(x: real): real;
begin
  f2:=Cos(x-1)+Abs(x);
end;

begin
  gdriver:=DETECT;
  initgraph(gdriver, gmode, '..\BGI');
  errorcode:=graphresult;
  if errorcode <> grOK then
    begin
      writeln('Press any key to exit...');
      readln;
      exit;
    end;
  setbkcolor(0);
  cleardevice;
  w:=getmaxx;
  h:=getmaxy;
  m:=40;
  x0:=w div 2;
  y0:=h div 2;
  setcolor(7);
  line(x0, 0, x0, h);
  line(0, y0, w, y0);
  x:=1;
  repeat
    x1:=x0+(x*round(m));
    x2:=x0-(x*round(m));
    line(x1, y0-3, x1, y0+3);
    line(x2, y0-3, x2, y0+3);
    inc(x);
  until
    (x1>w) or (x2<0);
  y:=1;
  repeat
    y1:=y0+(y*round(m));
    y2:=y0-(y*round(m));
    line(x0-3,y1,x0+3,y1);
    line(x0-3,y2,x0+3,y2);
    inc(y);
  until
    (y1>h) or (y2<0);
  setcolor(9);
  for x:=1 to w do
    begin
      fx1:=(x-1-x0)/m;
      fy1:=f1(fx1);
      fx2:=(x-x0)/m;
      fy2:=f1(fx2);
      y1:=y0-round(fy1*m);
      y2:=y0-round(fy2*m);
      line(x-1,y1,x,y2);
    end;
  setcolor(6);
  for x:=1 to w do
    begin
      fx1:=(x-1-x0)/m;
      fy1:=f2(fx1);
      fx2:=(x-x0)/m;
      fy2:=f2(fx2);
      y1:=y0-round(fy1*m);
      y2:=y0-round(fy2*m);
      line(x-1,y1,x,y2);
    end;
  readln;
  closegraph;
end.

[NSvirus]

Попробуй FreePascal

[Foxtrot_1]

Тот вообще не хочет компилировать

[Sazary]

Сообщение от Foxtrot_1

Тот вообще не хочет компилировать

Так прямо и говорит "не хочу и точка!"?

У меня все компилится и работает.

[Doholyan]

Работает прога!
Правда я её не понял" НАжать клавишу для выхода"
Но компилятор....в норме.

[Sazary]

Сообщение от Doholyan

Правда я её не понял" НАжать клавишу для выхода"

Если это все, что она у вас делает, значит произошла ошибка при инициализации графического режима.
Программа выводит два графика.

[Doholyan]

Но ты же писал что она не компелирует!!!
А, ошибка в таком случии, проиходит из за твоей внутренней ошибки то есть "тело программы"

попробуй пропиши полный путь!!!!!!!!!!!!!!!!!!

begin
gdriver:=DETECT;
initgraph(gdriver, gmode, '..\BGI');<<<ВОТ Здесь!
errorcode:=graphresult;
if errorcode <> grOK then

[Sazary]

Сообщение от Doholyan

Но ты же писал что она не компелирует!!!

Вы это кому написали? )
В FPC никаких проблем нет.

ps И используйте кнопку "правка" для добавления к посту.

[Doholyan]

)))Этому писал Foxtrot_1!
Как пользываться правкой? подскажи не понял
бла..бла бла

[Sazary]

Сообщение от Doholyan

Как пользываться правкой? подскажи не понял

Посмотрите справа снизу своего поста. Там есть кнопка "правка". Нажав на нее вы можете редактировать ваше сообщение.