Конференция VBStreets

**Morion** » 01.04.2006 (Сб) 11:54

Всем привет!
Подскажите, как взять какое-либо произвольное число, но начиная не с нуля? Допустим выбрать число, находящееся в диапазоне от 25 до 100.
Заранее благодарю.

**Amed** » 01.04.2006 (Сб) 12:23

x = 25 + Rnd*(100-25)

BV » 01.04.2006 (Сб) 14:01

Зачем писать (100 - 25)?

n = 25 + CInt(Rnd * 75)

**Amed** » 01.04.2006 (Сб) 14:11

Чтобы было понятно, в каком диапазоне выбирается число.

**Roman-vb** » 01.04.2006 (Сб) 16:25

n = 25 + CInt(Rnd * 75)

Выглядит весьма сомнительно

Если целое от 25 до 100, то

Код: Выделить всё: n = Int(25 + 76 * Rnd)

**neic** » 01.04.2006 (Сб) 16:44

Roman-vb писал(а):
n = 25 + CInt(Rnd * 75)
Выглядит весьма сомнительно Если целое от 25 до 100, то
Код: Выделить всё
n = Int(25 + 76 * Rnd)

Ты хоть сам понял что написал?
Если по твоему примеру

Код: Выделить всё: n = Int(25+76...)

Уже 101!

А если ещё и RND...

Корче ошибочка у тебя вышла!!!

Код: Выделить всё: n = Cint(Rnd()*99)+1

**Roman-vb** » 01.04.2006 (Сб) 16:49

neic
То, что я писал, проверенно годами. Данный пример логически обоснован. Сначала протестируй, а протом говори! :!:

А что же пишете вы (прошу прощения, но это ничто иное, как бред сумасшедшего!

):

Код:
n = Cint(Rnd()*99)+1

**Twister** » 01.04.2006 (Сб) 17:05

По твоему код

Код: Выделить всё: Int(Rnd(1)*99)+1

бред сумасшедшего?

**Roman-vb** » 01.04.2006 (Сб) 17:09

Twister
Во-первых, не InT, я CInt, а, во-вторых, в вопросе было сказано

выбрать число, находящееся в диапазоне от 25 до 100.

Поэтому - бред сумасшедшего, никак иначе! :lol:

**tyomitch** » 01.04.2006 (Сб) 17:09

Twister писал(а):По твоему код
Код: Выделить всё
Int(Rnd(1)*99)+1
бред сумасшедшего?

Нет. А вот "n = Cint(Rnd()*99)+1" -- да.

**Morion** » 01.04.2006 (Сб) 18:24

Спасибо за совет, и за такое разнообразное решение моего вопроса. Попробую все варианты. :!:

**alibek** » 01.04.2006 (Сб) 18:39

Roman-vb писал(а):Если целое от 25 до 100

Покажи, где автор говорил о целом числе?

**Roman-vb** » 01.04.2006 (Сб) 18:44

alibek
А чего сразу на меня :?:

Не я же начал! Я просто исправил...

Зачем писать (100 - 25)?

n = 25 + CInt(Rnd * 75)

**Kovu** » 01.04.2006 (Сб) 20:38

neic
А вот

MSDN писал(а):To produce random integers in a given range, use this formula:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

[/quote]

**Roman-vb** » 01.04.2006 (Сб) 22:04

Kovu
Ну вот! Полностью совпадает с моим вариантом! А neic что-то про ошибку

**VVitafresh** » 01.04.2006 (Сб) 23:05

neic, конечно, не прав. Он просто не учел, что Rnd возращает число в диапазоне [0,1), т.е. от нуля включительно, но всегда меньше чем 1.

**neic** » 02.04.2006 (Вс) 0:31

Ок просто не заметил! Извиняюсь! Всё правильно, но код мудрённый новичка так заваливать ;-)

**Morion** » 02.04.2006 (Вс) 9:54

Ещё раз спасибо! :!:

Попробовал я различные варианты, получается.

Конференция VBStreets

Выбор числа

Выбор числа

Кто сейчас на конференции