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

    −35

    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
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    if GetAsyncKeyState(81) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+'й ';
    end;
    
    begin
    if GetAsyncKeyState(87) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+'ц ';
    end;
    
    ...
    
    begin
    if GetAsyncKeyState(13) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    if memo1.Text <> ' ' then
    button1.Click;
    end;
    
    if GetAsyncKeyState(32) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    end;
    
    begin
    if GetAsyncKeyState(1) <> 0 then
    begin
    timer1.Enabled:=false;
    memo1.Text:=memo1.Text+' ';
    if memo1.Text <> ' ' then
    button1.Click;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    ...
    end;

    Видимо чувак копипастил вместе с begin от процедуры, а потом "исправил" ошибки об отсутствии end.

    Запостил: FrontlineReporter, 15 Мая 2016

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

    • А также по крайней мере один из симптомов делфи головного мозга.
      И да, зачем этот код был написан?
      Ответить
    • В вашем делфи нет комбинации для автоформата кода?
      Ответить
      • Ctrl+A, Del
        Ответить
        • Пользуясь случаем, хочу спросить: а ненаписанный код уже отформатирован или ещё нет? Интересно, весь код уже отформатирован, но некоторые форматирование сбивают? Или не отформатирован, и некоторые его таковым и оставляют?
          Зависит ли это от его автора? Т. е., скажем, ненаписанный код программиста отформатирован, а непрограммиста - не отформатирован, и они, создавая код, просто очищают его, отсекая куски небытия как Микеланджело отсекал лишнее от камня. Или наоборот, работа программиста заключается в форматировании кода, который в ненаписанном состоянии не был отформатирован, а непрограммисту в свою очередь в силу везения достаётся отформатированный ненаписанный код, но он сбивает форматирование в процессе написания?
          Ответить
          • >а ненаписанный код уже отформатирован или ещё нет?
            Шта?
            Ответить
          • Интересный вопрос. Надо исследовать.
            # touch test.sh
            # astyle test.sh
            Unchanged  /root/test.sh
            Как видим, astyle не изменил файл, значит, в нём нечего форматировать. Теперь взглянем на его энтропийность.
            # ent test.sh
            Entropy = 0.000000 bits per byte.
            
            Optimum compression would reduce the size
            of this 0 byte file by 100 percent.
            
            Chi square distribution for 0 samples is -nan, and randomly
            would exceed this value -nan percent of the times.
            
            Arithmetic mean value of data bytes is -nan (127.5 = random).
            Monte Carlo value for Pi is -nan (error nan percent).
            Serial correlation coefficient is undefined (all values equal!).
            Энтропия равна нулю, что означает, что данная программа в результате любых оптимизаций вырождается в саму себя. Теперь попробуем выполнить эту программу.
            # time sh test.sh
            
            real	0m0.002s
            user	0m0.000s
            sys	0m0.000s
            Данная совершенна и достигла своего оптимизационного экстремума и должна была выполниться моментально. Исходя из того, что джоуль - это (кг * м^2) / сек^2, выполнение программы за 0 секунд привело бы к коллосальному скачку энергии, однако, начиная с 4.0 в ядро linux встроили защиту от подобных инцедентов.
            Ответить
          • Я хочу такой же травы.
            Ответить
            • У травы есть своё положение в пространстве-времени и некоторая молекулярная структура. Получив очень похожую траву, получаете ли Вы ровно ту же самую траву, что получил кто-то другой? Или же достаточно различия в координатах пространства-времени, чтобы отмести любые предположения о тождественности двух объектов? Если допустить, что разница между положениями не говорит о различиях, мысленный параллельный перенос и совмещение может говорить о тождественности объектов. Но за счёт движения молекул и постоянных хаотичным изменениях в структуры одна трава будет тождественна другой только в течение небольшого случайного момента времени. Если подумать, трава не тождественна самой себе, поэтому получив траву один раз, мы сможем иметь дело со множеством различных объектов, разнесённых как во времени, так и в пространстве. Если поджечь траву в будущем и заменить одну временную координату и одну пространственную координату, перед этим для удобства свернув её один раз в кольцо, то окажется, что в течение некоторого момента времени тлеющая трава немного удаляется от нетлеющей, которая в этот момент курит саму себя и уже собирается выдохнуть.
              Ответить
            • Это грибы
              Ответить
          • Видя такие стены текста моя рука тянется к ворециям.

            хочу спросить: а ненаписанный код, но некоторая в этот момент курит саму себя и уже собирается в саму себя и уже собирается выдохнуть.

            это грибы видя такие стены текста моя рука тянется к ворециям. ну
            если поджечь траву в будущем и заменить эту программисту в свою очередь привело бы к коллосальному скачку энергии, однако,

            но за счёт движения молекулярная структуры одна трава будет тождественности
            Ответить
        • Ну тогда уже uninstall.exe
          Ответить
      • В новом делфи есть. В 7-м нет.
        Ответить
        • в новом дельфи?

          подскажите, а что там еще новенького?
          Ответить
    • Подскажите пожалуйста что означает begin и какие у него есть значения? https://preply.com/question/chto-oznachaet-begin Заранее спасибо
      Ответить
      • @Подскажите пожалуйста, что означает begin, и какие у него есть значения?

        Ключевое слово 'begin' в большинстве паскалеподобных языков означает начало кода (инструкции).
        Ответить
      • Менаем Бегин (ивр. ‏מנחם בגין ‏‎), урождённый Мечислав Вольфович Бегун (польск. Mieczysław Wołfowicz Biegun; 16 августа 1913, Брест-Литовск — 9 марта 1992, Тель-Авив) — политический деятель Израиля, седьмой премьер-министр Израиля с июня 1977 по 1983, лауреат Нобелевской премии мира (1978). В 1940-х годах руководитель еврейской подпольной организации Иргун.
        Ответить

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