Программа с генератором случайных чисел не всегда выдает корректный результат

@mgla112 · Регистрация: 24.10.2014

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

Небольшой "шедевр". Вроде бы синтаксис верный, а вот работает периодически с ошибками. Как вы думаете, в чем причина?

VB.NET

Sub Main()
        Dim intX, intY As Integer
        Dim fX, fY As Single
 
        Randomize()
        fX = Rnd()
 
        Do
            Randomize()
            fY = Rnd()
        Loop Until fX <> fY
 
        intX = 30 + CInt(fX * 15)
        intY = 30 + CInt(fY * 15)
        Console.WriteLine(intX & " " & intY)
        Console.ReadKey()
    End Sub

@ViterAlex · 05.12.2014, 00:33

Ошибка наверное в том, что для генерации двух случайных чисел в заданном диапазоне нужно пользоваться классом Random:

VB.NET

Dim intX, intY As Integer
Dim rnd As New Random()
intX = rnd.Next(30, 46)
intY = rnd.Next(30, 46)

@mgla112 · 05.12.2014, 00:58 **[ТС]**

При разных fX и fY значения CInt и CInt могут оказаться одинаковыми (за счёт округления). Например, fY=0.01, fX=0.02, тогда fX*15=0.15, fY*15=0.3, CInt(fX*15)=0, Cint(fY*15)=0. Получим intX=30=intY).

@Visualist · 05.12.2014, 10:49

Вот тема недавно проскакивала, как генерировать 2 случ. числа
Вывести два случайных несовпадающих числа

@mgla112 0 / 0 / 0 Регистрация: 24.10.2014 Сообщений: 5
	05.12.2014, 00:58 [ТС]	3
	При разных fX и fY значения CInt и CInt могут оказаться одинаковыми (за счёт округления). Например, fY=0.01, fX=0.02, тогда fX15=0.15, fY15=0.3, CInt(fX15)=0, Cint(fY15)=0. Получим intX=30=intY). 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	05.12.2014, 10:49	4
	Вот тема недавно проскакивала, как генерировать 2 случ. числа Вывести два случайных несовпадающих числа 0