1. Pascal / Говнокод #8718

    +112

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    {...}
    type
    a=(
    january,
    february,
    march,
    {--------------}
    april,
    may,
    june,
    {--------------}
    jule,
    august,
    september,
    {--------------}
    october,
    november,
    december
                 );
    b=(
    seаson1,
    seаson2,
    seаson3,
    seаson4
               );
    c=(
    winter,
    spring,
    summer,
    autumn
              );
    {...}
    function d(e:a):b;
             begin
                  case e of
                           january,
                           february,
                           march
                                     :d:=seаson1;
                           april,
                           may,
                           june
                                     :d:=seаson2;
                           jule,
                           august,
                           september
                                     :d:=seаson3;
                           october,
                           november,
                           december
                                     :d:=seаson4
                  end
             end;
    function f(g:a):c;
             begin
                  case g of
                           december,
                           january,
                           february
                                      :f:=winter;
                           march,
                           may,
                           april
                                      :f:=spring;
                           june,
                           jule,
                           august
                                      :f:=summer;
                           september,
                           october,
                           november
                                      :f:=autumn
                  end
             end;
    begin
    {...}
    end.

    Сделал на этой неделе в первом часу ночи.

    Запостил: dos_, 04 Декабря 2011

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

    • Как надо было? (Исключая внятные названия типов и функций и адекватного форматирования.)
      Ответить
      • Season := TSeason(Integer(Day) mod 3);
        Хотя это тоже говнокод еще тот.
        Ответить
    • d(e:a):b и л
      Ответить
    • jule - это что за месяц? о_О А это вообще скомпиллируется?
      Ответить
    • >Сделал на этой неделе в первом часу ночи.
      Но зачем?
      Ответить
    • блядь, на дворе второе десятилетие XXIго века, а люди с ником _dos пишут на паскале.

      уважаемый, у Вас монитор-то хоть не CRT?
      Ответить
      • Ну у Тараса да сих пор селирон 600 с 128 мигабайтами на барту слоупок чо
        Ответить
        • ага, а еще он -- нода
          ему ночью поинты звонят на его курьер с дягилевской прошивкой, и пишут ему письма по нетмылу
          а он их в волков-коммандере читает через F4
          Ответить
          • просмотр - F3.
            Ответить
            • сразу видно - в армии не служил нортоне не работал
              Ответить
              • а мне больше нравилось по F4 - там курсор виден:)
                Ответить
        • крузис низапуститца :(
          на дворе второе десятилетие XXIго века, а мудаков меньше не стало.
          Ответить
          • убей себя - будет на одного меньше
            Ответить
      • а что Вы имеете против CRT мониторов?
        Ответить
        • От них рентгеновское излучение!
          Ответить
          • черенковское
            Ответить
          • Да ну? А как тогда люди всю жизнь смотрят свои тв-ящики, в которых, по сравнению с мониторами, защиты от э.м.и. нет никакой? И никто не говорит, что от тв идет рентгеновское излучение... власти скрывают это от народа?
            Конечно, какая-то доза от э-л.трубки есть, но это такие ничтожные величины, что об этом нет смысла говорить. По прикидкам, годовая доза в несколько раз меньше дозы при зубном рентгене (который человек может свободно делать раз 50 в год). А перелеты на самолетах почему еще не отменили?
            И вообще, по поводу доз радиации рекомендуется поизучать следующие познавательные картинки:
            http://imgs.xkcd.com/blag/radiation.png
            http://www.gonzoblog.ru/image.axd?picture=2011%2f3%2f164390_phot o.jpg
            http://infobeautiful2.s3.amazonaws.com/radiation_chart_3.png
            http://kobnews.ru/uploads/images/00/02/59/2011/04/04/e205c5cd6b.png
            ну и в целом http://www.gonzoblog.ru/post/2011/03/28/Radiation_likbez.aspx

            Если уж сравнивать мониторы по техническим характеристикам, то нормальные (не "офисные") crt лучше почти по всем параметрам - цветопередача, гладкость картинки, скорость обновления, угол обзора (любой). Есть действительно хорошие "плоские" мониторы, но это уже профессиональная ниша и их стоимость во много раз выше того, что продается в торговых сетях.
            Ответить
            • Омойбох! Меня все эти годы обманывали. Пойду с горя на работу.
              Ответить
            • Не стоит сравнивать телевизоры и мониторы. Чел сидит перед монитором на расстоянии в лучшем случае метр, а пред телеком навряд ли меньше 3. Да и еще crt моники много места занимают
              Ответить
              • crtГовно
                Ответить
              • 3 метра от тв - это скорее редкость, для этого нужна большая диагональ и соответствующая площадь, а обычно это метра 2. И еще один фактор: развертка на обычном crt-тв - 50 Гц, в то время как хорошие crt-мониторы могут давать до 120Гц на рабочих разрешениях. А 120 Гц - это уже совсем не 85, и даже не 100.
                Минусы у crt очевидны - размер, вес, потребление энергии. Но это все вещи, не связанные с функциональностью.
                Ответить
                • у телека энергия пучка вроде бы раза в 3 ниже

                  а вообще, боишься радиофобии - выпей йоду
                  Ответить
                  • > у телека энергия пучка вроде бы раза в 3 ниже

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

                    > а вообще, боишься радиофобии - выпей йоду

                    я уже давно ничего не боюсь, а йод можно посоветовать тем, кто видит в мониторе источник рентгеновского излучения...
                    Ответить
                    • хз хз
                      у телевизорных кинескопов зерно сильно крупнее чем у мониторных
                      Ответить
                      • конечно, крупнее. по идее, большому люминофору с площадью = 2x нужно для свечения в 2 раза больше энергии, чем маленькому с площадью 1x.
                        но общая площадь ведь та же самая.
                        Ответить

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