Случайные числа

Тема в разделе "Другие задачи", создана пользователем ANN, 3 окт 2009.

  1. ANN

    ANN Гость

    Помогите пожалуйста задать случайную величину от 1 до 16 с математическим ожиданием 4, распределенную по экспотенциальному закону. :rolleyes:
     
  2. etc

    etc Гость

    Cлучайная - random.
     
  3. ANN

    ANN Гость

    А как задать тат.ожидание? и закон распределения? ведь random даст нам абсолютно случайную величину
     
  4. etc

    etc Гость

    А как докжите, что 10 именно искомая случ. величина а 9 к примеру нет?
     
  5. Гость

    Если программируешь на visual basic 6.0, то алгоритм таков:
    (случайное число) = (максимальное значение) * RND
    пример:
    Нам надо задать случайное число от 0 до 67 где "A" - переменная
    Пишем:
    dim A as single
    A = Rnd * 67

    Пример рзвернутый, где на форме у нас находится тестовое поле Text1 и кнопка Command1. В Text1 будет появляться результат от 0 до 2:
    private sub Command1_Click()
    text1.text = Rnd * 2
    end sub

    Ответ будет с "хвостом" после запятой. Чтобы его избежать можно воспользоваться следующим фокусом:
    private sub Command1_Click()
    text1.text = (Rnd * 2) \ 1
    end sub

    Знак "\" означает деление без остатка (не путать с "/", где деление происходит с остатком).
    Вроде бы все что тебе нужно для хорошей жизни.
     
  6. Zato

    Zato Гость

    Блин >_<, не хочу флудить, но наболело.

    Вы на VB 6 что, совсем о типах переменных не задумываетесь. Я конечно понимаю, что компилятор сам прекрасно об этом позаботится, но ведь в других языках не всё так запущено, а значит вам будет очень сложно отвыкать.
    Не стоит пренебрегать правильным переводом из типа в тип, и уж тем более не стоит придумывать свои фокусы, аля "здравствуй школа".

    Задумайся над таким видом:
    Код (Text):
    private sub Command1_Click()
    Dim rand As Long
    rand= (Rnd * 2)
    text1.text =str(rand)
    end sub
     
Загрузка...
Похожие Темы - Случайные числа
  1. areostar
    Ответов:
    0
    Просмотров:
    359
  2. Bisyara
    Ответов:
    0
    Просмотров:
    954
  3. mel
    Ответов:
    3
    Просмотров:
    1.361
  4. GoldenYear
    Ответов:
    0
    Просмотров:
    1.167
  5. Untiy16
    Ответов:
    0
    Просмотров:
    1.368

Поделиться этой страницей