Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

SinAG, TK, Gamma1: Extended;

S: string;

function EndofJump: Boolean;

begin

if ((X<N)and(Y<=-HN*X+YH)) then EndofJump:=True

else if ((Y<=KLine*X+BLine)and(X>N)) then EndofJump:=True

else if X>K then EndofJump:=True

else EndofJump:=False;

end;

begin

SetColor(JumpColor);

Vx0:=V0[I]*Cos(Alfa);

Vy0:=V0[I]*Sin(Alfa);

Vx:=Vx0;

Vy:=Vy0;

V:=Sqrt( Sqr(Vx0)+Sqr(Vy0) );

X:=0; Y:=YO;

VPr2:=Sqr(VPr0[I]);

Gamma1:=Gamma[I];

Sin1:=Sin(Gamma1);

Cos1:=Cos(Gamma1);

SinAG:=Sin(Gamma1-Alfa);

repeat

A:=Vx*Sin1-Vy*Cos1;

B:=Vx*Cos1+Vy*Sin1;

Рекомендуем скачать другие рефераты по теме: доклад на тему, класс.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки