Вероятность

[Devilox]

Мне нужно, чтобы с увеличением высоты вероятность появления того или иного предмета уменьшалась, пробовал делать рандом:

m# = Rand(1,y/4)
if m=1
    бла-бла-бла
endif

Однако, несмотря на знак "#", рандом считается только в целых числах, что делать?

[Nerd]

Rnd же

[Devilox]

Спасибо, видимо, я справку плохо читаю

6 знаков после запятой - слишком много, а возможно округлять до определённого знака?(floor,cell,int не подходит)

[Randomize]

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

6 знаков после запятой - слишком много, а возможно округлять до определённого знака?(floor,cell,int не подходит)

Накатал на скорую руку:

Function NumberFormat$(val#, precision = 0)
    If precision < 0 Then precision = 0
    
    Local strv$ = val
    Local dotpos = Instr(strv,".")
    
    If dotpos < 1 Or precision < 1 Then Return Int(val)
    
    Return Mid(strv,1,dotpos - 1) + Mid(strv, dotpos, precision + 1)
End Function 


Демка:

SeedRnd(MilliSecs())
Local i
For i = 0 To 15
    Print "Precision " + i + " : " + NumberFormat(Rnd(0.0, 5.0), i)
Next
WaitKey() 


[ABTOMAT]

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

Накатал на скорую руку:

Function NumberFormat$(val#, precision = 0)
    If precision < 0 Then precision = 0
    
    Local strv$ = val
    Local dotpos = Instr(strv,".")
    
    If dotpos < 1 Or precision < 1 Then Return Int(val)
    
    Return Mid(strv,1,dotpos - 1) + Mid(strv, dotpos, precision + 1)
End Function 


Демка:

SeedRnd(MilliSecs())
Local i
For i = 0 To 15
    Print "Precision " + i + " : " + NumberFormat(Rnd(0.0, 5.0), i)
Next
WaitKey() 


А
умножить на 10 в степени N,
floor/cell/round по вкусу
поделить на 10 в степени N

нэ? Лучше со строками возиться?

[Randomize]

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

А
умножить на 10 в степени N,
floor/cell/round по вкусу
поделить на 10 в степени N

нэ? Лучше со строками возиться?

Дак я понял автору сугубо надо красивенько вывести СТРОКУ.
Если нет то:

Function Round#(val#,precision)
  val=Floor(val# * 10^precision)
  val=val/10^precision
  return val
End function 


[ABTOMAT]

Жаль, что нет форматированного вывода как в Си
Стоп-стоп, поцоны.
Блиц же выводит знаки после запятой до первого нуля, так что 3.140000 выведет строкой просто 3.14, так что мой алгоритм тоже канает.

[Hurrit]

есть такой вариант:

for i=1 to 1000/height
 blablabla action
next

[burovalex]

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

есть такой вариант:

for i=1 to 1000/height
 blablabla action
next

Но это не вероятность, а закономерность
Помоему простой и не запутанный метод, и не вижу смысла с дробями возиться. Можно же "y" сделать любым значением

ran=Rand(1,y*1000)
if ran=227 then ...