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



Описание процедур, используемых в программе


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;

{*********************************************************}

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




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