Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа / Курсовая1 / OSNOVA
.PAS 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.
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