1. Прост до глупости. Работает соответственно.
Dim Value(4)
For q=0 To 100000
X=Rnd(3000)
X=X/1000+1
Value(X)=Value(X)+1
Next
For q=0 To 4
Print q+" возвращалось приблизительно в "+ Value(q)/1000+"% случаев..."
Next
WaitKey()
2. Работает на основе исправления "глюков" округления
Dim Value(4)
For q=0 To 10000
X=aRnd(2)+1
Value(X)=Value(X)+1
Next
For q=0 To 4
Print q+" возвращалось приблизительно в "+ Value(q)/100+"% случаев..."
Next
WaitKey()
Function aRnd(RndValue#)
RndCounter=Rnd(RndValue+1)
If RndCounter=RndValue+1 Then RndCounter=0
Return RndCounter
End Function
Вот такие пироги...
