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

    • ava Kozel 15.05.2016 12:25 # +10

      А также по крайней мере один из симптомов делфи головного мозга.
      И да, зачем этот код был написан?
      Ответить

    • ava 3_14dar 15.05.2016 21:31 # +10

      В вашем делфи нет комбинации для автоформата кода?
      Ответить

      • ava Xom94ok 15.05.2016 21:51 # +21

        Ctrl+A, Del
        Ответить

        • ava 1024-- 15.05.2016 22:18 # +16

          Пользуясь случаем, хочу спросить: а ненаписанный код уже отформатирован или ещё нет? Интересно, весь код уже отформатирован, но некоторые форматирование сбивают? Или не отформатирован, и некоторые его таковым и оставляют?
          Зависит ли это от его автора? Т. е., скажем, ненаписанный код программиста отформатирован, а непрограммиста - не отформатирован, и они, создавая код, просто очищают его, отсекая куски небытия как Микеланджело отсекал лишнее от камня. Или наоборот, работа программиста заключается в форматировании кода, который в ненаписанном состоянии не был отформатирован, а непрограммисту в свою очередь в силу везения достаётся отформатированный ненаписанный код, но он сбивает форматирование в процессе написания?
          Ответить

          • ava 3_14dar 15.05.2016 22:35 # +7

            >а ненаписанный код уже отформатирован или ещё нет?
            Шта?
            Ответить

          • ava Xom94ok 15.05.2016 22:50 # +18

            Интересный вопрос. Надо исследовать.
            # 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 встроили защиту от подобных инцедентов.
            Ответить

          • ava kerman 15.05.2016 23:36 # +12

            Я хочу такой же травы.
            Ответить

            • ava 1024-- 16.05.2016 05:44 # +15

              У травы есть своё положение в пространстве-времени и некоторая молекулярная структура. Получив очень похожую траву, получаете ли Вы ровно ту же самую траву, что получил кто-то другой? Или же достаточно различия в координатах пространства-времени, чтобы отмести любые предположения о тождественности двух объектов? Если допустить, что разница между положениями не говорит о различиях, мысленный параллельный перенос и совмещение может говорить о тождественности объектов. Но за счёт движения молекул и постоянных хаотичным изменениях в структуры одна трава будет тождественна другой только в течение небольшого случайного момента времени. Если подумать, трава не тождественна самой себе, поэтому получив траву один раз, мы сможем иметь дело со множеством различных объектов, разнесённых как во времени, так и в пространстве. Если поджечь траву в будущем и заменить одну временную координату и одну пространственную координату, перед этим для удобства свернув её один раз в кольцо, то окажется, что в течение некоторого момента времени тлеющая трава немного удаляется от нетлеющей, которая в этот момент курит саму себя и уже собирается выдохнуть.
              Ответить

            • ava 3_dar 16.05.2016 22:22 # +9

              Это грибы
              Ответить

          • ava 3.14159265 16.05.2016 22:24 # +10

            Видя такие стены текста моя рука тянется к ворециям.

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

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

            но за счёт движения молекулярная структуры одна трава будет тождественности
            Ответить

        • ava 3_14dar 15.05.2016 22:35 # +9

          Ну тогда уже uninstall.exe
          Ответить

      • ava kipar 15.05.2016 23:52 # +9

        В новом делфи есть. В 7-м нет.
        Ответить

        • ava guesto 17.05.2016 13:05 # +9

          в новом дельфи?

          подскажите, а что там еще новенького?
          Ответить

    • ava guest 13.12.2016 19:59 # 0

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

      • ava Dr_Stertor 13.12.2016 20:07 # −1

        @Подскажите пожалуйста, что означает begin, и какие у него есть значения?

        Ключевое слово 'begin' в большинстве паскалеподобных языков означает начало кода (инструкции).
        Ответить

      • ava bayan 13.12.2016 21:23 # 0

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

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