Добрый день.
Я написал код в 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.
|
то паскаль выведет пустой экран.
Как Вы думаете, в чём может быть проблема?
