Движение шарика с горки

[klyvis]

Не получается организовать движение ровно по горке (взлетает шарик).
Как я понел это происходит из-за округления, но оказанные мной меры не подействовали. Подскажите как сделать плавное движение.

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
sch++;
Shape2->Top+=j;
Shape2->Left-=k;

if (sch>=100)
Timer1->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N1Click(TObject *Sender)
{
Shape2->Top=Image1->Top-11;
Shape2->Left=Image1->Left+Image1->Width-29;
d=Image1->Height+Image1->Top;
f=Image1->Left;
e=d-Shape2->Top;
h=Shape2->Left-f;
j=e/(100);
k=h/(100);
Timer1->Enabled=true;
sch=0;
}

[Sasha_Smirnov]

А может, синус с тангенсом перепутали?..

Хорошо бы ещё ускорение придать, а то вообще... но спасибо за мультик!

[phomm]

Что за неявные методы решения )) ?

найдите уравнение прямой по которой катимся (геометрия 7 класс, y = kx+b) и в цикле рассчитывайте новую координату шарика по прямой, но со смещением на радиус