1. Куча / Говнокод #18275

    +144

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    10 MEDIAN=0
15 FOR Q=1 TO 10000 REM Lifes
20 TOTAL=0 REM Money
25 FOR I=1 TO 100
30 M=RND
35 IF M<0.5 THEN N=INT(10*RND)
40 IF M>=0.5 THEN N=-INT(10*RND)
45 TOTAL=TOTAL+N
50 NEXT I
55 MEDIAN=MEDIAN+TOTAL
60 PRINT Q,"MEDIAN="MEDIAN/Q
65 NEXT Q

    GW-BASIC
    "Жизнь по генератору случайных чисел: стратегия успеха"
    автор: Евгений Золотов

    Запостил: grait, 03 Июня 2015

    Комментарии (11) RSS

    • ava pushistayapodmyshka 03.06.2015 07:28 # 0

      >даже не зная практически ничего о будущем И принимая решения с помощью монетки, реально добиться успеха
      Ответить

    • ava kegdan 03.06.2015 07:43 # 0

      REM

      Я один услышал эту музыку?

      http://www.youtube.com/watch?v=pmhqMajav8Y
      Ответить

    • ava inkanus-gray 03.06.2015 14:39 # +1

      Тут нет RANDOMIZE. Программа каждый раз будет генерировать одну и ту же последовательность. Неизбежность.
      Ответить

      • ava bormand 03.06.2015 15:01 # 0

        БЕЗЫСХОДНОСТЬ.

        С другой стороны, в тех бейсиках рандом не инициализировался RUN'ом. Так что хоть после каждого запуска интерпретатора всё будет одинаково, но каждый RUN в пределах сессии будет показывать разное число.
        Ответить

      • ava roman-kashitsyn 03.06.2015 15:13 # 0 

        http://tinyurl.com/q9x745b
        Ответить

    Добавить комментарий