Question

составь программу для рисования светофора. Сделайте надпись "соблюдайте правила дорожного движения" в программе GraphABC ​

Answer 1

Ответ:

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.

Answer 2

Ответ:

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.

Объяснение:

фото