EKh / Материалы по электра / Program lab
.doc
Procedure WiborDAT (Var index:integer; inn:String);
{выбор; корректировка файла данных или его пропуск}
{index -выходная переменная - корректировка или пропуск }
Ввести данные в файл
Старт программы
в ы х о д
{------------------------------------------------------}
Procedure WiborZAP (Var index:integer);
writeln(' Пропуск ');TextAttr:=10+16*2;
writeln(' Запись в SERIES.REZ');
{------------------------------------------------------------}
writeln(' View Time ');
writeln(' Set Time ');
writeln(' Close Function ');
{------------------------------------------------------}
Writeln(' ');
writeln(' Просмотр REZ.REZ ');
writeln(' в ы х о д ');
{---------------------------------------------}
файлы *.REZ
файлы *.BAS
файлы *.LST
файлы *.DOC
файлы *.DAT
файлы *.PAS
файлы *.FOR
*.*
Date & Time
C L O S E FUNCTION
{-----------------------------------------------}
1 Нормативы
2 Обезжиривание
3 Травление
4 Полирование
5 Цинкование
6 Никелирование
7 Хромирование
8 Меднение
9 Благородные металлы
10 Сплавы
11 Лужение
12 Металлизация диэлектриков
13 Cd, Fe, Pb
14 Фосфатирование
В Ы Х О Д Enter
{----------------------------------------------}
procedure PROCESS ;
1 таблица 1
2 таблица 2 Ео
3 таблица 3 Ео
В Ы Х О Д Enter
{----------------------------------------------}
procedure TECNOL ;
1 Электросинтез
2 Гидроэлектрометаллургия
3 Металлургия расплавов
4 Источники тока
5 Электродиализ
6 Молекулярная электроника
В Ы Х О Д Enter
{----------------------------------------------}
БД по гальванотехнике
БД по ЭЛХ-технологиям
Потенциалы,токи обмена
Проводимость,диффузия
Теплофизические данные
Атомные массы
Плотности растворов
Растворимость веществ
Платежи за сбросы
Зарядно-разр. хар. ХИТ
Соотношения
В Ы Х О Д Enter
{-----------------------------------------------------}
procedure GALVA ;
Var i,ind,kw: integer; c:Char; Label 1,40;
begin;
for kw:=1 to 50 do begin
Tyt:=' ГАЛЬВАНОТЕХНИКА '; tt;
TextAttr:=14+16*7; Window(43,6,75,15); ClrScr;
writeln(' ');
writeln(' ');
writeln(' Расчет гальван.операции ');
writeln(' Рост дендритов ');
writeln(' ');
writeln(' ');
writeln(' '); TextAttr:= 10+16*7;
writeln(' БД <Гальванотехника> ');
writeln(' Информация '); TextAttr:=14+16*1;
writeln(' В Ы Х О Д Enter ');
{-----------------------------------------------------}
procedure UTOK;
writeln(' ');
writeln(' PASCAL -программа ');
writeln(' FORTRAN-программа ');
writeln(' ');
writeln(' ');
writeln(' Информация '); TextAttr:=14+16*1;
writeln(' В Ы Х О Д Enter ');
{-----------------------------------------------------}
procedure TERMOS;
writeln(' ');
writeln(' Тепловой расчет ЭХА ');
writeln(' Поле температур мембраны ');
writeln(' ');
writeln(' ');
writeln(' '); TextAttr:=14+16*1;
writeln(' В Ы Х О Д Enter ');
{-----------------------------------------------------}
procedure PORIS;
writeln(' ');
writeln(' Пористый электрод.Электрическое поле ');
writeln(' Концентрационное поле в диафрагме ');
writeln(' Стационарный процесс в порах ');
writeln(' Источник тока с пористыми электродами ');
writeln(' ');
writeln(' ');TextAttr:=
writeln(' Информация
writeln(' В Ы Х О Д Enter ');
{-----------------------------------------------------}
procedure POLE;
Var i,ind,kw: integer; c:Char; Label 1,40;
begin;
for kw:=1 to 50 do begin
Tyt:=' < Электрические поля в ЭХА> '; tt;
TextAttr:=14+16*7; Window(33,6,75,19); ClrScr;
writeln(' ');
writeln(' LPL- ячейка с тонкими электродами');
writeln(' MOL- щелевая ячейка Моллера ');
writeln(' FEL- катод свободной формы ');
writeln(' UT - расчет цепей утечек тока ');
writeln(' REZ- осаждение на резист-катод ');
writeln(' PRT- протекторная защита ');
writeln(' POTN-электростатическое поле ');
writeln(' ');
writeln(' ');
writeln(' ');TextAttr:= 10+16*7;
writeln(' Информация ');TextAttr:=14+16*1;
writeln(' В Ы Х О Д Enter ');
{-----------------------------------------------------}
procedure KINETI;
writeln(' ');
writeln(' Циклическая вольтамперометрия ');
writeln(' Поляризация импульсным током ');
writeln(' Автоколебательный процесс ');
writeln(' Информация ');TextAttr:=14+16*1;
writeln(' В Ы Х О Д Enter ');
Полином-аппроксимация
Сплайн-интерполяция
Интеграл функции
Обработка функции
Оптимизация FORTRAN
Оптимизация PASKAL
Построение графика
Информация
В Ы Х О Д
{-----------------------------------------------------}
procedure EXA;
writeln(' ');
writeln(' Нестационарный режим ЭХА');
writeln(' Стационарный режим ЭХА');
writeln(' ЭХА вытеснения MAX '); TextAttr:= 10+16*7;
writeln(' ЭХА вытеснения MIN ');
writeln(' ЭХА вытеснения схема ');
writeln(' Электролиз NaCl диафраг.');
writeln(' БД <Гальванотехника> ');
writeln(' БД <ЭЛХ-технологии > ');
writeln(' Информация '); TextAttr:=14+16*1;
writeln(' В Ы Х О Д ');
{---------------------------------------------------}
procedure ECOLOG;
writeln(' ');
writeln(' SUS стационарный режим ');
writeln(' SUN нестационарный режим ');
writeln(' '); TextAttr:= 14+16*2;
writeln(' РЕГЕНЕРАЦИЯ (выпарка) '); TextAttr:= 14+16*7;
writeln(' Комплекс выпарка-промывка ');
writeln(' стационарный режим ');
writeln(' нестационарный режим ');
writeln(' Электрофлотоэкстракция Ni ');
writeln(' Информация '); TextAttr:=14+16*1;
writeln(' В Ы Х О Д ');
{--------------------------}
{======= ПРОГРАММА ========================================}
st[ 1]:=' ';
st[ 2]:=' Массообменные процессы в ЭХА ';
st[ 3]:=' Энерготепловые процессы в ЭХА ';
st[ 4]:=' Гальванотехника ';
st[ 5]:=' Электрическое поле ';
st[ 6]:=' Пористые системы, ХИТ ';
st[ 7]:=' Электрохимическая экология ';
st[ 8]:=' Электрохимическая кинетика ';
st[15]:=' ';
st[16]:=' ';TextAttr:=10+16*1;
st[17]:=' ТУРБОПАСКАЛЬ ';
st[18]:=' Блоки,подпрограммы ';
st[19]:=' Базы данных по технологиям ';
st[20]:=' Информация о системе ';
st[21]:=' Создание и запуск программ *.FOR ';
st[22]:=' Просмотр библиотеки файлов (W&D) ';TextAttr:=14+16*1;
st[23]:=' В Ы Х О Д ';
{================================================================}
{=================================================================}