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

[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]

Uses Crt, Graph, wincrt;
 Const r1=72; r2=36;
 Var t:Real;
     gd,gm: integer;
Procedure OrtoCon;
 Begin {procedure}
 Setcolor(5);
 Circle(120,80,r1);

 Setcolor(7);
 Circle(Round(120+r2*cos(t)), Round(80+r2*sin(t)),r2);
 Circle(Round(120-r2*cos(t)), Round(80-r2*sin(t)),r2);
 Delay(100);  //думаю зависит от конкретного компа, так что каждому свое ))

 Setcolor(0);
 Circle(Round(120+r2*cos(t)), Round(80+r2*sin(t)),r2);
 End;{procedure}

Begin {program}
 gd:=VGA;
 gm:=VGAhi;
 InitGraph(gd,gm,''); t:=0;
  repeat
  t:=t+0.1;
  OrtoCon;
  until keypressed;  { выполнение закончится, когда будет нажата любая клавиша, 
                        в предыдущем варианте приходилось завершать принудительно }
  while heypressed do readkey; //очищаем буфер клавиатуры
 CloseGraph
End.{program}

программа делает совсем не то окружность просто зацикливается и крутится на одном месте, причем внутри неевращаются еще 2 окружности.

Добавлено через 18 мин.

x := 0;				{ начинаем с 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;

Не знаю почему но не работает, мерцает курсор и все.

Сообщение отредактировано: volvo - 9.04.2009 16:31