Структуры и алгоритмы обработки данных


         

вызов процедуры make, осуществляющей исследование


          notupor(a,a);
       { вызов процедуры make, осуществляющей исследование методов сортировки}
          make(8,10,a,a1,2);
       {** исследуются 10 упорядоченных по убыванию элементов **}
       {вызов процедуры make, осуществляющей исследование методов сортировки}
          make(13,10,a1,a1,3);
       {ожидание нажатия клавиши Esc}
     repeat
      k:=readkey;
     until k=#27;
  end;
3:begin
       {getshadow - процедура, убирающая тень от меню}
       getshadow;
       {box - процедура, выводящая на экран окно}
       box(1,0,80,18,1,15,double,'100 элементов');
      {исследуются 100 упорядоченных по возрастанию элементов}
         upor(b,b);
         make(3,100,b,b1,1);
      {исследуются 100 неупорядоченных (случайных) элементов}
          notupor(b,b);
          make(8,100,b,b1,2);
       {исследуются 100 упорядоченных по убыванию элементов}
          make(13,100,b1,b1,3);
     repeat   k:=readkey;    until k=#27;
  end;
4:begin
       {getshadow - процедура, убирающая тень от меню}
       getshadow;
       box(1,0,80,18,1,15,double,'1000 элементов');
 {исследуется 1000 упорядоченных по возрастанию элементов}
   upor(c,c);
   make(3,1000,c,c1,1);
 {исследуется 1000 неупорядоченных (случайных) элементов}
   notupor(c,c);
   make(8,1000,c,c1,2);
 {исследуется 1000 упорядоченных по убыванию элементов}
   make(13,1000,c1,c,3);
     repeat
      k:=readkey;
     until k=#27;
  end;
5:begin
       getshadow;
       box(1,0,80,18,1,15,double,'10000 элементов');
 {исследуются 10000 упорядоченных по возрастанию элементов}
   upor(d,d);
   make(3,10000,d,d1,1);
 {исследуются 10000 неупорядоченных (случайных) элементов}
   notupor(d,d);
   make(8,10000,d,d1,2);
  {исследуются 10000 упорядоченных по убыванию элементов}
   make(13,10000,d1,d,3);
     repeat
      k:=readkey;
     until k=#27;
  end;
6:begin
       {getshadow - процедура, убирающая тень от меню}
       getshadow;
       {ввод окна с темой курсовой работы}
       box(10,5,70,15,lightgray,0,double,'О программе');
       putshadow(10,5,70,15);
       textcolor(brown);
       gotoxy(12,7);write('Данная программа является курсовой работой по дисциплине');
       gotoxy(21,8);write('"Алгоритмы и структуры обработки данных"');
       gotoxy(30,9);write('Тема курсовой работы: ');
       gotoxy(18,10);write('   "Исследование прямых методов сортировки"');
       gotoxy(17,11);write('Курсовую работу выполнили студенты группы 95-ОА-21');
         textcolor(red);gotoxy(3,25);write('Esc - главное меню');
     repeat
      k:=readkey;
     until k=#27;
  end;
end;
until item=7;
end.
{*********************конец программы********************}
 

Содержание  Назад  Вперед