VPF::[Паскаль]Сортировка "бинарные включения"

AntonPavlov

Дата 5.4.2011, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Нужно написать программу для сортировки массива методом "бинарные включения". Вывести исходный и отсортированный массивы. В массиве 16 элементов, сортировка по убыванию, тип элементов - литерный.
Помогите, пожалуйста, очень нужно!

t_gran

Дата 6.4.2011, 02:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

Код


const
   CSize = 16;

type
   TArray = array [1..CSize] of string;
{------------------------------------------------}
procedure Fill(var arr: TArray; size: word; wordlen: byte);
const
   CAlphabet : string = 'abcdefghijklmnopqrstuvwxyz';
var
   len: byte;
   i: word;
   j: byte;
begin
   randomize;

   len:= length(CAlphabet);
   
   for i:= 1 to size do
      for j:= 1 to wordlen do
         arr[i]:= arr[i] + CAlphabet[random(len) + 1];
end;
{------------------------------------------------}
procedure Print(arr: TArray; size: word);
var
   i: word;
begin
   for i:= 1 to size do
      writeln(i:2, '. ', arr[i]);
end;
{------------------------------------------------}
procedure Sort(var arr: TArray; size: word);
var
   i, j, m, left, right: word;
   buff: string;
begin
   for i:= 2 to size do
      if arr[i-1] > arr[i] then
      begin
         buff:= arr[i];
         left:= 1;
         right:= i - 1;

         repeat
            m:= (left + right) div  2;
            if arr[m] < buff then
               left:= m + 1
            else
               right:= m - 1;
         until left > right;

         for j:= i-1 downto left do
            arr[j+1]:= arr[j];
         arr[left]:= buff;
      end;
end;
{------------------------------------------------}
var
   arr: TArray;
begin
   Fill(arr, CSize, 10);
   Print(arr, CSize);
   
   Sort(arr, CSize);
   
   writeln;
   Print(arr, CSize);
end.

Бинарник с исходником ниже

Это сообщение отредактировал(а) t_gran - 9.4.2011, 03:27

Присоединённый файл ( Кол-во скачиваний: 8 )

BinInsSort.zip 15,34 Kb

--------------------

Я знаю, что ничего не знаю© Сократ
user posted image

AntonPavlov

Дата 6.4.2011, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Огромное спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »