int [k]; (i = 0; i Width-2 * ramka)/(2 * k-1);
r = b/6; = N/7; = (max +1) * (2 * r + b/6) + r + b/6;
H = Image1-> Height-2 * ramka; = (Hl-3 * ramka)/(float (k) - 0.5); = h-2 * int (float (b/2 ) * cos (alfa)/sin (alfa));
c = b * cos (alfa)/(2 * sin (alfa));
dh = c/2; = Image1-> Height-(l + (k-1) * h + c + a + ramka);
t = 0; = len * dt; = 2;
Timer1-> Interval = dt; = true; (); = new BallProperty [N];// властивості кожного з кульок (i = 0; i
{[i]. start = false; [i]. end = false; [i]. stage = 1; [i]. z = 0; [i]. linear = true; [i]. Lstage = false; [i]. turn = new int [k-1]; [i]. OldX = Image1-> Width/2; [i]. OldY = z0; [i]. number = 0;
for (j = 0; j
{[i]. turn [j] = random (2); (! Ball [i]. turn [j]) Ball [i]. turn [j] = -1;
}
} [0]. start = true; = 0; _Init = true;
int * Sum; = new int [N];// масив сум поворотів кульки
for (i = 0; i
{[i] = 0; (j = 0; j
} e; (i = 0; i
{= int (float (int (k/2)) +1 + float (Sum [i])/2);// ТУТ обчислює НОМЕР ОСЕРЕДКУ, У ЯКУ ПОПАЕДТ КУЛЬКУ
Ball [i]. number = e; [e-1] + +;
} [] Sum; (! N2-> Checked) for (i = 0; i
}
// зміна розмірів ізображеніяTForm1 :: ResizePicture ()
{i, j; = 20; = (Image1-> Width-2 * ramka)/(2 * k-1);
r = b/6; = (max +1) * (2 * r + b/6) + r + b/6;
H = Image1-> Height-2 * ramka; = (Hl-3 * ramka)/(float (k) - 0.5); = h-2 * int (float (b/2 ) * cos (alfa)/sin (alfa));
c = b * cos (alfa)/(2 * sin (alfa));
dh = c/2; = Image1-> Height-(l + (k-1) * h + c + a + ramka);
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: SpeedButton1Click (TObject * Sender)
{(! Timer1-> Enabled)
{-; -> Text = IntToStr (k);
}
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: SpeedButton2Click (TObject * Sender)
{(! Timer1-> Enabled)
{+ +; -> Text = IntToStr (k);
}