Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизКак сгенерить 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c