Графика в PascalABC

[verdix]

Есть ли в PascalABC графический модуль? GRAPH он вообще не признает. НУ очень нужно нарисовать.

[Admiral]

verdix, http://pascalabc.net/ru/obuchenie-programmirovaniyu/grafika-grafika-grafika-chast-1.-vvedenie.html
почему в PascalABC нет модуля Graph? Отвечаю, что не мог больше терпеть. Но нет-нет да мелькнет в Интернете на форуме пост какого-нибудь новичка - представляете, настолько плохой PascalABC, что даже графики в нем нет или она там какая-то своя! Не та, что описана в груде книжек по Турбо-Паскалю, а другая!

Вот об этой другой графике мы и поговорим.

[verdix]

Спасибо большое.

[Citromon]

Добрый день.

Я написал код в Pascal 3 и получил вот это изображение.

http://s53.radikal.ru/i141/1010/42/50493d655b76t.jpg (http://s53.radikal.ru/i141/1010/42/50493d655b76.jpg)

Потом я скопировал код в Pascal.Net и получил искажённое изображение.

http://i077.radikal.ru/1010/13/62590679f809t.jpg (http://i077.radikal.ru/1010/13/62590679f809.jpg)

Вот код:


program PR3;
uses graphABC;
begin

setpencolor(clBlue);
arc(315, 164, 96, 45, 45);

setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(219, 164, 411, 260);

setpencolor(clBlack);
line(219, 164, 411, 164);
line(315, 68, 267, 164);
line(315, 68, 363, 164);

setpencolor(clBlue);
line(315, 68, 315, 308);

setpencolor(clRed);
arc(279, 308, 36, 45, 45);

setpencolor(clWhite);
rectangle(24, 260, 315, 308);

end.


Я выяснил, что в PascalABC.Net у меня вообще не получается рисовать окружности. Например, если ввести код


Program jj;
uses graphABC;
begin

setpencolor(clBlack);
arc(315, 164, 96, 45, 45);

end.

то паскаль выведет пустой экран.

Как Вы думаете, в чём может быть проблема?