Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Як згенерувати 14-значне цеоліт число Знайти схожі гілки


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

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



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

Зійде?

function GetMyNumber: Int64;
починати
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;
Кожен
I: Integer;
Tmp: String;

Починати
If Count> 19 then Exit;
For I: = 1 to Count do
Tmp: = Tmp + IntToStr (Random (9) + 1);
Result: = StrToInt64Def (Tmp, +9223372036854775807);
Кінець;

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



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.55 MB
Час: 0.03 c
6-74862
evgeniy1
2002-10-26 03:30
2002.12.23
Пошта


7-75009
olphi
2002-10-20 15:50
2002.12.23
Як дізнатися шлях каталогу Windows?


14-74994
sanilo
2002-12-04 11:21
2002.12.23
W2K


14-74930
AL2002
2002-12-02 09:46
2002.12.23
Пересічна питання про погоду ...


14-74938
KidMan
2002-12-01 23:42
2002.12.23
Вибачте але знову про Інстал Шіілдс і BDE





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська