Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Write(' Alfa-2=');

If Data=1 then begin Alfa_2:=1; Write(Alfa_2:1:0); WriteLn; end else ReadLn(Alfa_2);

Write(' Betta-2=');

If Data=1 then begin Betta_2:=1; Write(Betta_2:1:0); WriteLn;TextColor(14);

Write(' Нажмите любую клавишу'); ReadKey; end else ReadLn(Betta_2);

{ Интерфейс экрана при выдаче результата }

TextBackGround(3); TextColor(1); Window(1,1,80,25); ClrScr; WriteLn;

WriteLn('г===================== Результат ==========================¬');

For k:=1 to 21 do

WriteLn('¦ ¦');

WriteLn('===================================================================-');

TextColor(0); TextBackGround(7); GoToXY(2,23);

WriteLn(' Для продолжения нажмите любую клавишу'); TextBackGround(3); Window(3,4,77,22);

TextColor(15); ClrScr;

{ Вычесление шага сетки }

tau:=(T-t0)/Kol_voT; h:=(X-x0)/Kol_voX;

{ Ввод данных при time=t0 }

For m:=0 to Kol_voX do

begin

Xm:=x0+h*m; U_m[m]:=Fun_U(Xm,t0);

end;

TextColor(14); WriteLn('Время равно ',time:3:3); TextColor(15); WriteLn(U,'Время равно ',time:3:3);

PrintArray;

{ Начало рассчета }

time:=t0;

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



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

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