Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Ersekin
0 / 0 / 0
Регистрация: 11.04.2017
Сообщений: 4
1

Генератор рандомных чисел

11.04.2017, 20:00. Просмотров 996. Ответов 3
Метки нет (Все метки)

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

Например на выходе программы при генерации чисел (от 1 до 6) 100 раз, получится следующие:

Число 6 - 17 повторений
Число 5 - 23 повторения
число 4 - 12 повторений
число 3 - 18 повторений
Число 2 - 20 повторений
число 1 - 10 повторений

(Язык программирования любой, главное чтобы .exe файл получился)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2017, 20:00
Ответы с готовыми решениями:

Нужно вывести 100 рандомных чисел в текстовый файл, после чего отсортировать по возрастанию
Дан одномерный массив. Нужно вывести 100 рандомных чисел в текстовый файл, после чего отсортировать...

Генератор случайных чисел
Здравствуйте люди!!! Может ли кто нить из вас помочь мне? Нужно создать генератор случайных чисел...

Генератор случайных чисел
Использую для генерации случайных чисел вот такую формулу Int((6 - 1 + 1) * Rnd() + 1), но при этом...

Генератор случайных чисел
Друзья, не могли бы вы помочь мне? Мне нужно написать генератор случайных чисел (от минус...

Генератор случайных чисел
У меня есть код: Private Sub Command1_Click() Label1 = Array("1", "2", "3")(Int(Rnd * 3)) End...

3
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
12.04.2017, 08:23 2
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
RANDOMIZE TIMER
 
DIM x(100) AS INTEGER
DIM k(6) AS INTEGER
 
FOR i = 1 TO 100
   x(i) = 5 * RND + 1
   k(x(i)) = k(x(i)) + 1
NEXT
 
FOR i = 1 TO 6
   PRINT "CHISLO"; i; "-"; k(i); "POVTORENIY"
NEXT
END
2
m-ch
5523 / 813 / 272
Регистрация: 25.02.2011
Сообщений: 1,150
Записей в блоге: 1
14.04.2017, 08:54 3
Лучший ответ Сообщение было отмечено echs как решение

Решение

Цитата Сообщение от echs Посмотреть сообщение
x(i) = 5 * RND + 1
Данный вариант не дает равномерного распределения, количество сгенерированных чисел 1 и 6 будут в среднем в два раза меньше, чем числа 2, 3, 4, 5
для равномерного распределения лучше формулу генерации записать
QBasic/QuickBASIC
1
x(i) = INT(6 * RND + 1)
2
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
14.04.2017, 09:19 4
m-ch
Спасибо! Правда в условии задачи ничего не сказано о
равномерном распределении случайных чисел, но всё
равно ещё раз СПАСИБО!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2017, 09:19

Как использовать генератор случайных чисел
Придумали с другом игру, ну в общем нужна программа, чтобы выпадали случайные цифры, от 1 до 6,...

Генератор случайных чисел и одинаковая последовательность
Есть генератор случайных чисел: Function GenXzn(ByVal nLen As Long, Optional ByVal NoZero As...

Нужен генератор случайных чисел в диапазоне от 5000 до 20000
Нужен генератор случайных чисел в диапазоне от 5000 до 20000 Добавлено через 40 минут Всё,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru