Question

Pascal Светофор с заданным интервалом меняет свой цвет (Красный-Желтый-Зеленый-Желтый) несколько раз. В конце программы "зажигается" фраза "Соблюдайте правила дорожного движения"

Answer 1

Ответ: Вот держи...не знаю это ли ты хотел

uses graphABC;

begin

setwindowsize(400,500);  

rectangle(100,50,300,450);

floodfill(101,51,clGray);

circle(200,150,40);

circle(200,250,40);

circle(200,350,40);

for var i:=1 to 1 do begin

   floodfill(200,150,clred);

   sleep(2000);

   floodfill(200,150,clwhite);

   floodfill(200,250,clyellow);

   sleep(2000);

   floodfill(200,250,clwhite);

   floodfill(200,350,clgreen);

   sleep(2000);

   floodfill(200,350,clwhite);

   floodfill(200,250,clyellow);

   sleep(2000);

   floodfill(200,250,clwhite);

 end;

 Font.color :=clred;

 Font.Size := 11;

 textOut(0,15,'    СОБЛЮДАЙТЕ ПРАВИЛА ДОРОЖНОГО ДВИЖЕНИЯ');

end.

Answer 2

Для создания программы, описанной вами, вам нужно использовать язык программирования Pascal. Вот пример программы, которая реализует данное поведение:

pascalCopy code
program TrafficLight;

uses
  crt, dos;

const
  Interval = 1000; // Интервал между сменой цветов (в миллисекундах)
  NumCycles = 3;   // Количество циклов смены цветов

var
  Cycle, TimePassed: integer;

procedure ChangeColor(Color: string);
begin
  clrscr;
  writeln('Светофор переключается на цвет: ', Color);
  delay(Interval);
end;

begin
  Cycle := 0;
  TimePassed := 0;

  repeat
    // Красный свет
    ChangeColor('Красный');
    // Желтый свет
    ChangeColor('Желтый');
    // Зеленый свет
    ChangeColor('Зеленый');
    // Желтый свет
    ChangeColor('Желтый');

    Inc(Cycle);
  until Cycle = NumCycles;

  writeln('Соблюдайте правила дорожного движения');
end.

В этой программе используется язык Pascal, и она реализует вашу задачу. Программа сначала объявляет необходимые переменные и процедуру ChangeColor, которая будет отображать текущий цвет светофора и ждать заданный интервал.

Затем программа входит в главный цикл, который повторяется NumCycles раз. Внутри цикла происходит смена цветов: красный, желтый, зеленый, желтый. После завершения всех циклов выводится фраза "Соблюдайте правила дорожного движения".

Надеюсь, это помогает! Если у вас есть еще какие-то вопросы, пожалуйста, дайте знать.