Скачать: CL | DM;

Как сгенерить 14-значное цеолое число   Найти похожие ветки 

← →
Danger ©   (2002-12-11 23:38) [0]

Товарищи програмисты, помогите тупому! Необходимо сгенерить случайное целое 14-значное число, но никак не могу этого сделать, вроде бы просто, как дрова, но что то в голову ничего не лезет :( Подсказавшему - огромное человеческое спасибо!

---

← →
Юрий Зотов ©   (2002-12-12 00:10) [1]

Сойдет?

function GetMyNumber: Int64;
begin
Result := Round((1 + Random(9)) * 1e13)
end;

Генерит случайное число в диапазоне
10000000000000 <= Result < 99999999999999

---

← →
Юрий Зотов ©   (2002-12-12 00:33) [2]

Sorry, < = 99999999999999

---

← →
xyz ©   (2002-12-12 01:46) [3]

а можно тупее сделать!
сгенерить 14 случайных чисел (0-9) и потом их сложив как стороку стрТУинт...

---

← →
$ZoD$ ©   (2002-12-12 03:24) [4]

random(14);

---

← →
Danger ©   (2002-12-12 03:38) [5]

И как я сам не додумался до такой элементарщины... Спасибо что натолкнули на верный путь!

---

← →
melifaro ©   (2002-12-12 08:14) [6]

function MyRandom ( Count : Integer ) : int64;
Var
I : Integer;
Tmp : String;

Begin
If Count > 19 then Exit;
For I := 1 to Count do
Tmp := Tmp + IntToStr ( Random ( 9 ) + 1 );
Result := StrToInt64Def ( Tmp, 9223372036854775807 );
End;

Генерирует числа заданного размера. Но не более 19 разрядов или
9223372036854775807 (максимально в int64).

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c