подмигивающий супермен не мигает, графика в паскале Опции

[Анастасия]

Не могу найти ошибку. Вроде бы все делала по образцу, и супермен должен подмигивать
правым глазиком, но он не мигает.

Код

program superman;
uses crt,graph;
var dr,dm,x,y,i:integer;
BEGIN
dr:=detect;
initgraph(dr,dm,'d:\bp70\bgi');
SETCOLOR(2);
ellipse(290,250,0,360,120,70);
line(290,230,330,185);
line(290,230,250, 185);
arc(170,250,75,270,15);
arc(410,250,270,92,15);
arc(350,235,60,140,19);
arc(230,235,60,140,19);
arc(290,250,0,180,10);
arc(290,250,210,330,30);


circle(230,235,11);
circle(230,235,5);
circle(350,235,11);{Правый глазик}
circle(350,235,5);


for i:=1 to 10 do
begin
setcolor(0);
circle(350,235,11);{Правый глазик}
circle(350,235,5);
delay(500);

setcolor(2);
line(350,235,360,235);
delay(500);

setcolor(0);
line(350,235,360,235);
delay(500);

setcolor(2);
circle(350,235,11);{Правый глазик}
circle(350,235,5);
delay(500);
end;
readln;
closegraph;
END.

Не надо дублировать темы!

Сообщение отредактировано: APAL - 28.02.2006 0:37

[Lapp]

супермен должен подмигивать правым глазиком, но он не мигает.

Да, почему-то мигает левым.. Может, он левша?

Если серьезно, то у меня он мигает (только тем глазом, что обычно у людей надывается "левый"). Мигает 10 раз, как и положено в твоем цикле, а потом перестает.
Я компилировал и запускал в FPC - а ты в чем?

Проблема может быть в Delay. Возможно, что он отрабатывает слишком быстро, и мигания просто невозвожно заметить. Если он выходит из программы по нажатии Enter (то есть доходит до ReadLn), то так оно скорее всего и есть. Попробуй поварьировать значение (например, 5000) или поставить вместо него простой ReadLn (задержка до нажатия Enter). Кроме того, увеличь предел в цикле (пусть мигает раз 100 или больше).

[Анастасия]

Я компилировал и запускал в FPC - а ты в чем?
Проблема может быть в Delay.

К сожалению, не знаю , что такое FPC. Проблема оказалась в delay(5000)-я поставила и он
замигал левым глазиком. Спасибо за помощь.