Задача с анимацией

[KpeHDeJIb]

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

[Serge_Bliznykov]

ну так кто не разрешает?! Перерисовывайте!

или это Вы такую команду отдали?...

ладно, вот вам падающий зеленый круг...
честно говоря, на яблоко похоже слабо ;-)))

program graf;
uses crt,graph;
const
  AppleRadius = 15;
var
x,y,graphdriver,graphmode:integer;
begin
graphdriver:=0;
graphmode:=0;
initgraph(graphdriver,graphmode,'c:\bp\bgi');
SetColor(Red);
OutText('For Start Press ENTER');
ReadLn;
x:=GetMaxX div 2;
y:=0+AppleRadius;
setbkcolor(blue);
ClearDevice;
repeat
  {APPLE}
  SetColor(Blue);
  SetFillStyle(SolidFill,Blue);
  FillEllipse(X,Y,AppleRadius,AppleRadius);
  y:=y+1;
  SetColor(Green);
  SetFillStyle(1,Green);
  FillEllipse(X,Y,AppleRadius,AppleRadius);
  delay(1000);
until y>=(GetMaxY-AppleRadius);

SetColor(Red);
OutText('for Exit Press ENTER');

Readln;
closegraph;
end.