Как сделать генератор случайных чисел на Delphi чтобы он был не менее 128 бит?

Question

[Sirex2160]

Нужно реализовать метод генерации случайных чисел не менее 128 бит.Вывести их десятичное представление. Генерировать моно по частям по 32 бита. Сначала я сделал через через рандом,но вот что то сомневаюсь что так будет правильно. Может кто знает как это можно сделать?

Comments

[Sirex2160]

Помогли сделать. Может кто сможет помочь в переводе.))) Комментарии расставить, а то у меня мозг взрывается как это работает...
const d = 128;
m = d div 32 - 1;
n = (m + 1) * 4 - 1;

procedure prn_bin(x: array of byte);
var i, j: integer;
begin
for i := high(x) downto 0 do
for j := 7 downto 0 do
begin
write(ord(x[i] and $80 <> 0));
x[i] := x[i] shl 1
end;
writeln
end;

procedure prn_dec(x: array of byte);
var i, t: word;
f: boolean;
s: string;
begin
s := '';
repeat
t := 0;
for i := n downto 0 do
begin
t := t * 256 + x[i];
x[i] := t div 10;
t := t mod 10
end;
s := char(ord('0') + t) + s;
f := true;
for i := n downto 0 do f := f and (x[i] = 0);
until f;
writeln(s)
end;

type T128BitRec = packed record
case k: integer of
0:(a: array[0..m] of longword);
1:(b: array[0..n] of byte)
end;

var r: T128BitRec;
i: word;

begin
randomize;
for i := m downto 0 do r.a[i] := trunc(random * high(longword)); //генерировать число можно и в цикле
prn_bin(r.b); //печатаем двоичное представление числа
prn_dec(r.b); //печатаем десятичное представление числа
readln
end.

Answer 1

[nirvimel]

Как сделать генератор случайных чисел?

я сделал через рандом

сомневаюсь что так будет правильно

Неправильно будет делать иначе.

Answer 2

[iBird Rose]

все правильно. только не забудь про randomize. а то получишь всегда одинаковые значения после каждого перезапуска программы

Comments

[Sirex2160]

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils;

var i,j: Integer;
begin
Randomize;
for i := 1 to 1 do
begin
for j := 1 to 16 do
begin
Write(Random(j)+1);
end;
Writeln;
end;

ReadLn;
end.
Так нормально?

[iBird Rose]

Sirex2160: вроде как)

Answer 3

[evgeniy_lm]

Не сомневайся, правильно

Answer 4

[Alexej Simakov]

можно просто строку сделать из нулей и единиц любой длины, и начать перемножать и складывать с права налево, вот так: i_0*2^0+i_1*2^1+i_2*2^3+i_3*2^4 ... ,где i_0, i_1 .. - целочисленное представление знака на позиции 0, 1, и.т.д
а блин, он же сломается когда сумма перелезет через MaxInt ...

Comments

[Sirex2160]

Да,да.)

Answer 5

[Sirex2160]

А как мне сделать чтобы всегда было разное число? А то постоянно первые 2 цифры одинаковые...

Comments

[Smithson]

в начале программы написать randomize;
Это переинициализация генератора случайных чисел.

[Mercury13]

И не ошиблись ли вы случайно, собирая большое число из четырёх маленьких?

Answer 6

[Константин Степанов]

100% рандома все равно не получить. А так - генерить частями, не забывать про randomize и потом склеить из частей.

Comments

[Sirex2160]

Так нормально?
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils;

var i,j: Integer;
begin
Randomize;
for i := 1 to 1 do
begin
for j := 1 to 16 do
begin
Write(Random(j)+1);
end;
Writeln;
end;

ReadLn;
end.

[Константин Степанов]

Разве не?

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils;

var i,j: Integer;
begin
Randomize;
for j := 1 to 16 do
begin
Write(Random(10));
end;
Writeln;

ReadLn;
end.

[Sirex2160]

Константин Степанов: Это лучше.)