Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.70/20: Рейтинг темы: голосов - 20, средняя оценка - 4.70
 Аватар для J0cker
0 / 0 / 0
Регистрация: 20.09.2009
Сообщений: 28

Генерация случайных чисел

23.12.2009, 14:46. Показов 4270. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Привет всем ребята просто ну ОЧЕНЬ срочно нужна ваша помощь.Есть массив его нужно заполнить случайными числами от 5ти.
Есть код.
http://imglink.ru/pictures/23-... 7ce9a8.jpg
Под строкой BytA(I)=Int(rnd*100)
По идее должна стоять проверка условия что бы числа были не меньше 5ти то есть генерация чисел должна быть от 5и до 100
ОЧЕНЬ прошу помочь очень срочно надо человека могут отчислить.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.12.2009, 14:46
Ответы с готовыми решениями:

Генерация двадцати случайных чисел без повторений
Дамы и господа, извиняюсь за беспокойство но нужна ваша помощь. Задача такая-нужен код при помощи которого рандомно выпадали значения от 1...

Генерация случайных чисел
мне надо сделать так чтобы в qbasic генерировались цифры от 97 до 122 с помощью оператора RND

С помощью генератора случайных чисел создать и вывести на экран массив случайных действительных чисел
Задача №1: С помощью генератора случайных чисел создать и вывести на экран массив А 10x10 случайных действительных чисел в диапазоне от 2...

6
 Аватар для BasicMan
19318 / 2626 / 84
Регистрация: 17.02.2009
Сообщений: 30,364
23.12.2009, 14:53
Visual Basic
1
BytA(I)=Int(rnd*95)+5
1
 Аватар для J0cker
0 / 0 / 0
Регистрация: 20.09.2009
Сообщений: 28
23.12.2009, 14:57  [ТС]
Большое спасибо надеюсь прокатит но мне кажется депе..я препод заставлял сделать условие типо повторения если значение больше 5ти то масив заполняется если меньше то генерация начинается заново или что то типо того
0
 Аватар для BasicMan
19318 / 2626 / 84
Регистрация: 17.02.2009
Сообщений: 30,364
23.12.2009, 15:37
можно еще так сделать
Visual Basic
1
2
3
do while BytA(I)<5
BytA(I)=Int(rnd*100)
loop
но, имхо, эт называется индийским кодом
1
 Аватар для J0cker
0 / 0 / 0
Регистрация: 20.09.2009
Сообщений: 28
23.12.2009, 16:02  [ТС]
CyberБурундукЪ, Огромное спасибо =))) мне все равно как называется пусть хоть чукотским кодом +))) у нас препод одного человека со света сживает ппц как вот и ищет до чего докапатся хотя экономист по образованию =)
0
 Аватар для BasicMan
19318 / 2626 / 84
Регистрация: 17.02.2009
Сообщений: 30,364
23.12.2009, 16:06
можно еще через иф гоуту сделать ))))

Добавлено через 56 секунд
Visual Basic
1
2
NAX: BytA(I)=Int(rnd*100)
if BytA(I)<5 then goto NAX
1
 Аватар для J0cker
0 / 0 / 0
Регистрация: 20.09.2009
Сообщений: 28
23.12.2009, 17:26  [ТС]
Реально спасаешь =)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.12.2009, 17:26
Помогаю со студенческими работами здесь

Найти сумму всех отрицательных чисел в массиве случайных чисел
Помогите с кодом Найти сумму всех отрицательных чисел в массиве случайных чисел.

Подсчитать количество четных чисел в массиве из 20 случайных чисел
12. Подсчитать количество четных чисел в массиве из 20 случайных чисел

Из массива целых случайных чисел получить массив из чисел, которые встречаются более одного раза
Из массива целых случайных чисел X=(x i) где i=(1,2,..n) получить массив Y=(y(m)),из чисел которые встречаются более одного раза....

Генерация чисел.
Помогите пожалуйста сгенерировать числа от 1 до 100000 например и вытаскивало мне по 10000. Пробовал делат через For next цикл в цикле,...

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


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru