Графика посмотрите!

[Crespo]

изобразить приближающийся с постоянной скоростью шар в соответствии с законом изменения размера!

[Crespo]

Помогите пожалуйста

[UnderwooD]

а что за закон?

[Crespo]

Ну чем ближе к экрану тем больше шар

[ZaRDaK]

Написал бы формулу, "дистанцию" до экрана, размер шара.
И язык, на котором писать.

[Crespo]

Дистанция произвольная,и размер тоже произвольный на Паскале!
Если яб знал формулу!

[DeKot]

Держи без формул, чисто графика на канве в Дельфи. Для Паскаля принцип тот же.

[Crespo]

А на Паскале будь добр скинь

[Crespo]

Недоделанная
Только принцип расширения шара реализован

uses crt,graph;
var x,y,r:integer;
v,k:char;
procedure Krug(x,y:integer);
var r:integer;
begin
r:=0;
repeat
repeat
r:=r+2;
setcolor(12);
circle(x,y,r);
setfillstyle(1,12);
floodfill(x,y,12);
delay(50);
circle(x,y,r);
setfillstyle(1,0);
floodfill(x,y,0);
until (r>y+5)or keypressed;
repeat
r:=r-2;
setcolor(12);
circle(x,y,r);
setfillstyle(1,12);
floodfill(x,y,12);
delay(50);
circle(x,y,r);
setfillstyle(1,0);
floodfill(x,y,0);
until (r<5)or keypressed;
until keypressed;
end;
begin
x:=0;
initgraph(x,y,'');
outtextXY(50,20,'Vyhod - Press any key');
x:=getmaxX div 2;
y:=getmaxY div 2;
Krug(x,y);
end.


Реализованно Только принцип расширения шара реализован
Доделайте плиз)

[Crespo]

r2= (r1*S)/(S-V*t)

где: r2 - радиус шара после изменения размера
r1 - радиус шара до изменения размера
S - начальное расстояние от наблюдателя до шара
V - скорость шара
t - время полета
эту формулу загоняете в цикл, где t изменяется, т.е. получится процедура

procedure ball(var rr,t_1,v_1,s_1,xx,yy: integer);
begin
r:=(r*S)/(S-V*t);
circle(x,y,r); {x,y - центр экрана}
floodfill(x,y + r + 1, white);
end;