Составить программу в ABCpascal , которая рисует графический дом и раскрашивает...

0 голосов
52 просмотров

Составить программу в ABCpascal , которая рисует графический дом и раскрашивает его.(9класс)


image

Информатика (34 баллов) | 52 просмотров
0

9 класс - это так важно?

Дан 1 ответ
0 голосов
Правильный ответ

Uses GraphABC;
Begin
SetWindowSize(600, 400);
SetPenWidth(3);
SetBrushColor(clYellow);
Rectangle(40,160,280,380);
SetBrushColor(clSkyBlue);
Rectangle(80,200,240,300);
Line(80,240,240,240);
Line(160,240,160,300);
SetBrushColor(clGreen);
Rectangle(280,320,380,380);
Rectangle(380,340,460,380);
Line(40,160,160,20);
Line(160,20,280,160);
FloodFill(160,80,clMaroon);
SetBrushColor(clBlue);
Circle(160,100,30);
Line(130,100,190,100);
Line(160,70,160,130);
End.
Результат выполнения на рисунке.


image
(14.0k баллов)