Cделать в паскале светофор с помощью GraphABC, Ellipse и Rectangle.

Предыдущий
вопрос Следующий
вопрос

Пример кода для создания светофора в Pascal с помощью GraphABC:

uses GraphABC;
begin
SetWindowSize(200, 400);
// Рисуем вертикальные столбы светофора
Rectangle(80, 50, 120, 350);
Rectangle(80, 50, 120, 150); // красный
Rectangle(80, 150, 120, 250); // желтый
Rectangle(80, 250, 120, 350); // зеленый
// Рисуем круглые лампочки для каждого цвета
Circle(100, 100, 20); // красный
Circle(100, 200, 20); // желтый
Circle(100, 300, 20); // зеленый
// Цвета для круглых лампочек
SetBrushColor(clRed);
FloodFill(100, 100, clBlack);
SetBrushColor(clYellow);
FloodFill(100, 200, clBlack);
SetBrushColor(clGreen);
FloodFill(100, 300, clBlack);
end.

Этот код создаст простой светофор с вертикальными столбами и круглыми лампочками для каждого цвета. Вы можете изменить размеры и расположение элементов по своему усмотрению, чтобы нарисовать более реалистичный светофор.