Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2007, 00:07   #1
Arkuz
Форумчанин
 
Аватар для Arkuz
 
Регистрация: 22.09.2007
Сообщений: 540
Счастье 1. Сортировка Шелла по убыванию 2. Сортировка вставками по убыванию

Вот сделал лабу с 2 сортировками:
1. Сортировка Шелла по убыванию
2. Сортировка вставками по убыванию
Работает прога через раз. Хотя я сортировки просто взял и совместил (2 готовых исходника в один и счётчик добавил).
Может кто поможет отладить прогу...
Файл с экзехой и исходником прикрепил...
Вложения
Тип файла: rar Laba1.Sortirovki.rar (21.3 Кб, 71 просмотров)
Arkuz вне форума Ответить с цитированием
Старый 25.09.2007, 17:16   #2
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 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;
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка по убыванию по неиндексированным полям 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