Question

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

 

 

Answer 1

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

 

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.