Главная страница
    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.06 c
2-1201788975
@!!ex
2008-01-31 17:16
2008.02.24
Отменить Win+D


15-1200733009
Vernutoring
2008-01-19 11:56
2008.02.24
asm - ошибка...


15-1200776972
Kostafey
2008-01-20 00:09
2008.02.24
С днем рождения ! 20 января


2-1201687447
Wolf
2008-01-30 13:04
2008.02.24
подскажите функцию добавления косой черты к пути


3-1191778975
3Lander
2007-10-07 21:42
2008.02.24
Вопрос по работе с IBX





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский