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

    +100

    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
    procedure print(RTK_select:boolean; RLK_select:boolen;MOLK_select:boolean)
begin
     if (RTK_select and not RLK_select and not MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := 'РТК';

     if (not RTK_select and RLK_select and not MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := 'РЛК';

     if (not RTK_select and not RLK_select and MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := 'МОЛК';

     if (RTK_select and RLK_select and not MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := 'РТК,РЛК';

     if (not RTK_select and RLK_select and MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := 'РЛК,МОЛК';

     if (RTK_select and not RLK_select and  MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := 'РТК,МОЛК';

     if (RTK_select and RLK_select and  MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := 'РТК,РЛК,МОЛК';

     if (not RTK_select and not RLK_select and not MOLK_select) then
         Excel.ActiveWorkBook.WorkSheets[1].Range['B4'] := '';
end

    Обнаружено в недрах старинного проекта. Запись строчки по флажкам.

    Запостил: astamir, 19 Апреля 2013

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

    • ava bormand 19.04.2013 16:40 # +4

      Посмотрел бы я на реализацию такого алгоритма для 32 флажков...
      Ответить

    • ava bormand 19.04.2013 17:01 # 0

      > RLK_select:boolen
      Вот не влом же было перенабирать этот текст руками? ;)
      Ответить

      • ava scriptin 19.04.2013 17:19 # +2

        Это по-фински.
        Ответить

        • ava Xtasy 19.04.2013 18:37 # 0

          И по-венгерски и эстонски, кстати.
          И еще много других языков в гуглотранслейте возвращают для слова "boolen" перевод "логический".
          Ответить

      • ava Dummy00001 19.04.2013 18:20 # +2

        дарагой ты ны панымаишъ! этот пэрэмэнный болэн. оочен боолэн.

        ЗЫ иногда если пальцы не на те кнопки попадают/попадают на две кнопки, то можно случайно нажать Del и вместе (например) с переходом в конец строки случайно удалить букву. у меня такое случается если руки под слегка кривым углом на клаве лежат.
        Ответить

        • ava bormand 19.04.2013 19:37 # +3

          > пэрэмэнный
          Пэрэмэнный?! Вах, от кого пэрэмэнный? Когда успель залэтэт?
          Ответить

      • ava astamir 20.04.2013 07:50 # 0

        Это кусок кода, заголовок дописал для большей ясности )
        Ответить

    • ava Lure Of Chaos 19.04.2013 23:01 # +2

      > РТК,РЛК,МОЛК
      НПНЛ
      Ответить

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