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

    +96

    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
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    99. 99
    if movcamn[1] then begin
     //
  if movcams[ 2] then begin  if Nmr= 2 then goto m1;
  if movcams[ 3] then begin  if Nmr= 3 then goto m1;
  if movcams[ 4] then begin  if Nmr= 4 then goto m1;
  if movcams[ 5] then begin  if Nmr= 5 then goto m1;
  if movcams[ 6] then begin  if Nmr= 6 then goto m1;
  if movcams[ 7] then begin  if Nmr= 7 then goto m1;
  if movcams[ 8] then begin  if Nmr= 8 then goto m1;
  if movcams[ 9] then begin  if Nmr= 9 then goto m1;
  if movcams[10] then begin  if Nmr=10 then goto m1;
  if movcams[11] then begin  if Nmr=11 then goto m1;
  if movcams[12] then begin  if Nmr=12 then goto m1;
  if movcams[13] then begin  if Nmr=13 then goto m1;
  if movcams[14] then begin  if Nmr=14 then goto m1;
  if movcams[15] then begin  if Nmr=15 then goto m1;
  if movcams[16] then begin  if Nmr=16 then goto m1;
  if movcams[17] then begin  if Nmr=17 then goto m1;
  if movcams[18] then begin  if Nmr=18 then goto m1;
  if movcams[19] then begin  if Nmr=19 then goto m1;
  if movcams[20] then begin  if Nmr=20 then goto m1;

  m1:   Summs1:=0;        movcams[1]:=False;   movcamn[1]:=False;
      movcam[1,1]:=False;  movcam[1,2]:=False;  movcam[1,3]:=False;  movcam[1,4]:=False;

        Summs2:=0;        movcams[2]:=False;   movcamn[2]:=False;
      movcam[2,1]:=False;  movcam[2,2]:=False;  movcam[2,3]:=False;  movcam[2,4]:=False;
      if Nmr=2 then goto m2;  // <---

        Summs3:=0;        movcams[3]:=False;   movcamn[3]:=False;
      movcam[3,1]:=False;  movcam[3,2]:=False;  movcam[3,3]:=False;  movcam[3,4]:=False;
      if Nmr=3 then goto m2;  // <---

        Summs4:=0;         movcams[4]:=False;   movcamn[4]:=False;
      movcam[4,1]:=False;  movcam[4,2]:=False;  movcam[4,3]:=False;  movcam[4,4]:=False;
      if Nmr=4 then goto m2;  // <---

        Summs5:=0;        movcams[5]:=False;   movcamn[5]:=False;
      movcam[5,1]:=False;  movcam[5,2]:=False;  movcam[5,3]:=False;  movcam[5,4]:=False;
      if Nmr=5 then goto m2;  // <---

        Summs6:=0;        movcams[6]:=False;   movcamn[6]:=False;
      movcam[6,1]:=False;  movcam[6,2]:=False;  movcam[6,3]:=False;  movcam[6,4]:=False;
      if Nmr=6 then goto m2;  // <---

        Summs7:=0;        movcams[7]:=False;   movcamn[7]:=False;
      movcam[7,1]:=False;  movcam[7,2]:=False;  movcam[7,3]:=False;  movcam[7,4]:=False;
      if Nmr=7 then goto m2;  // <---

        Summs8:=0;        movcams[8]:=False;   movcamn[8]:=False;
      movcam[8,1]:=False;  movcam[8,2]:=False;  movcam[8,3]:=False;  movcam[8,4]:=False;
      if Nmr=8 then goto m2;  // <---

        Summs9:=0;        movcams[9]:=False;   movcamn[9]:=False;
      movcam[9,1]:=False;  movcam[9,2]:=False;  movcam[9,3]:=False;  movcam[9,4]:=False;
      if Nmr=9 then goto m2;  // <---

             //
        Summs10:=0;        movcams[10]:=False;   movcamn[10]:=False;
      movcam[10,1]:=False;  movcam[10,2]:=False;  movcam[10,3]:=False;  movcam[10,4]:=False;
      if Nmr=10 then goto m2;  // <---

        Summs11:=0;        movcams[11]:=False;   movcamn[11]:=False;
      movcam[11,1]:=False;  movcam[11,2]:=False;  movcam[11,3]:=False;  movcam[10,4]:=False;
      if Nmr=11 then goto m2;  // <---

        Summs12:=0;        movcams[12]:=False;   movcamn[12]:=False;
      movcam[12,1]:=False;  movcam[12,2]:=False;  movcam[12,3]:=False;  movcam[10,4]:=False;
      if Nmr=12 then goto m2;  // <---

        Summs13:=0;        movcams[13]:=False;   movcamn[13]:=False;
      movcam[13,1]:=False;  movcam[13,2]:=False;  movcam[13,3]:=False;  movcam[10,4]:=False;
      if Nmr=13 then goto m2;  // <---

        Summs14:=0;        movcams[14]:=False;   movcamn[14]:=False;
      movcam[14,1]:=False;  movcam[14,2]:=False;  movcam[14,3]:=False;  movcam[10,4]:=False;
      if Nmr=14 then goto m2;  // <---

        Summs15:=0;        movcams[15]:=False;   movcamn[15]:=False;
      movcam[15,1]:=False;  movcam[15,2]:=False;  movcam[15,3]:=False;  movcam[10,4]:=False;
      if Nmr=15 then goto m2;  // <---

        Summs16:=0;        movcams[16]:=False;   movcamn[16]:=False;
      movcam[16,1]:=False;  movcam[16,2]:=False;  movcam[16,3]:=False;  movcam[10,4]:=False;
      if Nmr=16 then goto m2;  // <---

        Summs17:=0;        movcams[17]:=False;   movcamn[17]:=False;
      movcam[17,1]:=False;  movcam[17,2]:=False;  movcam[17,3]:=False;  movcam[10,4]:=False;
      if Nmr=17 then goto m2;  // <---

        Summs18:=0;        movcams[18]:=False;   movcamn[18]:=False;
      movcam[18,1]:=False;  movcam[18,2]:=False;  movcam[18,3]:=False;  movcam[10,4]:=False;
      if Nmr=18 then goto m2;  // <---

        Summs19:=0;        movcams[19]:=False;   movcamn[19]:=False;
      movcam[19,1]:=False;  movcam[19,2]:=False;  movcam[19,3]:=False;  movcam[10,4]:=False;
  m2:
  end; end; end; end; end; end; end; end; end; end;   // 20 штук
  end; end; end; end; end; end; end; end; end; end;

    Попалось в одном проекте, который приходилось расчищать.
    Особенно позабавило заботливое "// 20 штук" в конце.

    Запостил: qb60, 14 Февраля 2014

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

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