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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2011, 20:32   #1
vit9i
Новичок
Джуниор
 
Регистрация: 05.11.2010
Сообщений: 1
Восклицание Сортировка простым выбором

Ребят помогите, нужна прога на делфи, чтобы делала сортировку простым выбором
vit9i вне форума Ответить с цитированием
Старый 31.05.2011, 20:41   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
procedure SellectionSort( var a: array of integer; min, 
max: Integer); 
var 
i, j, best_value, best_j: longint; 
begin 
for i:=min to max do begin 
best_value:=a[i]; 
best_j:=i; 
for j:=i+1 to max do begin 
if a[j]<best_value then begin 
best_value:=a[j]; 
best_j:=j; 
end; 
end; 
a[best_j]:=a[i]; 
a[i]:=best_value; 
end; 
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка выбором.. AronakSS Паскаль, Turbo Pascal, PascalABC.NET 1 09.10.2010 13:27
Сортировка простым выбором в Delphi Vlad111 Помощь студентам 0 13.11.2009 10:03
Сортировка простым обменом Sparky Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 26.10.2009 11:58
Сортировка простым выбором (метод пузырька)) Sparky Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 22.09.2009 18:06
Сортировка выбором curly182 Общие вопросы C/C++ 3 24.05.2009 13:45