begin
for i:=1 to 20 do y[i]:=y[i]+x[i]*dt;
end;{Integrirovanie}
{____________________________________________________________________________}
{Вивід на екран початкових значень польоту та показників стійкості}
Возможно вы искали - Реферат: Організація і техніка підготовки Укладання та виконання зовнішньоекономічних контрактів
procedure print_bal;
begin
clrscr;
writeln('Балансованi (початковi) значення польоту');
writeln;
Похожий материал - Реферат: Організація підготовки фахівців по боротьбі зі злочинністю у сфері високих технологій
writeln('Швидкiсть ',y[3]:5:3);
writeln('Висота ',y[6]:5:3);
writeln('Швидкiсть звуку ',a:6:3);
writeln('Густина повiтря ',roh:6:3);
writeln('Число маха ',M:6:3);
Очень интересно - Курсовая работа: Сборка замка убранного положения основной опоры шасси самолета ТУ 204
writeln('Cy ',cyb:6:3);
writeln('Cx ',cxb:6:3);
writeln('Кут атаки ',albal:6:3);
writeln('Руль висоти ',dvbal:6:3);
writeln('Дельта газу ',dgbal:6:3);
Вам будет интересно - Реферат: Вплив житлових умов на здоров я та побут населення Гігієнічні вимоги до життя об рунтування но
writeln('Ybal ',ybal:6:3);
writeln('Xbal ',xbal:6:3);
writeln('Початкова тяга силової установки ',pbal:6:3);
writeln('Початкова тяга двигуна ',p1:6:3);
writeln('Початкова приборна швидкiсть ',vpr0:6:3);
Похожий материал - Реферат: Інноваційні технології у педагогіці
writeln;
textcolor(3);
writeln('Ступiнь повздовжноъ статичноъ стiйкостi ',mz_cy:6:3);
writeln('Запас стiйкостi по перевантаженню ',delta_ny:6:3);