Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Вниз

Radom   Найти похожие ветки 

← →
Фарик   (2006-02-27 13:04) [0]

Приветствую!
как сделать чтобы можно было генерировать только 13 значные числа?
делаю

 i:=random(9999999999999);
 edit1.Text:=IntToStr(i);

но на практике сгенерироваться может и 5 значное

---

← →
Virgo_Style ©   (2006-02-27 13:15) [1]

13 раз сгенерировать однозначное

---

← →
Desdechado ©   (2006-02-27 13:20) [2]

лучше нормировать полученное в диапазоне [0,1] на диапазон [1000000000000,9999999999999]
надеюсь, пропорции помнишь?

---

← →
MBo ©   (2006-02-27 13:26) [3]

14-значные числа. Для 13-значных сам доработай
RandInt64 := 10000000000000 + Int64(1000000) * Random(90000000) +  Random(1000000);

---

← →
DesWind ©   (2006-02-27 13:33) [4]

А почему бы просто не умножать?

Random*10000000000000

---

← →
DesWind ©   (2006-02-27 13:37) [5]

Сглупил число ведь может быть 0.002345334556746

---

← →
dabreezy   (2006-03-01 10:00) [6]

Самое простое решение проблеммы :)

function TForm1.Rand13: int64;
var
 str: string;
 i: byte;
begin
 str:=inttostr(random(8)+1);
 for i:=1 to 12 do
   str:=str+inttostr(random(10));
 result:=strtoint64(str);
end;



---

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

Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.014 c