Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Генератор тринадцатизначных чисел [D7, WinXP]

Страницы: 1 2 >
oTpok © (2007-04-24 13:22:00)
Мастера, подскажите пожалуйста, как сделать генератор чисел с диапазоном от 1000000000000 до 9999999999999. Заранее спасибо за ответ.

Сергей М. (2007-04-24 15:01:00) [1]

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

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

oTpok (2007-04-24 14:58:00) [2]

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

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

Сергей М. (2007-04-24 14:50:00) [3]

> oTpok (24.04.07 14:34) [17]

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

Reindeer Moss Eater (2007-04-24 14:35:00) [4]
Главное указать, по клику на какую кнопку мыши должно генерироваться число. А то что оно должно быть одно и случайное - это не главное.

oTpok (2007-04-24 14:34:00) [5]

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

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

Сергей М. (2007-04-24 14:33:00) [6]

> oTpok (24.04.07 14:29) [13]

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

oTpok (2007-04-24 14:32:00) [7]
2MBo

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

MBo (2007-04-24 14:31:00) [8]
>Не получится ли так, что он мне выдаст НЕ 13 значное число?
нет.
первое слагаемое задает нижний порог, а сумма остальных не превышает 899...99

oTpok (2007-04-24 14:29:00) [9]

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

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

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

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

tesseract (2007-04-24 14:29:00) [10]

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

StrToInt64 ?

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

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

Gadenysh (2007-04-24 14:22:00) [11]
если для штрихкода, то не так все просто

Reindeer Moss Eater (2007-04-24 14:05:00) [12]
нужно чтобы по нажатию на кнопку мыши программа выдавала случайное 13 значное число.

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

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

Jeer (2007-04-24 14:02:00) [13]

> oTpok (24.04.07 14:00) [8]

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

oTpok (2007-04-24 14:00:00) [14]
2Reindeer Moss Eater

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

2tesseract

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

2Jeer

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

Jeer (2007-04-24 13:51:00) [15]

> oTpok (24.04.07 13:22)

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

tesseract (2007-04-24 13:49:00) [16]
Если сойдёт в строковом представлении:

var
mycode:string[33];

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

Reindeer Moss Eater (2007-04-24 13:46:00) [17]
мне не нужен простой перебор чисел от n до m. Мне нужен генератор!

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

oTpok (2007-04-24 13:45:00) [18]
2Reindeer Moss Eater

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

2MBo

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

MBo (2007-04-24 13:35:00) [19]
14-значные:
A[i] := 10000000000000 + Int64(1000000) * Random(90000000) + Random(1000000);

Reindeer Moss Eater (2007-04-24 13:34:00) [20]
... генератор чисел с диапазоном от 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;

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »