Pascal
Светофор с заданным интервалом меняет свой цвет (Красный-Желтый-Зеленый-Желтый) несколько раз. В конце программы "зажигается" фраза "Соблюдайте правила дорожного движения"
Ответы
Ответ дал:
0
Ответ: Вот держи...не знаю это ли ты хотел
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад