FreePascal.ru

смешно аж до боли в глазах.

Сделаеш рабочую програму ?

Добавлено спустя 14 минут 13 секунд:
я согласен на 200 рублей. номер мыла и своего кашелька.

если сделаете для lazarus то я заплачу. код не мудрённый и жилательно с пояснениями.

Все написал. шаров много. только проблема не могу понять в чем ошибка не сталкиваются и свё. но уже и не пересикают границы друг друга. чодят по краю.
Var
x1, y1, x2, y2: Real; {координаты центров}
r1, r2: Integer; {радиусы}
vx1, vy1, vx2, vy2: Real; {составляющие скоростей}

Procedure Bum;
var ...

как можно смодулировать в free pascale броуновское движение?

if Moving then begin
Canvas.Pen.Color:=clBtnFace;
Canvas.Brush.Color:= clBtnFace;
Canvas.Ellipse(X-R,Y-R,X+R,Y+R);
if ((X+R+dx>ClientWidth) or (X-R+dx<0))then dx:=-dx;
if ((Y+R+dy>ClientHeight) or (Y-R+dy<0))then dy:=-dy;
X:=X+dx;
Y:=Y+dy;

Canvas.Pen.Color:=ColorCircle;
Canvas.Brush.Color ...

как сделать что бы они ещё и соудорялись друг с другом ?

как сделать что бы они ещё и соударялись друг с другом

как увеличить кол-во малекул и как сделать что бы они сталкивались между собой

почему не будут

а можешь дать исходник программы

поясни

Добавлено спустя 2 минуты 33 секунды:
wsv
помоги с этой программой

Написал программу в которой при нажатии на форму из центра запускается шарик и ударяется о края формы. Как добавить много шариков и что бы они сталкивались между собой и о кроя формы. Грубо говоря модель идеального газа