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

', N='+S2+', alfa='+S3+', beta='+S4+', K='+S5;

OutTextXY(0,401,S6);}

end;

procedure DrawTramplin;

{Рисование трамплина}

var GD, GM: Integer;

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

begin

GD:=Detect;

InitGraph(GD,GM,'');

SetColor(TramplinColor);

SetBkColor(Background);

MoveTo(0,400-Round(Scale*YO));

LineTo(0,400-Round(Scale*YH));

{уступ}

LineTo(Round(Scale*N),400-Round(Scale*H1));

{нерабочий участок}

LineTo(Round(Scale*K),400);

{участок для приземлений}

WriteTramplinData;

end;

 

procedure Jump;

{Прыжок}

var T, F1, K1, VPr12, VPr2, Vx, Vx0, Vy, Vy0, V, X, Y, A, B, Sin1, Cos1,

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





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