Поиск
 
Найдено: 1
Область поиска: теги — textcolor [x] функции [x]

Численное решение модельного уравнения диссипации, конвекции и кинетики

... 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 ...