|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2007, 00:07 | #1 |
Форумчанин
Регистрация: 22.09.2007
Сообщений: 540
|
1. Сортировка Шелла по убыванию 2. Сортировка вставками по убыванию
Вот сделал лабу с 2 сортировками:
1. Сортировка Шелла по убыванию 2. Сортировка вставками по убыванию Работает прога через раз. Хотя я сортировки просто взял и совместил (2 готовых исходника в один и счётчик добавил). Может кто поможет отладить прогу... Файл с экзехой и исходником прикрепил... |
25.09.2007, 17:16 | #2 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
1) write( arr[i] ); write(' ');
-> write( arr[i] , ' '); 2) Шелл вроде работает. 3) procedure InsertionSort(var Arr : TReal1DArray; N : Integer); var I : Integer; J : Integer; K : Integer; Tmp : Double; begin if N=1 then begin Exit; end; N := N-1; i := 1; repeat j := 0; repeat if Arr[i]<=Arr[j] then begin k := i; Tmp := Arr[i]; repeat Arr[k] := Arr[k-1]; k := k-1; until not (k>j); Arr[j] := Tmp; j := i; end else begin j := j+1; end; until not (j<i); i := i+1; until not (i<=n); end;
Берегите друг друга!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка по убыванию по неиндексированным полям | Udaf_Alex | БД в Delphi | 3 | 17.03.2008 08:42 |
Сортировка TAdoTable по убыванию | mm_mauser | БД в Delphi | 8 | 05.12.2007 12:37 |
Сортировка по убыванию | Костя | БД в Delphi | 3 | 20.11.2007 08:37 |
Сортировка вставками глючит... | Arkuz | Общие вопросы Delphi | 1 | 01.10.2007 21:44 |