Помогите с генератором случайных чисел

@artyom/l · Регистрация: 25.03.2012

Author24 — интернет-сервис помощи студентам

Pascal

program new;
var i,j,k,num:integer;
begin
for i:=1 to 500 do begin
randomize;
j:=random(16)-random(56);
k:=random(13);
num:=j*k-1;
writeln(num);
end;
end.

Вот такой код есть. Когда делаю цикл коротким, то он выдает похожие числа - например, 77777788888999 и вроде этого.
Когда длинный - нормальные.

@Poma][a · 01.05.2012, 09:25

Твой код - куча..... Ну ты сам понял. Не обижайся) Лучше скажи задание

@artyom/l · 01.05.2012, 09:42 **[ТС]**

Нет задания, я для себя)
Начал осваивать сортировку, задолбался каждый раз вводить цифры в массив, вот решил сделать генератор чисел случайных.
Почему куча то?

@SuPeR XaKer · 01.05.2012, 11:41

так а может стоит сказать какие числа генерировать вам нужно?

@artyom/l · 01.05.2012, 11:54 **[ТС]**

хочу чтобы он выдавал ряд целых случайных чисел(integer)
Типа такого:
34
25
54
47
76
87
6
654
6547
6
76
5

Pascal

program new;
var i,j,k,num:integer;
begin
for i:=1 to 100 do begin
randomize;
j:=random(50);
k:=random(50);
num:=j*k-1;
writeln(num);
end;

Вот так сделал вроде бы работает.
Но вот такой вариант:

Pascal

program new;
var i,j,k,num:integer;
begin
for i:=1 to 10 do begin
randomize;
j:=random(50);
k:=random(50);
num:=j*k-1;
writeln(num);
end;

уже выдает однообразные числа(только 2 различных числа, остальные повторы).

@Мозготрёп · 21.02.2013, 20:16

попробуй

Pascal

var i,j,k,num:int64;
begin
randomize;
j:=random(random(random(random(random(random(random(100000000)))))));
k:=random(random(random(random(random(random(random(100000000)))))));
num:=j+k;
end.

у меня работает=)

@Poma][a 25 / 25 / 1 Регистрация: 08.11.2011 Сообщений: 41
	01.05.2012, 09:25	2
	Твой код - куча..... Ну ты сам понял. Не обижайся) Лучше скажи задание 0

@artyom/l 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 3
	01.05.2012, 09:42 [ТС]	3
	Нет задания, я для себя) Начал осваивать сортировку, задолбался каждый раз вводить цифры в массив, вот решил сделать генератор чисел случайных. Почему куча то? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	01.05.2012, 11:41	4
	так а может стоит сказать какие числа генерировать вам нужно? 0

	21.02.2013, 20:16