Генератор случайных чисел

[psychopat]

Привет! Мне надо исходник(или целую програму) для Генератора случайных чисел,
длина чтобы была больше 7 знаков, а количество создаваемых комбинаций более 10000!

[Arigato]

длина чтобы была больше 7 знаков

Больше - это сколько? В любом случае, их можно получить через Random, если длинна выше, можно скомбинировать пару Random'ов.
Но, при желании, можно и свой генератор написать.

[Armorer]

Должно работать. Выдавать число больше 7 знаков.

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;

const
 n = 8;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.text := IntToStr(Random(9) + 1);
for i := 1 to n do
Edit1.text := Edit1.text + IntToStr(Random(10));
end;

[koturga]

Подскажите а если нужно генерировать код, но я хочу суммировать числа двух рандом генераторов. Это нормально? Или лучше написать код под один генератор?

[Armorer]

Подскажите а если нужно генерировать код, но я хочу суммировать числа двух рандом генераторов. Это нормально? Или лучше написать код под один генератор?

Если что-то вроде такова:
R := Random(N) + Random(N1);
То я не вижу смысла использовать два вызова.

[MalCer]

...длина чтобы была больше 7 знаков...

Больше? Это сколько?
Может так:

procedure TfMain.Button1Click(Sender: TObject);
 const
        MaxValue=10000000;
 var
s:string;
i:integer;
a: array [1..10000] of integer;
begin
 
for i:=1 to 10000 do
a[i]:=Random(MaxValue);
s:='';
for i:=1 to 10000 do
s:=s+IntTostr(a[i])+',   ';
Memo1.Lines.Add(s);
end;

[Hollander]

Поищи генератор Лемера. На основе него можешь создать свой с какими хочешь условиями.

[FANATID]

Как бы не было, генератор не полностью случаен. И случайного впринципе быть не может. Кто не верит, проверьте, сгенерируйте 10 тысяч чисел от 1 до 100, и найдите среднее арифмитическое, оно будет около 50. Чем больше будете генерировать тем ближе к 50 будет получаться результат

[crc83]

Очень советую прочитать
Д.Кнут Искусство программирования Том 3.
Там есть все чтобы разобратся в сути вопроса

[Arigato]

Сообщение от FANATID

Как бы не было, генератор не полностью случаен. И случайного впринципе быть не может. Кто не верит, проверьте, сгенерируйте 10 тысяч чисел от 1 до 100, и найдите среднее арифмитическое, оно будет около 50. Чем больше будете генерировать тем ближе к 50 будет получаться результат

Любой генератор случайных чисел с равномерным распределением даст такой эффект. Например, если 1000 раз подбросить монету, получим, примерно, 500 орлов и 500 решек.
А генератор в компьютере вообще не является случайным. Генерируются псевдослучайные числа, которые имеют период, через который последовательность будет повторяться (период очень большой, можно не проверять).