Цыфры на угад

[Sashka23th]

Вопрос
есть 4 переменых которым присваевается случайные числа до ста
a1=int(rnd*100)
a2=int(rnd*100)
a3=int(rnd*100)
a4=int(rnd*100)
как зделать так чтоб цыфры в переменых случайно не совпали

[Matew]

Перед всеми RND:

Код: Выделить всё

Randomize (timer)


,но это не панацея. Надежнее проверять if a4=a3 or a4=a2 ... then a4 = int(rnd*100)

[alibek]

Составляешь список из ста чисел (от 1 до 100), выбираешь из них четыре случайных элемента, используешь.

[Sashka23th]

Составляешь список из ста чисел (от 1 до 100), выбираешь из них четыре случайных элемента, используешь.

а какой код нужен для выборки случайного елемента

[Aster]

можно воспользоваться этим кодом:

Код: Выделить всё

Private Sub Form_Load()
Dim a As Integer
qq:
a = Int(Rnd * 100)
If List1.ListCount <> 4 Then

For i = 1 To List1.ListCount
If a = List1.List(i - 1) Then
GoTo qq
Exit For
End If
Next i
List1.AddItem (a)
GoTo qq
Else
Exit Sub
End If
End Sub


[alibek]

можно воспользоваться этим кодом:

Но лучше не надо, ибо лажа.

Уж лучше что-то такое:

Код: Выделить всё

Private Sub Form_Load()
Dim I As Long, N As Long
Const NumCount As Long = 4
List1.Visible = False
List1.Clear
For I = 1 To 100
  List1.AddItem Trim$(Str$(I))
Next I
N = List1.ListCount - NumCount
Randomize
For I = 1 To N
  List1.RemoveItem Fix(Rnd * List1.ListCount)
Next I
List1.Visible = True
End Sub


[Sashka23th]

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

[Александр Дмитриев]

MatewС Randomize никакой разницы, даже больше вероятность совпадения
Самый быстрый и действенный способ - после каждого присваивания проверять совпадения:

Код: Выделить всё

Dim a(1 To 4) As Integer
For i = 1 To 4
letting:
a(i) = Int(Rnd * 100)
For h = 1 To i - 1
If a(i) = a(h) Then GoTo letting
Next h
Next i


[hCORe]

Ну да... А среднее количество операций будет порядка Ln((i-1)^2)
Хотя, если список небольшой...

Но с удалением рандомного элемента прикольнее
Главное - никаких гвоздей!

[ism]

Млин, когда же этот GoTo вымрет окончательно, в 100% случаев можно обойтись без него
обработка ошибок в VB6 не всчет

[alibek]

Самый быстрый и действенный способ - после каждого присваивания проверять совпадения:

Если честно, уже надоело объяснять лажовость этого метода.
Но попытаюсь еще раз.
Представь, что тебе надо сгенерить не четыре числа из ста (от 1 до 100), а 999 чисел из 1000 (от 1 до 1000). Дальше объяснять?

[tyomitch]

Млин, когда же этот GoTo вымрет окончательно, в 100% случаев можно обойтись без него

И чем же он тебе, интересно, так мешает?

[Mikle]

alibek
А так лучше?

Код: Выделить всё

Option Explicit

Private Const MaxVal = 4096
Private Const NumCnt = 256
Dim tabIn(MaxVal - 1) As Long, tiSize As Long
Dim tabOut(NumCnt - 1) As Long

Private Sub Form_Load()
Dim n As Long, i As Long
  For n = 1 To MaxVal
    tabIn(n - 1) = n
  Next n
  tiSize = MaxVal
  For n = 0 To NumCnt - 1
    i = tiSize * Rnd
    tabOut(n) = tabIn(i)
    tabIn(i) = tabIn(tiSize - 1)
    tiSize = tiSize - 1
  Next n
End Sub


[ism]

И чем же он тебе, интересно, так мешает?

Использование GoTo у опытных программистов считается дурным тоном, его давно хотят забыть. Насколько я знаю в Java он даже является служебным словом, но как GoTo не работает.
Раньше в старых языках программирования при переходе вверх часто возникали ошибки, а иногда переход мог попасть даже на середину команды. В современных языках таких ошибок вродебы не встречается. В 100% случаев обойтись без него можно используя циклы. Удобен он только для выхода из вложеных циклов, а востальных случаях он только затрудняет чтение кода посторонним человеком.

[Крост]

Код: Выделить всё

