Вывести два случайных несовпадающих числа

@Effect89 · Регистрация: 09.11.2014

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

Напишите программу, в которой в переменные intX и intY записываются разные случайные числа в диапазоне от 10 до 40 включительно. Т.е. необходимо поместить и в intX и в intY случайные числа, но так, чтобы эти числа не совпадали. Полученные значения переменных вывести на экран.
Для решения задачи используйте цикл Do While или Do Until .

@Апострофф · 20.11.2014, 08:00

VB.NET
1
2
3
4
5
6
7
8
9
10
Public Class Form1
  Dim intX, intY As Int16
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    intX = Int(Rnd() * 31 + 10)
    Do
      intY = Int(Rnd() * 31 + 10)
    Loop While intX = intY
    MessageBox.Show("intX=" & intX & vbCrLf & "intY=" & intY)
  End Sub
End Class

Добавлено через 1 час 3 минуты
Вспомнил

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Public Class Form1
  Dim intX, intY As Int32
  Dim Rn As New Random
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    intX = Int(Rn.NextDouble * 31 + 10)
    Do
      intY = Int(Rn.NextDouble * 31 + 10)
    Loop While intY = intX
    MessageBox.Show("intX=" & intX & vbCrLf & "intY=" & intY)
  End Sub
End Class

SoftIce · 20.11.2014, 09:21

Сообщение от Апострофф

Вспомнил

VB.NET
1
intX = Rn.Next(10, 41)

@Qwertiy · 20.11.2014, 17:52

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

Для решения задачи используйте цикл Do While или Do Until .

Брр... Без него же лучше. Уменьшить верхнюю границу и увеличить результат, если второе число больше либо равно первого.

@Visualist · 21.11.2014, 12:31

VB.NET
1
2
3
4
5
6
7
8
9
        Dim PodobraliChislo = False 'подобрали число
        Dim IntX As Integer = Fix(10 + 40 * Rnd())
 
        While PodobraliChislo = False 'будем подбирать, пока не подберем
            IntY = Fix(10 + 40 * Rnd())
            PodobraliChislo = True 'как бы подобрали
     
            If IntY = IntX Then PodobraliChislo = False 'если совпали - подбираем заново
        End While

@Апострофф · 21.11.2014, 12:58

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

IntY = Fix(10 + 40 * Rnd())

И получишь число от 10 до 49 (а если очень повезет, то и до 50). А надо было от 10 до 40.

@Visualist · 21.11.2014, 15:00

Сообщение от Апострофф

И получишь число от 10 до 49

да, ты прав, нужно значит "10 + 30" написать

@Qwertiy · 21.11.2014, 16:14

Visualist, что-то ты опять нагородил. Твой же код:

VB.NET
1
2
3
4
5
Dim IntX As Integer = Fix(10 + 40 * Rnd()), IntY As Integer
 
Do
  IntY = Fix(10 + 40 * Rnd())
Loop While IntX = IntY

Добавлено через 2 минуты
А вообще, я бы сделал

VB.NET
1
2
3
Dim Rand As New Random
Dim X As Integer = Rand.Next(10, 41), Y As Integer = Rand.Next(10, 40)
Y -= Y >= X

@Visualist · 21.11.2014, 16:28

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

Visualist, что-то ты опять нагородил. Твой же код:

Ошибаешься, я не писал такого кода

@Qwertiy · 21.11.2014, 18:25

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

Ошибаешься, я не писал такого кода

Имелось в виду: "твой код, переписанный до нормального состояния"

@Visualist · 21.11.2014, 21:09

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

Y -= Y >= X

а что делает вот эта строка?

@Qwertiy · 21.11.2014, 23:04

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

а что делает вот эта строка?

If Y >= X Then Y += 1
В VB (кроме 2003) True равно -1, поэтому для увеличения на 1 используется вычитание, а не сложение, как в си.

Первое число генерируется в диапазоне [10, 40]. Для второго числа верхняя граница уменьшается на 1, что даёт отрезок [10, 39], который представляет объединение отрезков [10, X-1] и [X, 39] (случай с X=10 аналогичный, мне лень его расписывать). Если точка попала во второй отрезок, то сдвигаем её на 1 в большую сторону, получая объединение отрезков [10, X-1] и [X+1, 40], т. е. все допустимые для второго числа значения. Равномерное распределение при этом сохраняется.

Кстати, другой вариант присваивать 40, если числа совпали. Идея та же (т. к. 40 исключено при второй генерации).

@Visualist · 22.11.2014, 00:25

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

поэтому для увеличения на 1 используется вычитание, а не сложение, как в си.

я понял, что если числа совпали, то второе плюсуется на 1, но как оказывается, что они разняться потом на больше, чем 1 - это для меня до сих пор загадка

@Qwertiy · 22.11.2014, 01:32

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

я понял, что если числа совпали, то второе плюсуется на 1, но как оказывается, что они разняться потом на больше, чем 1 - это для меня до сих пор загадка

Там же больше или равно, а не равно.

Например, рассмотрим начальный отрезок [1, 5], пусть X=Rand.Next(1,6) будет 3. Тогда

Code
1
2
3
1 2 3 4 // Y = Rand.Next(1, 5)
0 0 1 1 // -(Y >= X)
1 2 4 5 // Y -= Y >= X

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

Вывести два случайных несовпадающих числа

Решение

Решение

@Effect89 0 / 0 / 0 Регистрация: 09.11.2014 Сообщений: 4

	Вывести два случайных несовпадающих числа 20.11.2014, 02:32. Показов 1714. Ответов 13 Метки нет (Все метки) Напишите программу, в которой в переменные intX и intY записываются разные случайные числа в диапазоне от 10 до 40 включительно. Т.е. необходимо поместить и в intX и в intY случайные числа, но так, чтобы эти числа не совпадали. Полученные значения переменных вывести на экран. Для решения задачи используйте цикл Do While или Do Until . 0