Item:byte;

begin

clrscr;cursoroff; {гашение курсора}

repeat

textbackground(0);clrscr;

{Fill - процедура, заполняющая заданную область экрана заданными символами заданного цвета}

fill(lightgray,1,1,2,80,25,' ');

{menuv - процедура, выводящая на экран вертикальное меню}

menuv(25,10,menu,lightgray,black,red,lightgreen,yellow,'Сортировка',item,double);

{item - переменная, содержащая номер выбранного пункта меню}

case item of

1:Example;

2:Begin

{getshadow - процедура, убирающая тень от меню}

getshadow;

{** исследуются 10 упорядоченных по возрастанию элементов **}

{box - процедура, выводящая на экран окно}

box(1,0,80,18,1,15,double,'10 элементов');

{вызов процедуры upor, генерирующей упорядоченный по возрастанию

массив чисел}

upor(a,a);

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

make(3,10,a,a1,1);

{** исследуются 10 неупорядоченных (случайных) элементов **}

{вызов процедуры notupor, генерирующей неупорядоченный(случайный) массив чисел}

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(' "Исследование прямых методов сортировки"');

textcolor(red);gotoxy(3,25);write('Esc - главное меню');

repeat

k:=readkey;

until k=#27;

end;

end;

until item=7;

end.

{*********************конец программы********************}