Пример сортировки методом прямого включения

pr_obm(a,a1,kol_pr_obm,kol_sr_obm);
{---------метод прямого выбора----------}
pr_choose(a,a1,kol_pr_choose,kol_sr_choose);
{** вывод результата исследования **}
{вывод шапки таблицы}
gotoxy(3,x1);textcolor(cyan);textbackground(1);
writeln('Для ',high(a)+1,' ',s,' элементов:');
gotoxy(3,x1+1);textcolor(lightgreen);textbackground(1);
writeln('Методы:    прямого включения    прямого обмена     прямого выбора');
{вывод полученных при исследовании данных}
gotoxy(3,x1+2);textcolor(white);write('перест.');
gotoxy(17,wherey);write(kol_pr_ins);
gotoxy(37,wherey);write(kol_pr_obm);
gotoxy(58,wherey);writeln(kol_pr_choose);
gotoxy(3,x1+3);write('сравн.');
gotoxy(17,wherey);write(kol_sr_ins);
gotoxy(37,wherey);write(kol_sr_obm);
gotoxy(58,wherey);writeln(kol_sr_choose);
str(high(a)+1,s);box(1,19,80,24,1,15,double,s+' элементов');
 gotoxy(4,20);write('Сортировка ',s,' элементов по убыванию');
 gotoxy(4,21);write('Сортируются ',s,' упорядоченных(по возрастанию) элементов');
 gotoxy(4,22);write('Сортируются ',s,' неупорядоченных(случайных) элементов');
 textbackground(lightgray);
 textcolor(red);gotoxy(3,25);write('Esc - главное меню');
end;
{*********************************************
  Пример сортировки методом прямого включения
 Дан массив записей, содержащий:
           -имя студента;
           -кол-во баллов (рейтинг).
   Необходимо отсортировать данный массив по
   убыванию  количества  баллов  у  студента.
*********************************************}
procedure example;
type
{rec - запись, содержащая:
                 name - имя студента;
                 num  - кол-во баллов (рейтинг).}
 rec=record
      name:string;
      num:byte;
     end;
var
{mas - массив записей rec}
 mas:array[1..20] of rec;
{счетчики в циклах}
 i,j:integer;
 x:rec;
{переменные для подсчета количества сравнений и перемещений
 во время сортировки}
 k_sr,k_p:integer;
 key:char;
begin
{переменные для подсчета количества сравнений и перемещений
 во время сортировки}

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

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---