1. Список говнокодов пользователя adli__82

    Всего: 3

  2. VisualBasic / Говнокод #10337

    −117

    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
    For t = 3 To u
 If Cells(t, 204).Text = " " Or Cells(t, 204).Text = "" Then
   If Cells(t + 1, 204).Text = " " Or Cells(t + 1, 204).Text = "" Then
    If Cells(t + 2, 204).Text = " " Or Cells(t + 2, 204).Text = "" Then
     If Cells(t + 3, 204).Text = " " Or Cells(t + 3, 204).Text = "" Then
     If Cells(t + 4, 204).Text = " " Or Cells(t + 4, 204).Text = "" Then
     If Cells(t + 5, 204).Text = " " Or Cells(t + 5, 204).Text = "" Then
     If Cells(t + 6, 204).Text = " " Or Cells(t + 6, 204).Text = "" Then
     If Cells(t + 7, 204).Text = " " Or Cells(t + 7, 204).Text = "" Then
     If Cells(t + 8, 204).Text = " " Or Cells(t + 8, 204).Text = "" Then
     If Cells(t + 9, 204).Text = " " Or Cells(t + 9, 204).Text = "" Then
     If Cells(t + 10, 204).Text = " " Or Cells(t + 10, 204).Text = "" Then
     If Cells(t + 11, 204).Text = " " Or Cells(t + 11, 204).Text = "" Then
     If Cells(t + 12, 204).Text = " " Or Cells(t + 12, 204).Text = "" Then
     If Cells(t + 13, 204).Text = " " Or Cells(t + 13, 204).Text = "" Then
     If Cells(t + 14, 204).Text = " " Or Cells(t + 14, 204).Text = "" Then
     If Cells(t + 15, 204).Text = " " Or Cells(t + 15, 204).Text = "" Then
     If Cells(t + 16, 204).Text = " " Or Cells(t + 16, 204).Text = "" Then
     If Cells(t + 17, 204).Text = " " Or Cells(t + 17, 204).Text = "" Then
     If Cells(t + 18, 204).Text = " " Or Cells(t + 18, 204).Text = "" Then
     If Cells(t + 19, 204).Text = " " Or Cells(t + 19, 204).Text = "" Then
     If Cells(t + 20, 204).Text = " " Or Cells(t + 20, 204).Text = "" Then
     If Cells(t + 21, 204).Text = " " Or Cells(t + 21, 204).Text = "" Then
     If Cells(t + 22, 204).Text = " " Or Cells(t + 22, 204).Text = "" Then
     If Cells(t + 23, 204).Text = " " Or Cells(t + 23, 204).Text = "" Then
     If Cells(t + 24, 204).Text = " " Or Cells(t + 24, 204).Text = "" Then
     If Cells(t + 25, 204).Text = " " Or Cells(t + 25, 204).Text = "" Then
     If Cells(t + 26, 204).Text = " " Or Cells(t + 26, 204).Text = "" Then
     If Cells(t + 27, 204).Text = " " Or Cells(t + 27, 204).Text = "" Then
     If Cells(t + 28, 204).Text = " " Or Cells(t + 28, 204).Text = "" Then
     If Cells(t + 29, 204).Text = " " Or Cells(t + 29, 204).Text = "" Then
     If Cells(t + 30, 204).Text = " " Or Cells(t + 30, 204).Text = "" Then
     If Cells(t + 31, 204).Text = " " Or Cells(t + 31, 204).Text = "" Then
     If Cells(t + 32, 204).Text = " " Or Cells(t + 32, 204).Text = "" Then
     If Cells(t + 33, 204).Text = " " Or Cells(t + 33, 204).Text = "" Then
     If Cells(t + 34, 204).Text = " " Or Cells(t + 34, 204).Text = "" Then
              GoTo zan4:
          End If
        End If
      End If
    End If
     End If
     End If
        End If
      End If
    End If
     End If
     End If
        End If
      End If
    End If
     End If
     End If
        End If
      End If
    End If
     End If
     End If
        End If
      End If
    End If
     End If
     End If
        End If
      End If
    End If
     End If
     End If
        End If
      End If
    End If
     End If
Next t
zan4:

    Кусок реально используемого "проэкта", используется у нас на призводстве.
    И вот-такого штук 10 в коде.

    ноу коментс.

    adli__82, 21 Мая 2012

    Комментарии (27)

  3. VisualBasic / Говнокод #4068

    −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
    Case vIP(1)
         Case "1"  v_empirumserver="evempr"
....
  ещё где-то 100 таких-же строчек
....
         Case "160"    v_empirumserver = "svcf1501"
         Case "161"
            Select Case vIP(2)
            	Case "17"
		End Select
		    v_empirumserver = "svnrw040"          
         Case "163"
		    v_empirumserver = "svrg5008" 
....
  ещё где-то 100 таких-же строчек
....
  End Select

    Только что увидел.....
    Это кусок с скрипта входу в систему на корпоративном домене.
    убило 

    Select Case vIP(2)
    зачем оно здесь????

    adli__82, 23 Августа 2010

    Комментарии (5)

  4. Pascal / Говнокод #4004

    +92

    1. 1
    2. 2
    3. 3
    4. 4
    if (x>13)or(x<13)or(x=13) then begin writeln('введено невероное значение X');halt end else begin
//Расчёт уравнения
..........
end;

    в лабе в студента увидел o_O
    конечно он получил 2 за лабу
    но ка пример какокода супер

    adli__82, 17 Августа 2010

    Комментарии (24)