составь программу для рисования светофора. Сделайте надпись "соблюдайте правила дорожного движения" в программе GraphABC
![](https://st.uroker.com/files/e59/e593b8771facbcff3680d30390a59fa0.jpg)
Ответы
Ответ:
Program TrafficLight;
Uses GraphABC;
Begin
SetWindowSize(400, 600);
SetWindowCaption('Traffic Light');
SetPenWidth(3);
// Рисуем красный сигнал светофора
Brush.Color := clRed;
Circle(200, 100, 50);
// Рисуем желтый сигнал светофора
Brush.Color := clYellow;
Circle(200, 250, 50);
// Рисуем зеленый сигнал светофора
Brush.Color := clGreen;
Circle(200, 400, 50);
// Рисуем надпись "Соблюдайте правила дорожного движения"
SetFontSize(20);
SetFontColor(clBlack);
TextOut(70, 500, 'Соблюдайте правила дорожного движения');
End.
Ответ:
Uses GraphABC;
Begin
SetWindowSize(600,400);
SetFontSize(9);
SetFontColor(clBlack);
TextOut(189, 3, 'Соблюдайте правила дорожного движения!');
SetPenWidth(3);
Rectangle(200,20,400,380);
FloodFill(213,33,clDarkGray);
Circle(300, 100, 47);
FloodFill(300, 100,clRed);
Circle(300, 200, 47);
FloodFill(300, 200,clYellow);
Circle(300, 300, 47);
FloodFill(300, 300,clGreen);
End.
Объяснение:
фото
![](https://st.uroker.com/files/58a/58afbc7c1ae0f879a702dceca4b79b66.png)