Составить программу светофор в pascalabc

MATVEI235 MATVEI235    3   21.05.2019 16:30    0

Ответы
bekarys3 bekarys3  16.06.2020 10:52

Изменил... теперь нормально все.

 



uses graphabc,crt;
 var i:integer; h:real;
begin
randomize;
 rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
 circle(300,215,35);
 for i:=1 to 1000 do
 begin
  floodfill(300,55,clred);
  delay(3000);
  floodfill(300,55,clwhite);
  delay(1000);
  floodfill(300,135,clyellow);
  delay(3000);
  floodfill(300,135,clwhite);
  delay(1000);
  floodfill(300,215,clgreen);
  delay(1000);
  floodfill(300,215,clwhite);
   delay(1000);
 end;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика