Моделирование движения шаров Опции

[18192123]

Вот такое задание:
Даны два шарика диаметром М. Промоделировать движение шариков по всей плоскости экрана. Шарики могут двигаться по прямым линиям. Изменение угла движения после столкновения с границей экрана или друг с другом может быть случайной величиной. Шарик не может вылететь за пределы квадрата. Пользователь может варьировать скорости движения шариков с помощью стрелок управления курсором.

Хотелось бы разобраться в коде программы... ( дело в том, что код не мой)
Объясните пожалуйста назначение каждой из процедур в тексте приведённой ниже программы!

[Tan]

Случайно на компе наткнулся на задачку с шариком погляди может какие - то идем возьмёшь, не помню откуда эта прога в упор :

program biljard;
uses crt,graph;
var driver,mode,vektorx,vektory,x,y:integer;
    x1,y1,Lx,Ly:real;
begin
clrscr;
driver:=detect;
initgraph(driver,mode,'c:\bp\bgi');
setcolor(15); {white}

rectangle(70,70,500,350);{razmeri stola}
x1:=80;y1:=340; {nachaljnije koordinati kruga}
vektorx:=7;vektory:=12;
x:=round(x1);y:=round(y1);
Lx:=vektorx/(sqrt(vektorx*vektorx+vektory*vektory));{dx}
Ly:=vektory/(sqrt(vektorx*vektorx+vektory*vektory));{dy}
circle(x,y,5);
repeat
setcolor(0); {black}
circle(x,y,5);
   if (getpixel(x-6,y)=15) or (getpixel(x+6,y)=15) then Lx:=-Lx;
   if (getpixel(x,y-6)=15) or (getpixel(x,y+6)=15) then Ly:=-Ly;
   x1:=x1+Lx;y1:=y1+Ly;
   x:=round(x1);y:=round(y1); {tak kak circle toljko v integer, okrugljajem xy} 
   setcolor(15); {white}
   circle(x,y,5);
   delay(500);{pauza dlja togo 4tobi videtj dvizhenije}
until keypressed;
readkey;
end.

Сообщение отредактировано: Tan - 7.04.2007 22:33