Добавлено (12.11.2015, 22:35)
---------------------------------------------
Продолжение

procedure obavtore;
 begin
 
okno(1,1,79,25,1,15);
  gotoxy(19,2); 
writeln('Министерство образования Республики Беларусь');
  gotoxy(16,3); 
writeln('Белорусский национальный технический университет');
  gotoxy(25,6); 
writeln('Программа вычисления матрицы');
  gotoxy(32,10); writeln('Курсовая работа');
  gotoxy(27,12); writeln('по дисциплине
"Информатика"');
  gotoxy(41,15); writeln('Исполнитель: Пицуха
А. Н.');
  gotoxy(54,16); writeln('гр. 10205214');
  gotoxy(41,17); writeln('Руководитель:Ширяев
Д.А.');
  gotoxy(33,21); writeln('Минск 2015');
  hidecursor;
  gotoxy(21,23);  write('Для возврата в меню нажмите любую
клавишу...');
  c:=readkey;
  okna;
 end;
 
procedure spravka;
 begin
 
okno(1,1,79,25,1,15);
  gotoxy(35,2);
writeln('СПРАВКА');
  gotoxy(15,4);
writeln('Программа запускается файлом Зшсгрф.exe');
  gotoxy(13,5); writeln('После запуска
программы последовательно появляются 10 окон');
  gotoxy(13,6); writeln('разного цвета. Звучит
музыка и в последнем окне появляется');
  gotoxy(13,7); writeln('вертикальное меню.');
  gotoxy(15,8); writeln('Меню состоит из
пунктов:');
  gotoxy(17,9); writeln('1. Об авторе');
 
gotoxy(17,10);writeln('2. Справка');
 
gotoxy(17,11);writeln('3. Вычисления');
  gotoxy(17,12);writeln('4. Выход');
  gotoxy(15,13);writeln('Пункты меню выбираются
при помощи стрелок или по номеру');
  gotoxy(13,14);writeln('При перемещении по
меню издается звуковой сигнал. При');
  gotoxy(13,15);writeln('выборе пункта меню
"Об авторе" или "Справка",');
  gotoxy(13,16);writeln('открывается окно,
ограниченное двойной рамкой. При');
  gotoxy(13,17);writeln('выборе пункта меню
"Вычисление" открывается окно, в котором');
  gotoxy(13,18);writeln('требуется ввести
данные, и в нём выводится');
  gotoxy(13,19);writeln('результат
вычислений.');
  gotoxy(13,20);writeln('Для выхода из
программы нужно выбрать пункт 4 в меню.');
  hidecursor;
  gotoxy(21,23);write('Для возврата в меню
нажмите любую клавишу...');
  c:=readkey;
  okna;
 end;
 
 
procedure massiv;
const nmax=50;
 label z;
type t=record
    
fam:string[20];
    
tel:string[11];
     end;
var ab:array[1..nmax] of t;
    n,i:byte;
   
fm:string[20];
    f:boolean;
begin
  z:
  randomize;
  clrscr;
 
okno(1,1,79,25,1,15);
  normcursor;
repeat
write ('Количество номеров  ',nmax);
readln(n);
until n in [1..nmax];
writeln('Введите
записи в книжку:');
for i:=1 to n do
    begin
        
writeln('Запись ',i);
        
write('- Фамилия: ');       readln(ab.fam);
        
write('- Номер телефона: ');
readln(ab.tel);
    end;
clrscr;
writeln;
write('Введите
фамилию для поиска: ');
readln(fm);
f:=false;
i:=1;
while(i<=n) and not f do
if ab.fam=fm then
   begin
        f:=true;
        write('Номер телефона
',ab.tel)
   end
else i:=i+1;
if not f then write('Такого абонента нет');
   hidecursor;
  
textcolor(15);
  
gotoxy(25,22); write('Для возврата в меню нажмите Enter');
   gotoxy(19,23); write('для повторного
выполнения нажмите любую клавишу');
   c:=readkey;
   if c=#13 then
okna else goto z;
end;
 
 
 
 
 
 
 
 
procedure emenu;
 begin
  clrscr;
   for i:=1 to 4
do
    begin
    
gotoxy(2,i+1);
     if i=pos
then textcolor(7) else textcolor(15);
    
write(menu);
    end;
 end;
 
 BEGIN
  textmode(4);
  clrscr;
  hidecursor;
  okna;
  11:
  pos:=1;
  emenu;
  k10:=readkey;
   while
k10<>#13 do
    begin
     case k10 of
      #72:begin
if pos=1 then pos:=4 else pos:=pos-1; sound(2400); delay(100);nosound; end;
      #80:begin
if pos=4 then pos:=1 else pos:=pos+1; sound(2400); delay(100);nosound; end;
     
#49bavtore;
     
#50:spravka;
      #51:massiv;
      #52:exit
     end;
     emenu;
    
k10:=readkey;
    end;
  case pos of
   1: obavtore;
   2: spravka;
   3: massiv;
   4: exit;
  end;
 goto 11;
end.