Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
8
Добавлен:
20.02.2016
Размер:
52.22 Кб
Скачать

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]:=' В Ы Х О Д ';

{================================================================}

{=================================================================}

Соседние файлы в папке Материалы по электра