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

F1:=B/A;

K1:=G*A/VPr2/V/SinAG;

V:=Sqrt( Sqr(Vx0+WWW*dt)+Sqr(Vy0) );

Vx:=Vx0-K1*V*(Vx0+F1*Vy0)*dt+WWW*dt;

Vy:=Vy0-G*dt-K1*V*(Vy0-F1*Vx0)*dt;

X:=(Vx+Vx0)*dt/2+X;

Y:=(Vy+Vy0)*dt/2+Y;

PutPixel( Trunc(X*Scale), Trunc(400-Y*Scale), JumpColor);

Vx0:=Vx; Vy0:=Vy;

until EndofJump;

Vy:=Vx*Sin(Beta)-Vy*Cos(Beta);

{вертикальная составляющая скорости приземления}

Length:=Sqrt(Sqr(H)+Sqr(N))+((X-N)/Cos(Beta));

{дальность прыжка}

{вывод данных о прыжке}

Str(I,S);

SetColor(JumpDataColor);

OutTextXY( Trunc(X*Scale)-8, Trunc(400-Y*Scale), S);

Str(Abs(V0[I]):4:2,S6);

Str(Abs(VPr0[I]):4:2,S1);

Str(Length:0:1,S3);

Str(Abs(VY):4:2,S4);

Str(I,S5);

S6:=S5+': Vo='+S6+'м/с, Vпр='+S1+'м/с';

if ((X>N)and(X<K)) then

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



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

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