enter
информационный проект снижения вреда

Автор Тема: Наши долги...  (Прочитано 31617 раз)

yuron

Наши долги...
Ответ #60 - 08 Мар 2014, 12:51:17

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


ну вот например берем ф-цию, которая принимает слишком большие значения, т е выходит из диапазона 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.

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


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

это уже фрактал.
 
= infinity =
[ вкусные суши в Киеве: tamiko.com.ua ]
 

Vinni

Наши долги...
Ответ #61 - 08 Мар 2014, 13:02:48

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

yuron

Наши долги...
Ответ #62 - 08 Мар 2014, 13:13:41

тогда уже тупо суммируем (можно и перемножить, что бы больше размешать так сказать, а то 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
 
= infinity =
[ вкусные суши в Киеве: tamiko.com.ua ]
 

РИХТЕР

Наши долги...
Ответ #63 - 08 Мар 2014, 13:18:58

чет это сложная наука для меня))) Винни а тебе оно нах нада?
Долги лучше отдавай))
 
Никогда не иди назад.
Возвращаться нет уже смысла.
 

Vinni

Наши долги...
Ответ #64 - 08 Мар 2014, 13:20:34

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

РИХТЕР

Наши долги...
Ответ #65 - 08 Мар 2014, 13:30:35

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

yuron

Наши долги...
Ответ #66 - 08 Мар 2014, 13:37:44

о Ганж хорошо что напомнил. тоже маякнуть нужно что сегодня отбой... )
 
= infinity =
[ вкусные суши в Киеве: tamiko.com.ua ]
 

РИХТЕР

Наши долги...
Ответ #67 - 08 Мар 2014, 14:03:04

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

yuron

Наши долги...
Ответ #68 - 08 Мар 2014, 14:14:39

хм... стоп, я тоже получается.
 
= infinity =
[ вкусные суши в Киеве: tamiko.com.ua ]
 

РИХТЕР

Наши долги...
Ответ #69 - 08 Мар 2014, 14:23:04

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

Magdalinna

Наши долги...
Ответ #70 - 08 Мар 2014, 14:29:36

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

Vinni

Наши долги...
Ответ #71 - 08 Мар 2014, 14:32:01

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

Magdalinna

Наши долги...
Ответ #72 - 08 Мар 2014, 14:33:41

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

РИХТЕР

Наши долги...
Ответ #73 - 08 Мар 2014, 14:47:26

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

Magdalinna

Наши долги...
Ответ #74 - 08 Мар 2014, 14:56:13

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

РИХТЕР

Наши долги...
Ответ #75 - 08 Мар 2014, 15:02:32

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

Vinni

Наши долги...
Ответ #76 - 08 Мар 2014, 15:03:41

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

РИХТЕР

Наши долги...
Ответ #77 - 08 Мар 2014, 15:06:09

кого меня? в моем случае все ровно. :ok:
 
Никогда не иди назад.
Возвращаться нет уже смысла.
 

Magdalinna

Наши долги...
Ответ #78 - 08 Мар 2014, 15:12:01

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

Vinni

Наши долги...
Ответ #79 - 08 Мар 2014, 15:22:43

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