Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

icq: 25224049
Восклицание Сортировка простым выбором

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

icq: 723-321
skype: mad_cat1982
По умолчанию

Код:

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка выбором.. AronakSS Паскаль 1 09.10.2010 13:27
Сортировка простым выбором в Delphi Vlad111 Помощь студентам 0 13.11.2009 11:03
Сортировка простым обменом Sparky Assembler 1 26.10.2009 12:58
Сортировка простым выбором (метод пузырька)) Sparky Assembler 3 22.09.2009 18:06
Сортировка выбором curly182 Общие вопросы C/C++ 3 24.05.2009 13:45


18:38.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru