Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
Сортировка (2)
-->Алгоритмы сортировки
Опубликовано codeLocker в 18.07.2008 в 09:15.
ОС: Windows Язык: Delphi/Kylix Раздел: Алгоритмы • Сортировка
Алгоритм 1. Сортировка вставками.
-->Сортировка связанного списка
Опубликовано codeLocker в 18.07.2008 в 09:14.
ОС: Windows Язык: Delphi/Kylix Раздел: Алгоритмы • Сортировка
program noname;
type
PData = ^TData;
TData = record
next: PData;
Name: string[40];
{ ...другие поля данных }
end;
var
root: PData; { это указатель на первую запись в связанном списке }
procedure InsertRecord(var root: PData; pItem: PData);
{ вставляем запись, на которую указывает pItem в список начиная
с root и с требуемым порядком сортировки }
var
pWalk, pLast: PData;
begin
type
PData = ^TData;
TData = record
next: PData;
Name: string[40];
{ ...другие поля данных }
end;
var
root: PData; { это указатель на первую запись в связанном списке }
procedure InsertRecord(var root: PData; pItem: PData);
{ вставляем запись, на которую указывает pItem в список начиная
с root и с требуемым порядком сортировки }
var
pWalk, pLast: PData;
begin
Спонсоры проекта:
- Прочитайте сегодня холодильные шкафы
Навигация
Интересные сайты
Сейчас на сайте
Сейчас на сайте 0 пользователей и 1 гость.
Статистика
Всего материалов: 1387
