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

Turbo Pascal / Stud_1_2 / Metlab / LABOR9 / LABOR9

.PAS
Скачиваний:
92
Добавлен:
03.03.2016
Размер:
1.69 Кб
Скачать
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.




Соседние файлы в папке LABOR9