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

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

procedure CalculateTramplin;

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

procedure EnterJumpers;

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

procedure Scaling;

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

procedure WriteTramplinData;

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

procedure DrawTramplin;

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

procedure Jump;

{Прыжок}

implementation

procedure EnterBasicData;

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

begin

ClrScr; TextColor(QuestionColor);

WriteLn(' Моделирование прыжка с трамплина');

WriteLn('Входные параметры:');

WriteLn(' Параметры трамплина:');

Write('H, H:N, K, beta, alfa=');

{H, гор. коорд. точки K, углы}

TextColor(AnswerColor); ReadLn(H,HN,K,BETA,ALFA);

TextColor(QuestionColor);

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



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

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