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

for I:=1 to N1 do begin

Gamma[I]:=Gamma1*Pi/180;

VPr0[I]:=VPr01;

V0[I]:=V01+0.2*(I-1);

end;

end;

procedure Scaling;

{Вычисление масштабов}

var MX, My: Extended;

begin

MX:=600/K; My:=400/YO; if MX<My then My:=MX else MX:=My;

Scale:=MX;

KLine:=H1/(N-K); BLine:=-KLine*K;

end;

procedure WriteTramplinData;

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

begin

SetColor(TramplinDataColor);

Str(1/Scale:4:2,S6);

Str(H:0:1,S1);

Str(N:0:1,S2);

Str(Alfa*180/Pi:0:1,S3);

Str(Beta*180/Pi:0:1,S4);

Str(K:0:1,S5);

{ S6:='Масштаб: '+S6+'м:1точка, Трамплин: H='+S1+

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



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

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