Как сделать, чтобы при рандоме числа не повторялись

@kolodryn · Регистрация: 03.09.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте! Возникла небольшая проблема: при генерации случайных чисел от 1 до 10 нужно чтобы они не повторялись, пока все 10 не сгенерируются. Сразу говорю - я новичок, поэтому не судите строго. Вот код:

Visual Basic
1
2
Randomize
number = Int(10 * Rnd + 1)

@gazlan · 15.06.2014, 04:21

Сообщение от Hugo121

Код создания тасованного массива можно увидеть?

На VB не пишу. По ссылкам в wiki есть псевдокод - четыре строчки. На C это будет выглядеть так:

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// [url]http://en.wikipedia.org/wiki/Knuth_shuffle#Modern_method[/url]
// To shuffle an array a of n elements (indices 0..n-1):
// for i from n - 1 downto 1 do
//    j < random integer with 0 <= j <= i
//    exchange a[j] and a[i]
 
#define ARR_SIZE     (10)
 
for (int ii = ARR_SIZE - 1; ii >= 0; --ii) 
{  
   int jj = rand() % (ii + 1);
 
   int tt = array[ii];
 
   array[ii] = array[jj];
   array[jj] = tt;
}

@ikki · 15.06.2014, 05:41

Сообщение от gazlan

ii >= 0

и что, на С есть необходимость для последнего оставшегося элемента массива находить другой элемент из оставшихся и менять этот элемент местами сам с собой?

интересный язык.
быстрый и мощный, в отличие от VBA.

@gazlan · 15.06.2014, 06:18

Сообщение от ikki

менять этот элемент местами сам с собой?

Нет, разумеется. Спасибо, что обратили внимание.

SoftIce · 15.06.2014, 09:08

Можно сделать так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Main()
    Dim A() As Long, i As Integer, s As String
    
    GetUniqUnsortArray A
    
    For i = LBound(A) To UBound(A)
        s = s & A(i) & vbTab
    Next i
    MsgBox s
End Sub
 
Private Sub GetUniqUnsortArray(List() As Long, Optional ByVal min As Long = 1, Optional ByVal max As Long = 10)
Dim i As Long, pos As Long, tmp As Long
    randomize
    ReDim List(min To max)
    For i = min To max
          List(i) = i ' Заполняем массив значениями от min до max
    Next i
    'Перемешиваем массив
    For i = min To max - 1
        pos = Int((max - i + 1) * Rnd + i)
        tmp = List(pos)
        List(pos) = List(i)
        List(i) = tmp
    Next i
End Sub

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .