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

{ М о д у л ь д л я м о д е л и р о в а н и я

п р ы ж к а с т р а м п л и н а

Предельная скорость растет в полете в зависимости от угла атаки }

{$E+}{$N+}

unit ForJump3;

interface

uses Graph, Crt;

const dt: Extended=1E-3;

G=9.82;

WWW=-1;

TL=0.5; { время подготовки к приземлению}

QuestionColor:Word=LightBlue;

AnswerColor:Word=LightGreen;

TramplinColor:Word={Red}White;

TramplinDataColor:Word=Red;

JumpColor:Word=White;

JumpDataColor:Word=White;

Background:Word=Black;

var n1, i: byte;

S1, S2, S3, S4, S5, S6: string;

Scale, KLine, BLine, {масштаб рисунка и параметры горы приземления}

Length, VY, {дальность прыжка и скорость приземления}

K, H, N, HN, H1, YH, S, YO, ALFA, BETA: Extended; {трамплин}

VPr0, V0, Gamma: array[1..7] of Extended; {прыгуны}

procedure EnterBasicData;

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





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