Поиск
Численное решение модельного уравнения диссипации, конвекции и кинетики
...
WriteLn; WriteLn (U);
end;
{ Основная программа }
Begin
Assign (U,'u'); { Файл для записи значений функции }
Rewrite (U); { Открытие файла для записи }
TextBackGround (0); { Выбор функции для работы }
ClrScr; TextColor (10); GoToXY (20,8); Write ('Введите номер выбранной функции (1−5):');
Metka1: ch:=ReadKey;
If ch='1' then SelectFunction:=1
else If ch='2' then SelectFunction:=2
else If ch='3' then SelectFunction:=3
else If ...