создать игрушку-мячик, бьющийся об стенки

[Hitory]

задача в том, чтобы мячик, отражающийся от стенок, удваивался при каждом своем столкновении со стеной, при этом скорость шариков не уменьшалась

вот начальный код, но здесь только один шарик

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
 r = 10;
 v = 4;

var
 Form1: TForm1;

 isRunning: boolean;
 x, y: integer;
 vx, vy: integer;
 angle: extended;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if(isRunning) then begin

    isRunning:=false;

    Button1.Caption:='Старт';
 end
 else begin

    isRunning:=true;

    Button1.Caption:='Стоп';
 

    vx := round(v * cos(angle));

    vy := round(v * sin(angle));


    while (isRunning) do begin

      PaintBox1.Canvas.Pen.Color:=clWhite;

      PaintBox1.Canvas.Brush.Color:=clWhite;

      PaintBox1.Canvas.Rectangle(0, 0, PaintBox1.Width, PaintBox1.Height);


      PaintBox1.Canvas.Pen.Color:=clRed;

      PaintBox1.Canvas.Brush.Color:=clRed;

      PaintBox1.Canvas.Ellipse(x-r, y-r, x+r, y+r);
 

      x := x + vx;

      y := y + vy;


      if((x + r >= PaintBox1.Width) or (x - r <= 0)) then
        vx:=-vx;

      if((y + r >= PaintBox1.Height) or (y - r <= 0)) then
        vy:=-vy;
 
        sleep(10);

        Application.ProcessMessages;
    end;
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  isRunning:=false;
 randomize;
 x:=random(PaintBox1.Width - (r * 2)) + r;
 y:=random(PaintBox1.Height - (r * 2)) + r;
 angle:=random(360) * Pi / 180;
end;

end.

[Serge_Bliznykov]

давайте начнём с того, что вы проиллюстрируете на графической схеме, как именно должно происходить раздвоение шарика?

ну и ещё. если есть 1 шарик, то после первого удара станет 2 шарика, после удара каждого из этих двух станет 4 шарика, что будет после 5-8 удара об стенки, думаю, говорить не надо... (а если надо, то рекомендую ознакомится с платой, которую попросил в легенде автор шахмат - а первую клетку доски - одно зёрнышко, на вторую - в два раза больше (т.е. два зёрнышка), на третью - четыре и т.д.)

[Hitory]

если честно, то я тоже не очень-то понимаю, как это все будет выглядеть после хотя бы пяти-шести ударов разных шариков об стенки

так же было дано условие, чтобы траектории полетов шариков не пересекались, а когда PaintBox1 будет полностью заполнен, то игра прекратиться

[Serge_Bliznykov]

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

особенно с учётом "так же было дано условие, чтобы траектории полетов шариков не пересекались"! o_O