Движение предметов Опции

[Spaun]

Составить программу в графическом режиме, в которой по наклонной катится окружность.

program speed;
uses crt, graph;
var
    gd,gm:integer;
begin
    gd:=VGA;
    gm:=VGAhi;
initgraph (gd,gm,'C:\BP\BGI');
if graphresult =grOk then
begin
line (0,0,639,479);
circle (15,20,15);
...
end;
end.

Вот на что меня хватило, может кто подскажет как сделать иллюзию движения

[Spaun]

Вот полный код программы:

program speed;
uses crt,graph;
var gd,gm,x:integer;
begin
  gd:=VGA;
  gm:=VGahi;
initgraph(gd,gm,'');
  x := 0;				
while x < 640 do begin			
  line (0,0,639,479);		
  circle (x, (3 * x) div 4, 15); 	
  x := x + 10;	 		
  delay(1000);			
cleardevice;
end;			
closegraph;
readkey;
end.

Не работае мерцает курсор в верхнем левом углу и все.
Компилятор из tp7 вроде...
У кого не спрашивал говорят работает, возможно это проблемы с компилятором, но как их решить? если кто может выложите пожалуйста рабочий код.

Сообщение отредактировано: Spaun - 30.11.2008 23:13

[Lapp]

Не работае мерцает курсор в верхнем левом углу и все.
Компилятор из tp7 вроде...
У кого не спрашивал говорят работает, возможно это проблемы с компилятором, но как их решить? если кто может выложите пожалуйста рабочий код.

Код - рабочий, тебе уже несколько раз сказали.
С компилятором тоже все должно быть ок, если остальные проги работают.
Такое (мигающий курсор) может быть, если программа слишком быстро проскакивает (быстрее, чем твой монитор переключается в граф. моду), и срабатывает CloseGraph. Попробуй сделать следующее:

1. Переставь местами ReadKey и CloseGraph. Это вообще, надо сказать, нонсенс, выполнять задержку после закрытия графики. Что ты собирался увидеть? Надо задерживать ДО выхода из графики.

2. Переставь ClearDevice в НАЧАЛО цикла (сразу за while). Иначе ты все сотрешь и все равно ничего не увидишь.

3. Увеличь задержку. Хотя, она у тебя и так большая, но все же увеличь. Сделай 10000 вместо 1000.

А прежде всего, вообще-то, стоит убедиться, что у тебя графика включается. Судя по всему - да (в других прогах ты что-то видишь, и экран чистый - да?), но все же double check это.