Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2008.02.24;
Скачать: [xml.tar.bz2];

Вниз

Рандомный вывод массива   Найти похожие ветки 

 
Nous Mellon_   (2008-01-20 16:50) [0]

Доброе время суток, друзья! Не подскажете простой и эффективны алгоритм, можно кусок кода на делфи\пхп который бы реализовывал следующую задачу. Есть некоторый массив "a" из 100 элементов. Нужно вывести его на экран, но не последовательно, а рандомно, например сначала 5й, потом 9й, потом 24й, и так все 100 в итоге.


 
@!!ex ©   (2008-01-20 16:53) [1]

> [0] Nous Mellon_   (20.01.08 16:50)

Отсортируй массив в случайном порядке.
var
 i:integer;
 newPos:integer;
 tmp:Value;
begin
for i:=0 to 99 do begin
 tmp:=Items[i];
 newPos:=Random(100);
 Items[i]:=Items[newPos];
 Items[newPos]:=tmp;
end;
end


 
Anatoly Podgoretsky ©   (2008-01-20 17:02) [2]

> Nous Mellon_  (20.01.2008 16:50:00)  [0]

Обычная сортировка, перестановкой по Random


 
ketmar ©   (2008-01-20 17:33) [3]

>[1] @!!ex ©(20.01.08 16:53)
>Отсортируй массив в случайном порядке.

порвало.


 
Nous Mellon_   (2008-01-20 18:14) [4]

Все понял, большое спасибо!


 
homm ©   (2008-01-20 18:16) [5]

Не обязательно портить исходный массив для вывода.


 
Kerk ©   (2008-01-20 18:20) [6]

http://rsdn.ru/Forum/message/453591.flat.aspx
оно?



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2008.02.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.029 c
2-1201517761
Neo
2008-01-28 13:56
2008.02.24
Вопрос по SQL


15-1200776703
Riply
2008-01-20 00:05
2008.02.24
Рекурсивная работа с FindFirst/Next


15-1200841437
Drowsy
2008-01-20 18:03
2008.02.24
FIBPlus.


11-1183818425
BMouradov
2007-07-07 18:27
2008.02.24
KolBZip2


15-1201076635
Polevi
2008-01-23 11:23
2008.02.24
Ищу работу в Петербурге





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский