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

    +110

    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
    Function IsBigLet(Let: String): Boolean;
    var r: bool;
    begin
    r:=false;
    if pos('Й',Let)>0 then r:=true;
    if pos('Ц',Let)>0 then r:=true;
    if pos('У',Let)>0 then r:=true;
    if pos('К',Let)>0 then r:=true;
    if pos('Е',Let)>0 then r:=true;
    if pos('Н',Let)>0 then r:=true;
    if pos('Г',Let)>0 then r:=true;
    if pos('Ш',Let)>0 then r:=true;
    if pos('Щ',Let)>0 then r:=true;
    if pos('З',Let)>0 then r:=true;
    if pos('Х',Let)>0 then r:=true;
    if pos('Ф',Let)>0 then r:=true;
    if pos('Ы',Let)>0 then r:=true;
    if pos('В',Let)>0 then r:=true;
    if pos('А',Let)>0 then r:=true;
    if pos('П',Let)>0 then r:=true;
    if pos('Р',Let)>0 then r:=true;
    if pos('О',Let)>0 then r:=true;
    if pos('Л',Let)>0 then r:=true;
    if pos('Д',Let)>0 then r:=true;
    if pos('Ж',Let)>0 then r:=true;
    if pos('Э',Let)>0 then r:=true;
    if pos('Я',Let)>0 then r:=true;
    if pos('Ч',Let)>0 then r:=true;
    if pos('С',Let)>0 then r:=true;
    if pos('М',Let)>0 then r:=true;
    if pos('И',Let)>0 then r:=true;
    if pos('Т',Let)>0 then r:=true;
    if pos('Б',Let)>0 then r:=true;
    if pos('Ю',Let)>0 then r:=true;
    Result:=r;
    end;

    Немножко индусского кода!

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

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

    • Пиздец
      Ответить
    • Крутой код)))
      Ответить
    • и ведь сюда передаеццо строка не больше одного символа, да?
      Ответить
    • А чо нет Ь и Ъ? Что-то с ними не так?)
      Ответить
    • Temnenkov, вы-таки ерофоб?
      Ответить
    • Да ну ладно ребята, стандартное решение, скажите кто через него не проходил?
      Ответить
    • немного боян http://govnokod.ru/212
      Ответить
      • Угу, как уже писали тут - классика жанра. Но не смог удержаться, увидел (в рабочем коде, не в лабе!) - и запостил.
        Ответить
    • Скока можно уже постить такую хрень, а? Ясно же, в таких случаях платят просто за количество строк кода, вот и появляются таки шедевры... Такие посты уже не доставляют давно, imho...
      Ответить
      • Я очень извиняюсь, но с "ясно" тут ошибочка. За количество строк в коде этому человеку не платят - это я знаю совершенно точно.
        Впрочем, и с "не доставляют", похоже, тоже ошибочка - есть комментарии людей, которым это доставило, да и рейтинг +12.5 - ничего так.
        Ответить
    • http://govnokod.ru/212
      Ответить
    • А вы знали, что боты умеют программировать на С++?
      Ответить
    • Кста порядок букв в порверке тож улыбнул "ЙЦУКЕ......"
      и чел ни else ни case повидимому не знает, вариант с масивом ему не по уму....
      Ответить

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