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

← →
oTpok (2007-04-24 13:22) [0]

Мастера, подскажите пожалуйста, как сделать генератор чисел с диапазоном от 1000000000000 до 9999999999999. Заранее спасибо за ответ.

← →
Desdechado © (2007-04-24 13:26) [1]

1000000000000 + Random()*10000000000000

← →
Reindeer Moss Eater © (2007-04-24 13:34) [2]

... генератор чисел с диапазоном от 1000000000000 до 9999999999999

var int_64 : int64;
begin
int_64 := 1 000 000 000 000;
while int_64 < 9 999 999 999 999 do
begin
int_64 := int_64 + 1;
....
end;

← →
MBo © (2007-04-24 13:35) [3]

14-значные:
A[i] := 10000000000000 + Int64(1000000) * Random(90000000) + Random(1000000);

← →
oTpok (2007-04-24 13:45) [4]

2Reindeer Moss Eater

мне не нужен простой перебор чисел от n до m. Мне нужен генератор!

2MBo

я не совсем понял смысла этой формулы, но правильно ли я сделал, что убрал у всех значений по одному нулю? Вроде выдает 13 значные числа. Не получится ли так, что он мне выдаст НЕ 13 значное число?

← →
Reindeer Moss Eater © (2007-04-24 13:46) [5]

мне не нужен простой перебор чисел от n до m. Мне нужен генератор!

А у меня что, не генератор, а трансформатор что ли?

← →
tesseract © (2007-04-24 13:49) [6]

Если сойдёт в строковом представлении:

var
mycode:string[33];

for i:=1 to 33 do
MyCode[i]:=chr($30+random(9));

← →
Jeer © (2007-04-24 13:51) [7]

> oTpok (24.04.07 13:22)

Использовать длинную арифметику

← →
oTpok (2007-04-24 14:00) [8]

2Reindeer Moss Eater

нужно чтобы по нажатию на кнопку мыши программа выдавала случайное 13 значное число. А твой код только изменяет переменную прибавляя по единице. При запуске у меня такая прога виснет, а в конце выдает 9999999999999

2tesseract

Желательно, чтобы число было числом, а не строкой.

2Jeer

а как это, использовать длинную арифметику?

← →
Jeer © (2007-04-24 14:02) [9]

> oTpok (24.04.07 14:00) [8]

Mbo привел красивый вариант без длинной арифметики, но это для частного твоего случая.
Вот и пользуйся.

← →
Reindeer Moss Eater © (2007-04-24 14:05) [10]

нужно чтобы по нажатию на кнопку мыши программа выдавала случайное 13 значное число.

А что написано в исходном вопросе?

У меня есть такая программа, но она выдает случайное тринадцатизначное число по нажатию на кнопку клавиатуры, а не мыши.
Не подойдет.

← →
Gadenysh (2007-04-24 14:22) [11]

если для штрихкода, то не так все просто

← →
tesseract © (2007-04-24 14:29) [12]

> Желательно, чтобы число было числом, а не строкой.

StrToInt64 ?

> если для штрихкода, то не так все просто

Тогда нужно 12 чисел, а числа они или нет - дело вторичное, CRC там норм считаеться, да и случайный штрихкод - это нонсенс.

← →
oTpok (2007-04-24 14:29) [13]

> У меня есть такая программа, но она выдает случайное тринадцатизначное
> число по нажатию на кнопку клавиатуры, а не мыши.
> Не подойдет.

конечно не подойдет. Особенно, если эта программа содержит код, который ты привел выше.

> 2MBo
>
> я не совсем понял смысла этой формулы, но правильно ли я
> сделал, что убрал у всех значений по одному нулю? Вроде
> выдает 13 значные числа. Не получится ли так, что он мне
> выдаст НЕ 13 значное число?

ответьте пожалуйста кто-нибудь на этот вопрос.

← →
MBo © (2007-04-24 14:31) [14]

>Не получится ли так, что он мне выдаст НЕ 13 значное число?
нет.
первое слагаемое задает нижний порог, а сумма остальных не превышает 899...99

← →
oTpok (2007-04-24 14:32) [15]

2MBo

спасибо огромное! Теперь я могу спать спокойно.

> oTpok (24.04.07 14:29) [13]

А у меня тоже есть программа, которая генерирует случ.числа в нужном тебе диапазоне, но работает она при дергании юзером рукоятки джойстика. Она тебе тоже не подойдет, и это печально.

← →
oTpok (2007-04-24 14:34) [17]

> А у меня тоже есть программа, которая генерирует случ.числа
> в нужном тебе диапазоне, но работает она при дергании юзером
> рукоятки джойстика. Она тебе тоже не подойдет, и это печально.
>

Хватит уже глумиться и придираться к словам.

Главное указать, по клику на какую кнопку мыши должно генерироваться число. А то что оно должно быть одно и случайное - это не главное.

> oTpok (24.04.07 14:34) [17]

Нет бы признать, что ляпнул свой вопрос не подумав - так он еще нюни развесил)

← →
oTpok (2007-04-24 14:58) [20]

> Нет бы признать, что ляпнул свой вопрос не подумав - так
> он еще нюни развесил)

а вам только бы поиздеваться. Признаю, что написал глупость по нажатию на кнопку мыши . Но стебаться над этим тоже некрасиво.

> Но стебаться над этим тоже некрасиво

А нюни распускать красивее ?)

Генератор тринадцатизначных чисел Найти похожие ветки