Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Флейм (http://forum.oszone.net/forumdisplay.php?f=16)
-   -   Графика в PascalABC (http://forum.oszone.net/showthread.php?t=130866)

verdix 04-02-2009 00:19 1028892

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

Admiral 04-02-2009 00:53 1028908

verdix, http://pascalabc.net/ru/obuchenie-pr...-vvedenie.html
Цитата:

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

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

verdix 04-02-2009 01:18 1028914

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

Citromon 12-10-2010 16:06 1517196

Добрый день.

Я написал код в 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.
то паскаль выведет пустой экран.

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


Время: 06:17.

Время: 06:17.
© OSzone.net 2001-