Сделай программу которая рисует светофор в Паскаль АБС

Чтобы создать программу, которая рисует светофор на языке Паскаль с использованием библиотеки АБС (Адаптированная библиотека Си), необходимо использовать графические функции. Давайте рассмотрим пример кода, который рисует светофор с тремя кругами разных цветов.

Вот пример программы:

program Svetofor;
uses 
  ABC;

begin
  ClearWindow; // очищаем окно
  
  // Рисуем красный круг (светофор)
  SetColor(Red);
  SetBrushColor(Red);
  Circle(150, 100, 30); // координаты центра (150, 100) и радиус 30

  // Рисуем желтый круг (светофор)
  SetColor(Yellow);
  SetBrushColor(Yellow);
  Circle(150, 150, 30); // координаты центра (150, 150)

  // Рисуем зеленый круг (светофор)
  SetColor(Green);
  SetBrushColor(Green);
  Circle(150, 200, 30); // координаты центра (150, 200)
  
  // Рисуем корпус светофора
  SetColor(Black);
  SetBrushColor(Black);
  Rectangle(120, 70, 180, 230); // координаты верхнего левого и нижнего правого угла

  SetBrushColor(White);
  Rectangle(125, 75, 175, 225); // внутренний белый прямоугольник светофора

  // Завершение программы
  Readln; // ждём нажатия клавиши
end.

Пояснение к коду:

1. ClearWindow — очищает графическое окно перед началом рисования.
2. SetColor & SetBrushColor — устанавливает цвет для рисования и заливки.
3. Circle — функция для рисования кругов; принимает координаты центра и радиус.
4. Rectangle — рисует прямоугольники; задаются координаты двух углов.
5. Readln — позволяет программе ожидать нажатия клавиши, чтобы окно не закрылось сразу после рисования.

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

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