Графика в PascalABC

Admiral · Отправлено: **00:53, 04-02-2009** | #2

verdix, http://pascalabc.net/ru/obuchenie-pr...-vvedenie.html

Цитата:

почему в PascalABC нет модуля Graph? Отвечаю, что не мог больше терпеть. Но нет-нет да мелькнет в Интернете на форуме пост какого-нибудь новичка - представляете, настолько плохой PascalABC, что даже графики в нем нет или она там какая-то своя! Не та, что описана в груде книжек по Турбо-Паскалю, а другая!

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

verdix · Отправлено: **01:18, 04-02-2009** | #3

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

Citromon · Отправлено: **16:06, 12-10-2010** | #4

Добрый день.

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

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

Вот код:

Цитата:

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.

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

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