паскаль.Как подключить модуль ''graph'' в паскале abc?

[AndrewPl]

Как подключить модуль ''graph'' в паскале abc?

[DoDge_VipeR]

Как подключить модуль ''graph'' в паскале abc?

uses GraphABC;

[AndrewPl]

спасибо,а почему теперь выбивает в строке "grDriver:=Detect;" - "неизвестный идентификатор"?

[p51x]

grDriver объявлен?

[AndrewPl]

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

grDriver объявлен?

нет,просто у меня на t p 7.1 работает,а на этом выбивает ошибку вышенаписаную ((((

[DoDge_VipeR]

в паскале abc это

grDriver:=Detect;

не нужно

[AndrewPl]

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

в паскале abc это
не нужно

он тогда пишет тоже самое на "InitGraph"(((

[AndrewPl]

????????????????

[Serge_Bliznykov]

Андрей, насколько я в курсе,
TurboPascal и PascalABC не совместимы по использованию графического режима!
Т.о. программу, которая у Вас работает в TP, просто так запустить под PascalABC не получится... надо переделывать..

у Вас в папке, куда установлен PascalABC скорее всего есть каталог SAMPLES
посмотрите в нём в каталоге GraphABC примеры программ.

вот, например, один файлик оттуда,
graphic1.pas:

// Процедура drawGraph рисования графика функции в полном окне
uses GraphABC;

type FUN = function (x: real): real;

function f(x: real): real;
begin
  f:=x*sin(x);
end;

// l (logical) - логические координаты
// s (screen) - физические координаты
procedure drawGraph(x1,x2,y1,y2: real; f: FUN);
 var
  xl,xl0,wl,yl,yl0,hl: real;
  xs0,ws,ys0,hs: integer;
 function LtoSx(xl: real): integer;
 begin
   Result:=round(ws/wl*(xl-xl0)+xs0);
 end;
 function LtoSy(yl: real): integer;
 begin
   Result:=round(hs/hl*(yl-yl0)+ys0);
 end;
 function StoLx(xs: integer): real;
 begin
   Result:=wl/ws*(xs-xs0)+xl0;
 end;
 var xi: integer;
begin // drawGraph
  xs0:=0; ys0:=WindowHeight;
  ws:=WindowWidth;
  hs:=WindowHeight;
  xl0:=x1;
  yl0:=y1;
  wl:=x2-x1;
  hl:=-(y2-y1);
  MoveTo(xs0,LtoSy(f(StoLx(xs0))));
  for xi:=xs0+1 to xs0+ws do
    LineTo(xi,LtoSy(f(StoLx(xi))));
end;

begin // program
  SetWindowCaption('График функции');
  drawGraph(0,4*6.28,-23,23,f);
end.

[DoDge_VipeR]

он тогда пишет тоже самое на "InitGraph"(((

в abc не нужна инициализация графики