Помогите сделать в Паскале мигающий светофор (graphabc) Чтобы он норм работал

Question

Помогите сделать в Паскале мигающий светофор (graphabc)
Чтобы он норм работал

Comments

При каком событии он должен мигать?

---

Ну учитель сказал, вести допольнительную букву (n), чтобы по очереди шло

---

Ясно, цикл. Весело.

---

Вот и дело, что мы цикл не проходили. Хз вообще

---

Он сказал, обозначить типо 1,2,3 внести дополнительную букву..

---

Зачем было так усложнять? "Буква", как я поняла, это переменная.

---

Да-да переменная. Ну потому что циклы еще не переходили..

---

Я светофор сделала

Answer 1

//обошлись без лишних переменных
uses graphABC;
begin;
Circle(100,100,50);
Circle(100,200,50);
Circle(100,300,50);
while true do
begin;
floodfill(100,100,clred);
sleep(1000);
floodfill(100,100,clwhite);
floodfill(100,200,clyellow);
sleep(1000);
floodfill(100,200,clwhite);
floodfill(100,300,clgreen);
sleep(1000);
floodfill(100,300,clwhite);
end;
end.

Comments

Спасибо!!!!!