Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Turbo Pascal / Stud_1_2 / Metlab / LABOR9 / LABOR9
.PAS Program Labor9;
{ ‘®§¤ ЁҐ, ЇҐз вм, Є®а४жЁп Ё ®Ўа Ў®вЄ аеЁў ᢥ¤ҐЁ© }
{ ® Їа®¤гЄжЁЁ, ўлЇгбЄ Ґ¬®© жҐе ¬Ё ЇаҐ¤ЇаЁпвЁп }
Uses Crt,DesUnit,BasUnit,InpUnit,WorkUnit,Printer;
Begin
Assign(FileInput,'E:\studies\metlab\labor9\Input.txt');
Assign(FileAdd,'E:\studies\metlab\labor9\Add.txt');
Assign(FileKodif,'E:\studies\metlab\labor9\Kodif.txt');
Assign(FileRes,'E:\studies\metlab\labor9\Res.txt');
Assign(FileOut,'E:\studies\metlab\labor9\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.
{ ‘®§¤ ЁҐ, ЇҐз вм, Є®а४жЁп Ё ®Ўа Ў®вЄ аеЁў ᢥ¤ҐЁ© }
{ ® Їа®¤гЄжЁЁ, ўлЇгбЄ Ґ¬®© жҐе ¬Ё ЇаҐ¤ЇаЁпвЁп }
Uses Crt,DesUnit,BasUnit,InpUnit,WorkUnit,Printer;
Begin
Assign(FileInput,'E:\studies\metlab\labor9\Input.txt');
Assign(FileAdd,'E:\studies\metlab\labor9\Add.txt');
Assign(FileKodif,'E:\studies\metlab\labor9\Kodif.txt');
Assign(FileRes,'E:\studies\metlab\labor9\Res.txt');
Assign(FileOut,'E:\studies\metlab\labor9\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.
Соседние файлы в папке LABOR9