Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Аида
#1

сортировка слиянием - Delphi

31.05.2012, 15:15. Просмотров 352. Ответов 0
Метки нет (Все метки)

procedure Merge(var b, P :MyArray; l, m, r : Integer );
var
i, j, k, z : Integer;
A2 : MyArray;
begin
z := r - l + 1;
i := l;
j := m;
k := 1;
while k <= z do
begin
if (j > r) or ((i < m) and (b[i] < b[j])) then
begin
A2[k] := b[i];
i := i + 1;
end
else
begin
A2[k] := b[j];
j := j + 1;
end;
k := k + 1;
end;
i := l;
for k := 1 to z do
begin
b[i] := A2[k];
i := i + 1;
end;
end;

procedure RecoursiveMerge(var b, P : MyArray; l, r : Word);
var
m : Integer;
begin
m := (l + r + 1) div 2;
if l < m then
RecoursiveMerge(b, P, l, m - 1);
if m < r then
RecoursiveMerge(b, P, m, r);
Merge(b, P, l, m, r);
end;

procedure MergeSort(var b:MyArray; n:Integer);
var
p : ^MyArray;
begin
New(p);
RecoursiveMerge(b, p^, 1, n);
Dispose(p);
end;





помогите разобраться) не могли бы вы написать комментарий к каждой строчке))
http://www.cyberforum.ru/delphi-beginners/thread1135629.html
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2012, 15:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос сортировка слиянием (Delphi):

Сортировка слиянием
Что значит по сортировке этим методом, отсортированный файл? Данные...

Сортировка слиянием
Ребят, посмотрите, пожалуйста! Делаю &quot;Сортировку слиянием&quot; на Delphi, но почему...

Сортировка естественным слиянием
program Project1; {$APPTYPE CONSOLE} uses SysUtils; const N =...

Сортировка списка слиянием
Приветствую! Есть программа, сортирующая список пузырьком. Нужна помощь с...

Сортировка слиянием: Ошибка в программе
Написал прогу сортировки. вроде все верно,а не выводит . где ошибки? program...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 15:15
Привет! Вот еще темы с решениями:

Массив добавляет нули сортировка слиянием
program Project; {$APPTYPE CONSOLE} uses SysUtils; type ...

Двумерный массив сортировка Хоара и слиянием по строкам
есть исходники не совсем верные нужно отредактировать чтобы работало 200 на...

Внешняя сортировка многопоточным однофазным сбалансированным слиянием - исправить ошибки
Помогите пожалуйста исправить ошибки в коде внешней сортировки многопоточным...

Вычисление объединения слиянием
На вход подаются два упорядоченных множества (типа string) А и В Выход=...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru