Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5706)
2. C++ (2739)
3. Куча (2365)
4. JavaScript (2030)
5. C# (1928)
6. Java (1502)
7. Си (1116)
8. Pascal (648)
9. Python (586)
10. 1C (538)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (198)
15. Perl (194)
16. Assembler (146)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Go (31)
21. Swift (27)
22. Haskell (26)
23. Kotlin (14)

1. Куча / Говнокод #4655

   +144

   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

   program hurma_by_kotobuben;
   uses crt;
   var a,b,c,d:integer;
   begin
   a:=0;
   writeln('Тест: "ЛЮБИТЕ ЛИ ВЫ ХУРМУ?');
   writeln(' ');
   writeln('Вам кажется, что вы отвратительно выглядите, но тут кто-то делает вам комплимент. Ваша реакция?');
   writeln('1. Вздрагиваете от неожиданности. Ведь вы думали, что находитесь в комнате в одиночестве.');
   writeln('2. Вам приятно, но вы постараетесь это скрыть под напускным эпилептическим припадком');
   writeln('3. Вы начинаете покрывать страстными поцелуями свое прекрасное тело');
   read(d);
   clrscr;
   if d=1 then begin
   a:=a+1
   end;
   if d=2 then begin
   b:=b+1
   end;
   if d=3 then begin
   c:=c+1
   end;
   writeln('Вам оторвало голову пропеллером самолета. Как вы поступите?');
   writeln('1.Упадете на взлетное поле, обливаясь кровью');
   writeln('2.Смешно побежите прочь от самолета, махая руками, словно безголовая курица');
   writeln('3.Постараетесь сохранять спокойствие');
      read(d);
   clrscr;
   if d=1 then begin
   a:=a+1
   end;
   if d=2 then begin
   b:=b+1
   end;
   if d=3 then begin
   c:=c+1
   end;
   writeln('Вы принимаете душ и вдруг слышыте телефонный звонок. Ваши действия?');
   writeln('1.Вы продолжаете мытся в душе, делая вид, будто намыливаете подмышки');
   writeln('2.Смешно выбегаете из душа, размахивая руками');
   writeln('3.Спрашиваете совета окружающих');
     read(d);
   clrscr;
   if d=1 then begin
   a:=a+1
   end;
   if d=2 then begin
   b:=b+1
   end;
   if d=3 then begin
   c:=c+1
   end;
   writeln('У вас большые оттопыреные уши. Какой пункт вы выберете?');
   writeln('1.Пункт 1');
   writeln('2.Пункт 2');
   writeln('3.Пункт 3');
      read(d);
   clrscr;
   if d=1 then begin
   a:=a+1
   end;
   if d=2 then begin
   b:=b+1
   end;
   if d=3 then begin
   c:=c+1
   end;
   writeln('ПОДВЕДЕМ ИТОГИ');
   writeln();
   if a>(b+c)/2 then begin
   writeln('Вы независимы, мнение других о хурме для вас ничего не значит');
   end;
   if b>(a+c)/2 then begin
   writeln('В непривычной ситуации вы можете растерятся и смешно побежать, размахивая руками');
   end;
   if c>(a+b)/2 then begin
   writeln('Вы сангвиник, что бы это ни значило');
   end;
   end.

   Паскаль
   Решил сделать тест по мотивам одноименного теста найденного в интернетах

   kotobuben, 16 Ноября 2010

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

2. C# / Говнокод #4654

   +121

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12

   string[] groups = LoadAllGroups();
   var dt = new DataTable();
   dt.Columns.Add("TEXT", typeof(string));
   foreach (string g in groups)
   {
       DataRow dr = dt.NewRow();
       dr["TEXT"] = g;
       dt.Rows.Add(dr);
   }
   var dv = new DataView(dt) { Sort = "TEXT" };
   adGroups_ddl.DataSource = dv;
   adGroups_ddl.DataBind();

   synapse, 16 Ноября 2010

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

3. SQL / Говнокод #4653

   −122

   1. 1
   2. 2

   ALTER TABLE [dbo].[IssueGroup]  WITH CHECK ADD  CONSTRAINT [FK_IssueGroup_Group] FOREIGN KEY([ProjectId], [GroupId])
   REFERENCES [dbo].[Group] ([GroupId],[ProjectId])

   Часа 2 искал проблему в чужом коде - оказалось, что просто поля ProjectId и GroupId были записаны в разных порядках сначала FOREIGN KEY([ProjectId], [GroupId]), а потом REFERENCES [dbo].[Group] ([GroupId],[ProjectId]).

   vadimliman, 16 Ноября 2010

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

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

   +100

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   {Pascal}
   function f( a: boolean ) : boolean;
   begin
   if a then return := f(a) else return := false;
   end;

   При а - истина программа вылетит с переполненным стеком.

   Govnocoder#0xFF, 16 Ноября 2010

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

5. PHP / Говнокод #4651

   +173

   1. 1
   2. 2
   3. 3

   $S=preg_replace('/(\')|(\")|(\,)|(\()|(\))|(\.)|(\‹)|(\:)|(\;)|(\$)|(\#)|(\/)|(\{)|(\})|(\*)|(\ )|(\|)|(\>)|(\<)|(\=)|(\-)|(\[)|(\])|(\!)|(\+)|(\☺)|(\☻)'
                                .'|(\♥)|(\♦)...................../', '', $S);
   $S=trim($S);

   Регулярные выражения! Супер!

   Yakud, 16 Ноября 2010

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

