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

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

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

[Чужак]

Уважаемый volvo, по моему, условие содержит два варианта:

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

Окружность катится по наклонной, а не по прямой, т.е. либо по диагонали
(к примеру-сверху вниз,слева направо), либо по некой криволинейной траектории. Если по диагонали-то ваш вариант верен, если по криволинейной, приведу свой.

 Uses Crt, Graph;
 Const r1=72; r2=36;
 Var t:Real; 
.........
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(1000);
 
 Setcolor(0);
 Circle(Round(120+r2*cos(t)), Round(80+r2*sin(t)),r2);
 End;{procedure}

Begin {program}
 InitGraph(gd,gm,''); t:=0;
 
  repeat
  t:=t+0.1;
  OrtoCon;
 until ch='q';
 CloseGraph
End.{program}

Смотрите "Инь-Ян" на экране.
И добро пожаловать в тему "философия и философы-что это по вашему?"