Как правильно сгенерировать N значное число - Общие вопросы Delphi

RIO · 26.09.2009, 21:45

Здравствуйте ! Подскажите пожалуйста, как правильно сгенерировать N значное число . . . Например, пробовал вот так : Random(100000000), для 8 знаков, но это не подходит, так как иногда получается 7 знаков

Вавел из ГМТУ · 26.09.2009, 21:50

Random(100000000) + 1 Не?

ОДИНОЧЕСТВО В СЕТИ · 26.09.2009, 21:50

Код:

randomize;
stroka:='';
for i:=1 to n do 
stroka:=stroka+inttostr(random(9)+1);
chislo:=Strtoint(stroka)

russian-stalker · 26.09.2009, 21:51

Лучше всего так:

Код:

randomize;
i:=10000000+Random(89999999)

RIO · 26.09.2009, 22:00

Спасибо, друзья

TwiX · 27.09.2009, 00:33

2russian-stalker, i:=10000000+Random(90000000)
Ибо 0<=random<n

russian-stalker · 27.09.2009, 09:33

Ага, спасибо, забыл

26.09.2009, 21:45	#1
RIO Форумчанин Регистрация: 15.12.2007 Сообщений: 422	Как правильно сгенерировать N значное число Здравствуйте ! Подскажите пожалуйста, как правильно сгенерировать N значное число . . . Например, пробовал вот так : Random(100000000), для 8 знаков, но это не подходит, так как иногда получается 7 знаков

26.09.2009, 21:50	#3
ОДИНОЧЕСТВО В СЕТИ Любопытная Вредина Участник клуба Регистрация: 19.06.2009 Сообщений: 1,285	Код: `randomize; stroka:=''; for i:=1 to n do stroka:=stroka+inttostr(random(9)+1); chislo:=Strtoint(stroka)` Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.

26.09.2009, 21:51	#4
russian-stalker Участник клубаДжуниор Регистрация: 23.08.2008 Сообщений: 1,616	Лучше всего так: Код: `randomize; i:=10000000+Random(89999999)` pushl $0x18E3DF6B call ICQ Последний раз редактировалось russian-stalker; 26.09.2009 в 21:57.

27.09.2009, 09:33	#7
russian-stalker Участник клубаДжуниор Регистрация: 23.08.2008 Сообщений: 1,616	Ага, спасибо, забыл pushl $0x18E3DF6B call ICQ

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сгенерировать рандомом последовательность, по заданной формуле, если 1ое число известно!	Алексей_xXx	Помощь студентам	2	24.05.2009 16:40
Как разделить введённое n значное число на отдельны цифры?	mig-29	Общие вопросы C/C++	5	22.05.2009 16:30
Функция StrtoFloat не правильно возвращает число	Ra88it	Помощь студентам	2	02.12.2008 20:26
Как разделить введённое n значное число на отдельны цифры?	mig-29	Помощь студентам	13	04.04.2008 20:01

26.09.2009, 21:50	#2
Вавел из ГМТУ Форумчанин Регистрация: 19.06.2009 Сообщений: 896	Random(100000000) + 1 Не?

26.09.2009, 22:00	#5
RIO Форумчанин Регистрация: 15.12.2007 Сообщений: 422	Спасибо, друзья

27.09.2009, 00:33	#6
TwiX Участник клуба Регистрация: 28.07.2009 Сообщений: 1,510	2russian-stalker, i:=10000000+Random(90000000) Ибо 0<=random<n