Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
2
Добавлен:
30.05.2020
Размер:
1.61 Кб
Скачать
program vupysk;
uses crt,modul,poshyk,graphiks;
label 1;
Var p:integer;
begin
zastavka;
textbackground(9);
assign(f, 'f.dat');
1:clrscr;
gotoxy(30,7); write (chr(218),'------------------------------',chr(191));
gotoXY(30,8); writeln('| ‡¤Ґ« ©вҐ Ї®¦ «г©бв  ўлЎ®а: |');
gotoxy(30,9); write (chr(198),'==============================',chr(181));
gotoXY(30,10); writeln('| 1 - ‚ў®¤ § ЇЁбҐ©. |');
gotoXY(30,11); writeln('| 2 - ‚лў®¤ § ЇЁбҐ©. |');
gotoXY(30,12); writeln('| 3 - „®Ў ўЁвм § ЇЁбм. |');
gotoXY(30,13); writeln('| 4 - ђҐ¤ ЄвЁа®ў вм § ЇЁбм. |');
gotoXY(30,14); writeln('| 5 - “¤ «Ёвм § ЇЁбм. |');
gotoXY(30,15); writeln('| |');
gotoXY(30,16); writeln('| Џ®ЁбЄ § ЇЁбҐ©: |');
gotoXY(30,17); writeln('| 6 - ‘ЇЁб®Є ва㤮гбв஥­­ле |');
gotoXY(30,18); writeln('| 7 - ‘ЇЁб®Є ­Ґва㤮гбв஥­­ле |');
gotoXY(30,19); writeln('| |');
gotoXY(30,20); writeln('| 8 - ‚л室 Ё§ Їа®Ја ¬¬л. |');
gotoxy(30,21); write (chr(192),'------------------------------',chr(217));
gotoxy(30,22); write (chr(218),'------------------------------',chr(191));
gotoXY(30,23); write('|--> |');
gotoxy(30,24); write (chr(192),'------------------------------',chr(217));
gotoxy(35,23);
readln(p);
case p of
1:begin Vvod; goto 1 end;
2:begin Vyvod; goto 1 end;
3:begin Dobavit; goto 1 end;
4:begin Redakt; goto 1 end;
5:begin Delete; goto 1 end;
6:begin poisk1;goto 1 end;
7:begin poisk2;goto 1 end;
8:begin konec;halt(1);end;
else goto 1;
end;end.
Соседние файлы в папке Курсовая1
  • #
    30.05.20201.09 Кб2INIT.TPU
  • #
    30.05.20206.19 Кб2MODUL.BAK
  • #
    30.05.20206.17 Кб3MODUL.PAS
  • #
    30.05.202015.78 Кб2MODUL.TPU
  • #
    30.05.20201.61 Кб2OSNOVA.BAK
  • #
    30.05.20201.61 Кб2OSNOVA.PAS
  • #
    30.05.20201.41 Кб3POSHYK.BAK
  • #
    30.05.20201.59 Кб2POSHYK.PAS
  • #
    30.05.20204.62 Кб3POSHYK.TPU
  • #
    30.05.20201.35 Mб3Отчет.docx