|
UPOR |
процедура генерирует упорядоченный по возрастанию массив чисел |
|
NOTUPOR |
процедура генерирует неупорядоченный (случайный) массив чисел |
|
PR_CHOOSE |
процедура осуществляет сортировку методом прямого выбора |
|
PR_INS |
процедура осуществляет сортировку методом прямой вставки |
|
PR_OBM |
процедура осуществляет сортировку методом прямого обмена |
|
MAKE |
процедура осуществляет исследование прямых методов сортировки |
|
EXAMPLE |
процедура выполняет контрольный пример (сортировку методом прямого включения) |
Текст программы
{$M 65000,65000,65000}
{Выделение памяти осуществляется для того, чтобы было возможно осуществлять исследование массива, содержащего 10000 элементов
***********************************************************
Данная программа является курсовой работой по дисциплине
'Структуры и алгоритмы обработки данных'
на тему 'Прямые методы сортировки'
В работе исследуются методы:
- прямого выбора;
- прямого обмена;
- прямой вставки.
Для исследования используются массивы из 10,100,100,10000 элементов.
**********************************************************}
{ использование модулей для осуществления вывода на экран }
uses crt,crtext,dcrt;***************************************************}
{** процедура, генерирующая упорядоченный по возрастанию массив чисел**}
{*********************************************************}
procedure upor(a:array of integer;var a1:array of integer);
var
{i - счетчик в циклах}
i:integer;
begin
{первый элемент принимает значение 1}
a[0]:=1;
for i:=1 to high(a) do
begin
{каждый последующий элемент принимает значение,
равное значению предыдущего элемента + случайное число}
a[i]:=a[i-1]+random(2);
end;
for i:=0 to high(a) do
a1[i]:=a[i];
end;
{*********************************************************}
{** процедура, генерирующая не упорядоченный (случайный) массив чисел**}