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

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

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

[Айра]

Уважаемый, Чужак, надеюсь вы не возражаете, если я приведу ваш код к рабочему виду?

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}

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