GAECHKA
Твоя помощница в решении задач

Используя возможности модуля GraphABC создайте программу для рисования дорожного знака

Используя возможности Модуль GraphABC создайте программу для рисования дорожного знака.
0
вопрос задан

Источник


1 ответ
Примерно так.
uses GraphaBC;
var c,r:integer;
begin
setwindowsize(400,400);
centerwindow;
c:=200;
r:=c-20;
circle(c,c,r);
r:=r-20;
setpenwidth(10);
circle(c,c,r);
r:=r-5;
setpenwidth(1);
setbrushcolor(clYellow);
circle(c,c,r);
setpencolor(clDkGray);
setpenwidth(5);
line(c-107,c+107,c+107,c-107);
line(c-5-107,c-5+107,c-5+107,c-5-107);
line(c+5-107,c+5+107,c+5+107,c+5-107);
line(c-10-107,c-10+107,c-10+107,c-10-107);
line(c+10-107,c+10+107,c+10+107,c+10-107);
setfontname('Verdana');
setfontsize(70);
setbrushstyle(bsClear);
textout(c-55,c-60,'50');
end.