Question

Срочно! напишите программу на языке паскаль, чтобы там получался светофор (не мигающий, но цветной)​

Answer 1

Ответ:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016

uses GraphABC;

begin

 SetFontColor(clRed);

 SetFontSize(16);

 TextOut(50,50,'Красный свет - дороги нет!');

 Pen.Width:=3;

 DrawRectangle(140,100,240,300);

 Pen.Width:=1;

 Brush.Color:=clRed;

 Circle(190,150,20);

 Brush.Color:=clYellow;

 Circle(190,200,20);

 Brush.Color:=clLightGreen;

 Circle(190,250,20);

end.

Answer 2

Конечно, вот пример программы на языке Pascal для создания светофора:

pascalCopy code
program TrafficLight;

uses
  crt;

const
  Red = 12;
  Yellow = 14;
  Green = 10;
  DelayTime = 1000; // Время задержки в миллисекундах

procedure TurnOnLight(color: Integer);
begin
  TextBackground(color);
  clrscr;
  delay(DelayTime);
end;

begin
  clrscr;
  writeln('Traffic Light Simulator');
  while not keypressed do
  begin
    TurnOnLight(Red);
    TurnOnLight(Yellow);
    TurnOnLight(Green);
  end;
end.

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

Примечание: Этот код может работать только в среде, поддерживающей модуль CRT, такую как Turbo Pascal. Современные версии Pascal, такие как Free Pascal, могут не поддерживать этот модуль.