powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перемешать массив из строк в случайном порядке
4 сообщений из 4, страница 1 из 1
Перемешать массив из строк в случайном порядке
    #37677939
Фотография surbanec
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
плиз киньте кодик дял перемешивания строкового массива в случайном порядке... буду рад
...
Рейтинг: 0 / 0
Перемешать массив из строк в случайном порядке
    #37677975
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
surbanec,

как вариант, можешь побаловаться с командой Rnd (n) - создание случайного числа от 0 до 1
я использовал её при перетасовке колоды в виртуальной карточной игре. присваиваешь каждой строке массива порядковый номер, после некоторых манипуляций с Rnd всё должно получиться. мб, предложат что-то потолковей. если нет, выложу код с моей проги, можно подправить под твои нужды
...
Рейтинг: 0 / 0
Перемешать массив из строк в случайном порядке
    #37677977
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
бери 2-3 случайных числа и меняй по кругу в цикле

Randomize
For i = 1 To 1000
j = Int(UBound(m) * Rnd(k))
k = Int(UBound(m) * Rnd(j))
T = m(j): m(j) = m(k): m(k) = T
Next i
...
Рейтинг: 0 / 0
Перемешать массив из строк в случайном порядке
    #37678086
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
for i=lbound(arr) to ubound(arr)
   swap arr(i), arr(rand(lbound(arr), ubound(arr)))
next i


где swap - процедура обмена значений двух элементов массива, rand(from, to) - функция, возвращающая равномерно распределеённое случайное целое в заданном диапазоне.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перемешать массив из строк в случайном порядке
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]