6. Java / Говнокод #4650

   +143

   1. 1
   2. 2
   3. 3

   if (url == null) {
       throw new RuntimeException("Error reading resource " + url.getFile());
   }

   abatishchev, 16 Ноября 2010

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

7. SQL / Говнокод #4649

   −117

   1. 1

   SELECT * FROM CompanyData d WHERE d.Name = @companyName AND d.EntityID NOT IN (SELECT COUNT(*) FROM...)

   Оригинал потерялся, но особый способ отсевания компаний запомнился. Хорошо, что COUNT(*) возвращал всегда ноль :)

   AlexKhomich, 16 Ноября 2010

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

8. PHP / Говнокод #4648

   +177

   1. 1
   2. 2

   if(strlen($text)) return $text;
   return "";

   ferry-very-good, 16 Ноября 2010

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

9. C# / Говнокод #4647

   +126

   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

   private void SetBorderColor()
   {
               if (AuthInfo.BorderColor)
               {
                   LinearGradientBrush lcBrush = new LinearGradientBrush();
                   lcBrush.StartPoint = new Point(0.5, 0);
                   lcBrush.EndPoint = new Point(0.5, 1);
                   lcBrush.GradientStops.Add(new GradientStop() { Color = Color.FromArgb(100, 249, 249, 249) });
                   lcBrush.GradientStops.Add(new GradientStop() {Color = Color.FromArgb(100,75,139,180), Offset = 0.331});
                   lcBrush.GradientStops.Add(new GradientStop() { Color = Color.FromArgb(100, 75, 139, 180), Offset = 0.853 });
                   lcBrush.GradientStops.Add(new GradientStop() { Color = Color.FromArgb(100, 249, 249, 249), Offset = 1 });
                   this.rectBackGround.Fill = lcBrush;
               }
               else
               {
                   LinearGradientBrush lcBrush = new LinearGradientBrush();
                   lcBrush.StartPoint = new Point(0.5, 0);
                   lcBrush.EndPoint = new Point(0.5, 1);
                   lcBrush.GradientStops.Add(new GradientStop() { Color = Color.FromArgb(100, 249, 249, 249) });
                   lcBrush.GradientStops.Add(new GradientStop() { Color = Color.FromArgb(100, 206, 109, 109), Offset = 0.331 });
                   lcBrush.GradientStops.Add(new GradientStop() { Color = Color.FromArgb(100, 206, 109, 109), Offset = 0.853 });
                   lcBrush.GradientStops.Add(new GradientStop() { Color = Color.FromArgb(100, 249, 249, 249), Offset = 1 });
                   this.rectBackGround.Fill = lcBrush;
               }
   }

   ОПТИМИЗИРОВАНО!!!
   я плакаль)

   HellMaster_HaiL, 16 Ноября 2010

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

10. Pascal / Говнокод #4646

    +106

    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

    procedure FirstStep (var Text: string);
    // Удаление комментариев <!--...-->, переводов строк, раскрытие тегов <br>, удаление парных пробелов:
    var
      P:     Integer;
      State: Integer;
      Idx:   Integer;
      Cnt:   Integer;
      NL:    Boolean;
    begin
      State := 0;
      P     := 1;
      NL    := True;
      while P <= Length (Text) do
      begin
        if Text[P] in [#9,#10,#13] then Text[P] := ' ';
        case State of
          0: case Text[P] of
               '<': State := 1;
               ' ': begin
                      Idx := P;
                      State := 9;
                    end; { }
               else NL := False;
             end; {case}
          1: case Text[P] of
               '!': State := 2;
               'b': State := 7;
               else
               begin
                 Dec (P);
                 State := 10;
               end; {else}
             end; {case}
          2: if Text[P] <> '-' then
             begin
               Dec (P);
               State := 10;
             end else State := 3;
          3: if Text[P] = '-' then
             begin
               Idx   := P - 3;
               State := 4;
             end else
             begin
               Dec (P);
               State := 10;
             end; {if}
          4: if Text[P] = '-' then State := 5;
          5: if Text[P] = '-' then State := 6 else State := 4;
          6: if Text[P] = '>' then
             begin
               Delete (Text, Idx, P - Idx + 1);
               P := Idx - 1;
               while (P >= 1) and (Text[P] = ' ') do Dec (P);
               State := 0;
             end else State := 4;
          7: if Text[P] = 'r' then State := 8 else State := 0;
          8: begin
               if Text[P] = '>' then
               begin
                 Text[P-3] := #13;
                 Text[P-2] := #10;
                 Delete (Text, P - 1, 2);
                 Dec (P, 2);
                 NL := True;
               end; {if}
               State := 0;
             end; {8}
          9: if Text[P] <> ' ' then
             begin
               Cnt := P - Idx;
               if NL then
               begin
                 Delete (Text, Idx, Cnt);
                 Dec (Idx);
               end else if Cnt > 1 then Delete (Text, Idx, Cnt - 1);
               P := Idx;
               State := 0;
             end; {if}
          10: if Text[P] = '>' then State := 0;
        end; {case}
        Inc (P);
      end; {while}
    end; {proc FirstStep}

    Кусок парсера HTML.

    Arigato, 16 Ноября 2010

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

• ← влево
• вправо →

• 2106
• …
• 460
• 459
• 458
• 457
• 456
• 455
• 454
• 453
• 452
• …
• 1