Private Sub Form_Load()
    Dim a1 As Integer
    Dim a2 As Integer
    Dim a3 As Integer
    Dim a4 As Integer

    Randomize
    a1 = Int(Rnd * 100)
    a2 = Int(Rnd * 100)
    a3 = Int(Rnd * 100)
    a4 = Int(Rnd * 100)
   
    Do While a2 = a1
        a2 = Int(Rnd * 100)
    Loop
   
    Do While a3 = a2 Or a3 = a1
        a3 = Int(Rnd * 100)
    Loop
   
    Do While a4 = a3 Or a4 = a2 Or a4 = a1
        a4 = Int(Rnd * 100)
    Loop
End Sub

[alibek]

Ну я фигею.
Крост, ты вообще топик читал?

[Крост]

alibek
Вообще читал..

[tyomitch]

И чем же он тебе, интересно, так мешает?

Использование GoTo у опытных программистов считается дурным тоном, его давно хотят забыть. ...

Зачем же всё делить на чёрное и белое?

In brief, undisciplined use of goto leads to spaghetti code which tends to be unmaintainable... However, Donald Knuth has shown in Structured Programming with goto Statements that disciplined use of goto may be necessary to emulate missing control-flow structures.

Умный человек руководствуется разумом, а не догмами.

[alibek]

alibek
Вообще читал..

Тогда ты должен был заметить, что подобный код уже предлагался трижды.

[Александр Дмитриев]

Ну да... А среднее количество операций будет порядка Ln((i-1)^2)

Среднее количество операций здесь будет n+(2n/m)(1+(1/m)(m-1)(n-1)/2) , где n - количество заполняемых элементов массива, m - количество вариантов, из которых выбирается значения элементов. Возможно, действительно многовато (подходит только для небольших массивов и/или большого количества вариантов выбора), но во всяком случае быстрее, чем с ListBox'ом.

[hCORe]

Конечно. Визуальные контролы тормозят
Поэтому надо использовать массивы. Или, в крайнем случае, коллекции.

[tyomitch]

Конечно. Визуальные контролы тормозят
Поэтому надо использовать массивы. Или, в крайнем случае, коллекции.

О! А ведь у меня для этого уже есть специальная коллекция!
http://vbrussian.com/Examples.asp?ID=93

[LexBondAgent007]

Нашел я эту темку =) Поиск действительно рулит!

[Sirik]

хочу высказать по поводу GOTO:
мой учитель по информатике когда-то в школе мне сказал: "кто программирует на васике, тот никогда не будет хорошим программистом". естественно что это было тогда, когда о visual средствах никто ничего не слышал.
он имел в виду, что старый васик в основном использует переходы goto, так не имел процедур и функций.

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

теперь мы имеем: он учитель в школе, я работаю программистом и сотрудничаю с иностанными колегами (причём, за последний год, я написал программу которая конкурирует с программой Kawasaki Robot System)

так вот.

[vvs_adm]

Я так понимаю, что твоей крутой проге наср..ть на процедуры и функции в VB (в ней даже и словов то таких не встречается) и ты, как истинный крутой программер, гораздо более значимый, чем учитель по информатике, понатыркал в свое детище GoTo куда только можно Если нет, то я чета не допру, какое отношение последний топик имеет к данной теме

[Sirik]

нет конечно, я использовал в программе и процедуры и функции.
имелось в виду, что использование goto это нормальное остаточное явление и использование его, опрератора, никоем образом не влиет на компетентность программиста.

2 vvs_adm:
зы. старайся выражаться по проще, а то здоровье может подпортиться

[vvs_adm]

To Sirik
Как ты хорошо замаскировал то, что имелось ввиду В жизнь бы не догадался...

тот никогда не будет хорошим программистом ...
он имел в виду, что старый васик в основном использует переходы goto, так не имел процедур и функций (т.е. почти что вместо процедур и функций)

вроде так ?

теперь мы имеем: он учитель в школе (т.е. лох ушастый), я работаю программистом и сотрудничаю с иностанными колегами (т.е. стал таки хорошим программистом)

т.е. ты смог таки стать крутым программистом, используя переходы Goto вместо процедур и функций.

Вроде все правильно... И где я ошибся?

[Sirik]

по-моему это всё называеться: человеку делать не хр..н, вот он и пишет что-попало.
я свою мысль закончил, а ты понимай как хоч

[vvs_adm]

To Sirik
Ну отчасти ты прав, делать нехрен, настроение не из лучших и трафик за сентябрь уже накрылся Мож. отчасти и повлияло