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

Alfa:=-Alfa*Pi/180; Beta:=-Beta*Pi/180;

end;

procedure CalculateTramplin;

{Вычисление остальных параметров трамплина}

var W: Extended;

begin

N:=H/HN; {она и в Африке N}

H1:=Abs((K-N)*Sin(BETA)/Cos(BETA));

{верт. коорд. точки P - начала участка приземления}

YH:=H+H1; {высота склона в месте отрыва}

W:=Sqrt(H*H+N*N); {удаление от канта отрыва до критической точки}

S:=0.03*W; {высота стола отрыва над склоном}

YO:=YH+S; {высота отрыва}

end;

procedure EnterJumpers;

{Ввод данных о прыгунах}

var I: Byte; Gamma1, VPr01, V01: Extended;

begin

N1:=7;

WriteLn(' Параметры прыгунов: предельная скорость');

WriteLn(' Вводятся ',N1,' графиков, хочешь меньше - задай Vпр=0');

Gamma1:=20;

VPr01:=70;

TextColor(QuestionColor); Write(' Vo=');

TextColor(AnswerColor); ReadLn(V01);

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



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

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