Моделирование прыжка с трамплина

| Категория реферата: Рефераты по математике
| Теги реферата: законодательство реферат, ответы по тетради
| Добавил(а) на сайт: Низьев.

for I:=1 to N1 do begin

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

VPr0[I]:=VPr01;

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

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+

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

Claw.ru | Рефераты по математике | Моделирование прыжка с трамплина