Добро пожаловать, Гость!24 Апр 2026, 19:21:43
Войдите или зарегистрируйтесь.
1 час 1 день 1 неделя 1 месяц Навсегда 

[yuron]

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


ну вот например берем ф-цию, которая принимает слишком большие значения, т е выходит из диапазона 2 в 32 степени, т.е. больше 2 млрд (если максимальное значение 2 000 000 000, а L=2 000 000 002 то оно заменяется на 1. соотв 2000 000 003 будет =3 и т д)
например:

начальное значение, напр:
L=1
и дальше пляшем в цикле (повторяем):
L=(L*L+L)+1
(+1 что бы в случае нуля сдвинуться дальше)


получаем при 20 итерациях (повторениях):

===============
1: 3
2: 13
3: 183
4: 33673
5: 1133904603
6: 1044523573
7: -1265919697
8: -2126589999
9: 1965979763
10: 355367965
11: -1379494041
12: 1889878745
13: -1915494709
14: 811242437
15: 1277847903
16: 1924496033
17: 2031965155
18: 738742061
19: -1353376489
20: 1978225961

вот график 150 итераций:


это псевдослучайный генератор (очень грубый конечно ))), т к при одних и тех же начальных значениях будет одинаковая картина. для этого обычно в качестве начального значения берут текущее время (дату)

но рано или поздно этот процесс входит в повторение, и получается период.

а вот сам механизм
var
  i, l :longint;
begin
  writeln('===============');
  l:=1;
  for i:=1 to 20 do begin
    l:=(l*l+l)+1;
    writeln(i,': ',l);
  end;

  readln;
end.

может быть и такой график:


тоже вроде значения случайны, но если взять участок, мы не получим нормального распределения (частота возникновения всех чисел примерно одинаковая)

это уже фрактал.

[Vinni]

а как присвоить текущую дату? я забыл. i:=

[yuron]

тогда уже тупо суммируем (можно и перемножить, что бы больше размешать так сказать, а то 1 значение иногда похожие) и текущую дату и текущее время, что бы точно было:

uses dos;
var
  i, l :longint;
  year, month, day, dayofweek :word;
  Hour, Minute, Second, Sec100 : Word;

begin
  writeln('===============');
  GetDate(year, month, day, dayofweek);
  GetTime(Hour, Minute, Second, Sec100);

  L:=year+month+day+dayofweek+hour+minute+second+sec100;
  writeln('start value L= ', L);
  writeln;
  for i:=1 to 20 do begin
    l:=(l*l+l)+1;
    writeln(i,': ',l);
  end;

  readln;
end.

получаем 1 раз:

===============
start value L= 2165

1: 4689391
2: 160084753
3: -954238413
4: -473030563
5: -342785497
6: 938157081
7: 1088958091
8: 625896965
9: -777864673
10: -2043688479
11: -771694173
12: 81842029
13: 330449879
14: 1722319465
15: 2129088891
16: -1194302827
17: 1088867663
18: 1333947313
19: 445897747
20: 1905689981

2 раз:

===============
start value L= 2092

1: 4378557
2: -968228537
3: 1465361145
4: -1034569429
5: 1792206437
6: -606041537
7: -557283903
8: -566582973
9: -1976829747
10: 349687031
11: -1747688631
12: 1295904283
13: -510515979
14: -1201932433
15: 544037265
16: -985825869
17: 1749272797
18: -1182017625
19: -57686375
20: -1383150069

[РИХТЕР]

чет это сложная наука для меня))) Винни а тебе оно нах нада?
Долги лучше отдавай))

[Vinni]

приятно вспомнить прост

[РИХТЕР]

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

[yuron]

о Ганж хорошо что напомнил. тоже маякнуть нужно что сегодня отбой... )

[РИХТЕР]

Я уже маякнул. заебись.ну а когда? скоро говорю))) а телки должен...и самое главное что натурой не хочет уже.все надоел я ей))).

[yuron]

хм... стоп, я тоже получается.

[РИХТЕР]

хм... стоп,

в смысле хм?. взял я телефон в руки и позвонил. а что ты тоже получается? тоже позвонил?))

[Magdalinna]

А я вот банкам должна - кредитов на 60 тысяч в общей сложности... У знакомых давно не беру, иногда у соседа займу штукарь, но только на несколько дней, и всегда отдаю. Прошли те времена, когда всем и каждому была должна... а вот банки-это да, они заебывают...

[Vinni]

а брала сколько? Это натекло уже 60 или брала 60?

[Magdalinna]

да так и брала, я проценты выплачиваю

[РИХТЕР]

Ваабще молчу.у меня один тикает,  вообще 4 года уже.а я его ни разу не платил.нету меня)).
Хуевое это дело. но вот так есть. сначала слали бумаги и сказки писали потом успакоились. и в суд подавали суд им отказал, сказали нету чела, нету криминала. вот так вот.

[Magdalinna]

Мне нельзя забить. У меня с матушкой интрига серьезная - она должна мне квартиру, от папы оставшуюся, подарить. Тянет старушка, но я ее дожму. А прописана я у нее, все бумаги-звонки туда идут. Не буду выплачивать - для нее лишний повод меня прокатить. Тут замут недетский, бля..

[РИХТЕР]

Мне нельзя забить. У меня с матушкой интрига серьезная - она должна мне квартиру, от папы оставшуюся, подарить. Тянет старушка, но я ее дожму. А прописана я у нее, все бумаги-звонки туда идут. Не буду выплачивать - для нее лишний повод меня прокатить. Тут замут недетский, бля..

у меня на подобии ситуация, только с бабкой, главное что бы не прокатила, как дело пришло до дележки так сразу я перестал щитать их родными, да ну нах. прям вспоминать этот нервоз не хочу, а он еще будет сильнее, когда я продавать буду свою часть)) ну я думаю все понимают что когда дело доходит до делешки имушества это жопа, а у кого еще это не случилось, то потом увидите сами!
Сука и мутит воду пиздец как. но хуй на рыло ей))) я придумал гениальный план...

[Vinni]

Так она может тебя выписать по суду, ведь она собственник. Продать кв. и УЙТИ В ОТРЫВ и наркотический угар!

[РИХТЕР]

кого меня? в моем случае все ровно.

[Magdalinna]

У меня другая ситуация - на четверть я и так право имею, но я хочу все. Мы и договорились как бы - я отказываюсь от всего остального (а там есть от чего отказаться - не богатеи родаки мои, но есть кой-чего из недвиги). А она отдает мне эту хатку. Но маманя моя пассажир не особо надежный, да и меня недолюбливает, так что подставы жду, и ее обрабатываю, как умею...

[Vinni]

я нихрена не понял, но собственник может продать квартиру и тебе достанется четверть лаве которая тебе принадлежит.