Андрей, насколько я в курсе,
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.
Источник: www.programmersforum.ru
Используя модуль Graph ABC, нарисуем дом
Некоторые команды библиотеки GraphABC
После запуска PascalABC, по умолчанию, запускается текстовый режим. Для работы с графикой служит отдельное графическое окно. Чтобы его открыть, необходимо подключить модуль GraphABC.
В этом модуле содержится обширный набор процедур и функций, предназначенных для работы с графическим экраном, а также некоторые встроенные константы и переменные, которые могут быть использованы в программах с графикой. С их помощью можно создавать разнообразные графические изображения и сопровождать их текстовыми надписями. Подключение осуществляется в разделе описаний.
Формат подключения модуля GraphABC:
uses GraphABC;
Начало координат графического окна модуля находится в верхнем левом углу. Ось x направлена вправо, а ось y — вниз. Координаты исчисляются в пикселях.
Все команды библиотеки GraphABC являются подпрограммами и описаны в виде процедур и функций. Для того, что бы команда выполнилась необходимо указать команду и задать значения параметрам.
Некоторые команды библиотеки GraphABC
Пример программы, рисующей окружность в квадрате
program graf_1;
uses graphABC;
begin
SetWindowSize(300,300); //установка размера окна
SetPenColor(clred); // установка цвета линий
SetPenStyle(psdash); // установка стиля линий
SetPenWidth(10); // установка толщины линий
Rectangle(50,50,250,250); // рисование прямоугольника
Circle(150,150,50); // рисование окружности
Знакомство с модулем Graph ABC
end.
Результат выполнения программы
Источник: megalektsii.ru
Как сделать подобие кнопки в GraphABC? — PascalABC.NET
Т.е. так, что бы событие происходящее по нажатию мышки, происходило только в том случае, когда курсор в это время попадает в некоторую прямоугольную область. Справку читала, но не придумала, как это реализовать.
Код к задаче: «Как сделать подобие кнопки в GraphABC?»
Листинг программы
uses graphABC; var x1,y1,x2,y2:integer; procedure MouseDown(x,y,mousebutton: integer); begin if(x in [x1..x2])and(y in [y1..y2]) then begin setpencolor(clBlue); setbrushcolor(clBlue); circle(200,200,100); end; end; begin x1:=10; y1:=440; x2:=120; y2:=470; setpencolor(clGreen); setbrushcolor(clGreen); rectangle(x1,y1,x2,y2); onmousedown:=MouseDown; end.
Источник: studassistent.ru