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

    +93

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    s := '  .  ';
IF fGamma >= 1000 THEN s[1] := CHR (ORD ('0') + fGamma DIV 1000);
s[2] := CHR (ORD ('0') + fGamma DIV 100 MOD 10);
s[4] := CHR (ORD ('0') + fGamma DIV 10 MOD 10);
s[5] := CHR (ORD ('0') + fGamma MOD 10);

    Перевод числа в строку.
    Из исходников Photoshop 1.0.1
    http://bit.ly/W11p5e
    Там на первый взгляд хватает копипасты. Но особо не углублялся.

    Запостил: absolut, 16 Февраля 2013

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

    • ava Govnocoder#0xFF 16.02.2013 17:17 # +2

      > Photoshop 1.0.1
      > Pascal
      Щито?
      Ответить

      • ava Govnocoder#0xFF 16.02.2013 19:09 # 0

        Только попробуйте мне после этого сказать, что на Паскале нельзя писать нормальных программ.
        Ответить

        • ava absolut 16.02.2013 20:00 # 0

          Не знаю, был ли он на тот момент нормальной программой. Ну, а сейчас явно не на паскале пишут.
          Ответить

      • ava Dummy00001 17.02.2013 00:19 # 0

        паскаль был официальным языком программирования для первых Маков. а то чего вы думали что Apple будет объект паскали изобретать. на Ц/ОбжЦ они перелезли позже - когда Джобс вернулся и с собой некст притащил.
        Ответить

    • ava guest 16.02.2013 17:31 # 0

      http://habrahabr.ru/post/169371/
      >Около 75% написано на языке программирования Паскаль, ещё 15% на ассемблере для Motorola 68000.
      Ответить

    • ava guest 16.02.2013 18:51 # +2

      адоби выкладывают сорцы?
      ох, подозрительно это
      Ответить

      • ava bot 16.02.2013 19:36 # +3

        Опера обмазывается хромом, адоб разбрасывается сорцами, в Челябинске - метеоризм... Куда катится этот мир?
        Ответить

        • ava guest 16.02.2013 21:16 # +3

          Это Конец Света в процессе.
          Ответить

          • ava Lure Of Chaos 17.02.2013 17:10 # 0

            когда уже бля наступит Вечная Тьма? а то уже задолбали своими КС.
            Ответить

            • ava absolut 17.02.2013 17:44 # +1

              В этом вся и фишка, чтоб мучались подольше :)
              P.S. Как много уже всего подпадает под аббревиатуру КС:
              Конституционный Суд
              Конец Света
              Координационный Совет
              Контр Страйк
              Крылья Советов ...
              Ответить

            • ava bot 17.02.2013 21:01 # 0

              Вечная тьма - только после Конца Счастливого.
              Ответить

    • ava dos_ 16.02.2013 23:46 # +2

      http://www.linux.org.ru/news/multimedia/8847021
      Ответить

      • ava guest 21.06.2013 18:51 # −3

        Товарищи, помогите пожалуйста зафлудить сайт vbbook.ru! Жутко быдлокодят, сил нет. А админ там - священник((
        Ответить

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