stify">}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: Timer1Timer (TObject * Sender)
{i, j;
// масив сум поворотів до поточного поверху
int * TurnSum = new int [N]; (i = 0; i
{[i] = 0; (j = 0; j
} (i = 0; i
{(t> = period)
{+ +; [started]. start = true; = 0;
} (Ball [i]. start &&! Ball [i]. end &&! Ball [i]. Lstage)
{(Ball [i]. linear)
{(Ball [i]. z> = a)
{[i]. z = a; [i]. linear = false;
} if (Ball [i]. stage <4) Ball [i]. z + = dz * Ball [i]. stage; else Ball [i]. z + = dz * 4; (Ball [i]. z> = a) Ball [i]. z = a; (Ball [i]. OldX, Ball [i]. OldY); (Image1-> Width/2 + TurnSum [i] * b, z0 + (Ball [i]. stage-1) * h + Ball [i]. z + dh); [i]. OldX = Image1-> Width/2 + TurnSum [i] * b; [i]. OldY = z0 + (Ball [i]. Stage-1) * h + Ball [i]. z + dh;
}
{(Ball [i]. z> = h)
{[i]. z = 0; [i]. stage + +; (Ball [i]. stage == k) Ball [i]. Lstage = true; [i]. linear = true; (Ball [i]. OldX, Ball [i]. OldY); (Image1-> Width/2 + (TurnSum [i] + Ball [i]. turn [Ball [i]. stage-2 ]) * b, z0 + (Ball [i]. stage-1) * h + dh); [i]. OldX = Image1-> Width/2 + (TurnSum [i] + Ball [i]. Turn [Ball [i]. Stage-2]) * b; [i]. OldY = z0 + (Ball [i]. Stage-1) * h + dh;
}
{(Ball [i]. stage <4) Ball [i]. z + = dz * Ball [i]. stage * sin (alfa); else Ball [i]. z + = dz * 4 * sin (alfa); (Ball [i]. OldX, Ball [i]. OldY); (Image1-> Width/2 + TurnSum [i] * b + Ball [i]. turn [ Ball [i]. stage-1] * (Ball [i]. za) * cos (alfa)/sin (alfa), z0 + Ball [i]. z + (Ball [i]. stage-1) * h + dh); [i]. OldX = Image1-> Width/2 + TurnSum [i] * b + Ball [i]. turn [Ball [i]. stage-1] * (Ball [i]. za) * cos (alfa)/sin (alfa); [i]. OldY = z0 + Ball [i]. z + (Ball [i]. stage-1) * h + dh;
}
}
} (Ball [i]. start &&! Ball [i]. end && Ball [i]. Lstage)
{(Ball [i]. z> = l + c + a-(2 * r * (M [Ball [i]. number-1]/2 +1) + b * ( M [Ball [i]. number-1]/2 +2)/6))
{[i]. end = true; [Ball [i]. number-1] + +; = true; (int w = 0; w
{(! Ball [w]. end) End = false;
} (Ball [i]. OldX, Ball [i]. OldY); (End)
{(Distrib, IntToStr (M [w]). c_str ()); (Distrib, "");
} -> Panels-> Items [0] -