Страница: 1 |
Страница: 1 |
Вопрос: Сортировка чисел
Добавлено: 01.04.08 14:37
Автор вопроса: Игорь | ICQ: 457394129
Люди подскажите хороший код для сортировки чисел, как по возрастанию, так и по убыванию.
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
s12
Вопросов: 24
Ответов: 363
Профиль | | #1
Добавлено: 03.04.08 02:24
dim lMin as integer, iNum as byte
randomize timer
for i as integer=1 to 20
arr(i)=(rnd*1000)
next
for i as integer =1 to 20
lMin=arr(i)
iNum=i
for t as integer =i+1 to 20
if lMin>arr(t) then
lMin=arr(t)
iNum=i
end if
next
arr(iNum)=arr(i)
arr(i)=lMin
next
for i as integer =1 to 20
print arr(i) & " ";
next
sleep
Алгоритм сортировки, школа - 10 класс.
ЗЫ:
Стоит почитать Дональда Крута "Искусство программирования", в частности 3 том, там дофига этих сортировок.
Номер ответа: 2
Автор ответа:
Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #2
Добавлено: 03.04.08 03:20
Очень хороший алгоритм сортировки.