Interface

Uses Crt,DesUnit,BasUnit,Printer;

Procedure CreateArchive;

Procedure SortArchive;

Procedure PrintArchive;

Procedure PrintKodif;

Procedure AddArchive;

Procedure DeleteArchive;

Procedure ChangeArchive;

Procedure WorkUpArchive;

Implementation

{ ------------------------------------------------------ }

Тексты процедур, заголовки которых приведены в секции реализации, полностью

совпадают с текстами соответствующих процедур программы Labor8.

Procedure ReadProduct(Var FileInput:text);

Procedure ReadKodif;

Procedure MakeKodifs;

Procedure CreateArchive;

Procedure ReadFileOut;

Procedure WriteFileOut;

Procedure SortArchive;

Procedure PrintArchive;

Procedure PrintKodif;

Procedure AddArchive;

Procedure DeleteArchive;

Procedure ChangeArchive;

Procedure WorkUpArchive;

End.

{ ------------------------------------------------------------ }

Program Labor9;

{ Создание, печать, коррекция и обработка архива сведений }

{ о продукции, которая выпускается цехами предприятия }

Uses Crt,DesUnit,BasUnit,InpUnit,WorkUnit,Printer;

Begin

Assign(FileInput,'Input.txt');

Assign(FileAdd,’Add.txt’);

Assign(FileKodif,'Kodif.txt');

Assign(FileRes,'Res.txt');

Assign(FileOut,'Out.dat');

ClrScr;

UsesDevice;

If Device=1 then

Rewrite(FileRes);

SignArchive:=false;

Repeat

ClrScr;

PrintString(15, 7,'Укажите режим работы программы:');

PrintString(17, 8,'0 - конец работы;');

PrintString(17, 9,'1 - контроль текстовых файлов;');

PrintString(17,10,'2 - создание архива изделий;');

PrintString(17,11,'3 - сортировка компонентов архива;');

PrintString(17,12,'4 - печать архива изделий;');

PrintString(17,13,'5 - печать кодификатора изделий;');

PrintString(17,14,'6 - добавление компонентов в архив;');

PrintString(17,15,'7 - удаление компонента из архива;');

PrintString(17,16,'8 - изменение компонента в архиве;');

PrintString(17,17,'9 - обработка архива');

Writeln;

KeyRegime:=Round(GetNumber(0,9,1,0,1,0));

Case KeyRegime of

0 : ;

1 : CheckFiles ;

2 : CreateArchive;

3 : SortArchive ;

4 : PrintArchive ;

5 : PrintKodif ;

6 : AddArchive ;

7 : DeleteArchive;

8 : ChangeArchive;

9 : WorkUpArchive;

Else KeyRegime:=0;

end;

Until KeyRegime=0;

If Device=1 then

Close(FileRes);

End.

72