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

    • ava guest 09.04.2010 11:52 # +4.8

      Пиздец
      Ответить

    • ava Snake2101 09.04.2010 12:17 # +3.4

      Крутой код)))
      Ответить

    • ava guest 09.04.2010 13:11 # +2.6

      и ведь сюда передаеццо строка не больше одного символа, да?
      Ответить

    • ava guest 09.04.2010 14:30 # 0

      А чо нет Ь и Ъ? Что-то с ними не так?)
      Ответить

    • ava guest 09.04.2010 14:30 # 0

      Temnenkov, вы-таки ерофоб?
      Ответить

    • ava guest 09.04.2010 20:41 # +0.4

      Да ну ладно ребята, стандартное решение, скажите кто через него не проходил?
      Ответить

    • ava guest 10.04.2010 02:40 # +0.2

      немного боян http://govnokod.ru/212
      Ответить

      • ava Temnenkov 10.04.2010 09:58 # 0

        Угу, как уже писали тут - классика жанра. Но не смог удержаться, увидел (в рабочем коде, не в лабе!) - и запостил.
        Ответить

    • ava guest 11.04.2010 18:18 # −2

      Скока можно уже постить такую хрень, а? Ясно же, в таких случаях платят просто за количество строк кода, вот и появляются таки шедевры... Такие посты уже не доставляют давно, imho...
      Ответить

      • ava Temnenkov 11.04.2010 21:22 # 0

        Я очень извиняюсь, но с "ясно" тут ошибочка. За количество строк в коде этому человеку не платят - это я знаю совершенно точно.
        Впрочем, и с "не доставляют", похоже, тоже ошибочка - есть комментарии людей, которым это доставило, да и рейтинг +12.5 - ничего так.
        Ответить

    • ava guest 12.04.2010 19:37 # 0

      http://govnokod.ru/212
      Ответить

    • ava guest 14.04.2010 23:21 # −1

      А вы знали, что боты умеют программировать на С++?
      Ответить

    • ava adli__82 17.08.2010 11:21 # 0

      Кста порядок букв в порверке тож улыбнул "ЙЦУКЕ......"
      и чел ни else ни case повидимому не знает, вариант с масивом ему не по уму....
      Ответить

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