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

    +106.2

    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
    /////////////////////////// удаление спецсимволов
    Prbl:=' ';
    WS_h:=AnsiReplaceText(WS_h, Chr(13), Prbl);
    WS_h:=AnsiReplaceText(WS_h, Chr(10), Prbl);
    WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '           ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '          ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '         ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '        ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '       ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '      ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '     ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '    ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '   ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '  ', Prbl);
    /////////////////////////////////////////////////
    WS_h:=AnsiReplaceText(WS_h, '<span class=SpellE>', '');
    /////////////////////////// удаление спецсимволов

    Красиво оформленный код - залог успеха!

    Запостил: Temnenkov, 09 Апреля 2010

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

    • не верю
      Ответить
      • я тоже не поверил. и, тем не менее - настоящий код :-(
        Ответить
    • Это не только красивое оформление, но ещё и оптимизация! :D
      А предмет цифровые автоматы был видимо скушен и не интересен, поэтому вместо одного прохода имеем n-цать "ускоренных".
      Ответить
    • Тупого прогера спасет только С++.
      Ответить
      • Чем? На С++ такого нельзя написать? Или обретением характерной "сионисткой" распальцовки? Тогда писать такое станет не зазорно, ведь это же С++! :)
        Ответить
    • 5-я строка особо понравилась
      Ответить
      • Я долго пыталася найти отличия 5 строки от 15 :( что не нашол
        Ответить
        • кэп сказал там количество пробелов разное
          Ответить
        • В 5-й меняют пробел на пробел, в 15-й - 2 пробела на пробел
          Ответить

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