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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
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.

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

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

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

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

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