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

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

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

1. PHP (5706)
2. C++ (2739)
3. Куча (2360)
4. JavaScript (2030)
5. C# (1928)
6. Java (1502)
7. Си (1115)
8. Pascal (648)
9. Python (583)
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. Лучший говнокод

   В номинации:

   • Лучший рейтинг
   • Самый комментируемый

   За время:

   • за сегодня
   • за неделю
   • за месяц
   • за всё время

2. Pascal / Говнокод #6590

   +147

   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

   Program n_g;
   uses crt;
   Var c:char; st:string[50]; k: byte;
   BEGIN  clrscr;
   k:=255;
   Write('Vvedite tekst:');
   read(c);
   Repeat
         While(c=' ') and (c<>#13 Do Read(c);
         	st:='';
         While(c<>' ') and (c<>#13 Do	 Begin
         	st:=st+c;
         	Read(c);			 End;
         WriteLn('st=',st);
         If ord(st[0])<k Then k:=ord(st[0]);
   Until c=#13;
   WriteLn('k= ',k:3); readLn   
   END.

   Так физматы находят длинну самого короткого слова

   megaruliz, 07 Мая 2011

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

3. Pascal / Говнокод #6589

   +147

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7

   Procedure ks(s:string;q:char; var k:byte);
       var i:byte;
   Begin
   k:=0;
   For i:=1 To Length(s) Do
      If s[i]=q Then inc(k);
   End;

   Гавно код

   megaruliz, 07 Мая 2011

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

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

   +147

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7
   8. 8
   9. 9

   s1:=‘789’; s2:=’34.6’;       	s3:=‘3+2a’;
   Val(s1,p,w); writeLn(p:4,w:2);
   Val(s2,q,w); writeLn(q:6:1,w:2);
   WriteLn(p+q:7:1);
   Val(s3,p,w); writeLn(w);
   s1:=‘Я Вас люблю’; WriteLn(s1);
   q:=Length(s1); WriteLn(q);
   p:=Pos(‘о’,s1); WriteLn(p);
   p:=Pos(‘к’,s1); WriteLn(p);

   megaruliz, 07 Мая 2011

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

5. Pascal / Говнокод #6587

   +147

   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

   unit Unit113145;
   
   interface
   
   uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls, XPMan, OleCtrls, SHDocVw, IdBaseComponent,
     IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi;
   
   type
     TForm1 = class(TForm)
       IdHTTP1: TIdHTTP;
       Edit1: TEdit;
       XPManifest1: TXPManifest;
       Edit2: TEdit;
       Edit3: TEdit;
       Button1: TButton;
       procedure Button1Click(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
     end;
   
   var
     Form1: TForm1;
     msg:string;
   implementation
   
   {$R *.dfm}
   
   procedure TForm1.Button1Click(Sender: TObject);
   var
   msg1:string;
   msg:string;
   msg2:string;
   begin
   msg:=ansiToUtf8(edit1.text);
   msg1:=ansiToUtf8(edit2.text);
   msg2:=ansiToUtf8(edit3.text);
   ShellExecute(Handle, 'open', 'http://galaxy.mobstudio.ru//services/index.php?userID=&password=&usercur=&a=lottery_house&choise=right&lot_id=+&&kbv=92&lngg=ru&dbl=2%20HTTP/1.1', nil, nil, SW_RESTORE);
   end;
   
   end.

   Говно Код
   Что то тут не так помогите изменить чтоб все было правильно
   Всяким антиначаям и скачям
   не писать

   megaruliz, 07 Мая 2011

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

6. Куча / Говнокод #6550

   +147

   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

   +++++++++++++
   ++++++++++++++++
   ++++++++++++++++
          +++++++++++++
   ++++++++++++++.++
   +++++++++++++++
          ++++++++++++.
   +++++++..++
   +.-------------------
   ----------------------------
   -----------------
          ---------------.+++
   ++++++++++++++++
   ++++++++++
          +++++++++++++
   +++++++++++++.+++
   +++++++++++++++
          ++++++.++
   +.------.--------.----------
   --------
   ----------------------------
   -----------------
   ----.-----------------------
   .

   Не говно код, но тем не мение.

   KATAJIU3ATOP, 04 Мая 2011

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

7. C++ / Говнокод #6536

   +147

   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

   /*Windows 8 source code.*/
   /*
   TOP SECRET Microsoft(c) Code
   Project: Cairo(tm)
   Projected release-date: Summer 2012
   */
   
   #include "winnt.h"
   #include "evenmore.h"
   #include "oldstuff.h"
   #include "billrulz.h"
   #define INSTALL_HARD_C
   #define INSTALL_DIR_WINDOWS
   
   char make_prog_look_big[160000000] ;
   
   void main()
   {
       while(!CRASHED)
       {
            display_copyright_message();
            display_bill_rules_message();
            do_nothing_loop();
   
            if (first_time_installation)
            {
                make_4gb_megabyte_swapfile();
                do_nothing_loop();
                display_funny_3d();
                hang_system();
            }
    
            write_something(anything);
            display_copyright_message();
            do_nothing_loop();
            do_some_stuff();
            if (still_not_crashed)
            {
                display_copyright_message();
                do_nothing_loop();
                basically_run_windows_vista();
                show3d_in_loop();
                do_nothing_loop();
                do_nothing_loop();
            }
        }
    
        if (detect_cache())
            disable_cache();
    
        if (fast_cpu())
        {
            set_wait_states(lots);
            set_mouse(speed, very_slow);
            set_mouse(action, jumpy);
            set_mouse(reaction, sometimes);
        }
       
        if (fast_gpu())
        {
            setitonfire(dx12);
        }
   
        if (lotofmemory()) 
        {  
           //achtung: red alert!
           /* allocateforfutureuse(200mb); */
            allocateforfutureuse(2gb);
   
        }
    
        /* printf("Welcome to Windows Vista"); */
        /* printf("Welcome to Windows 7"); */
        printf("Welcome to Windows 8");
    
        if (system_ok())
            crashex(aero3denalbed());
        else;
        /*    system_memory = open("a:\swp0001.swp", O_CREATE); */
   
    
        while(something)
        {
            allocate_random_memory();
            sleep(5);
            get_user_input();
            sleep(5);
            display_uac_prompt();
            act_on_user_input();
            sleep(5);
        }
        draw_3d_bsod();
        die();
   }

   wwwww, 03 Мая 2011

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

8. C++ / Говнокод #6530

   +147

   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

   void tolowerStr(char *Str)
   {
        #include <windows.h>
        #include <ctype.h>
   
        SetConsoleCP(1251);
        SetConsoleOutputCP(1251);
        setlocale(LC_CTYPE,"Russian");
        
        int len = strlen(Str);
        for(int c=0; c<len; c++)
          Str[c] = tolower(Str[c]);
   }

   инклайд в теле ф-и :D

   Antichat, 02 Мая 2011

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

9. Pascal / Говнокод #6473

   +147

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

   For i := 1 to Length(Val)-1 do
     Begin
       If (Ord(Val[i]) >= 48) and (Ord(Val[i]) <= 57) and
       (not ((Ord(Val[i+1]) >= 48) and (Ord(Val[i+1]) <= 57))) then Result := true;
     End;

   ОТЦЕНИТИ КОД!!!1

   Govnocoder#0xFF, 25 Апреля 2011

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

10. Куча / Говнокод #6471

    +147

    1. 1
    2. 2

    body ::selection { background-color:#ffcc33; } 
    body ::-moz-selection { background-color:#ffcc33; }

    так и не понял, что это за ::
    
    Взято с http://web-school.su/

    jQuery, 25 Апреля 2011

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

11. Куча / Говнокод #6440

    +147

    1. 1
    2. 2

    [IMG]http://s58.radikal.ru/i161/1104/c8/63c98ef50bd4.jpg[/IMG]
    I MADE 3k ON /gk/

    Поздравляю с гетом!

    3kGET, 21 Апреля 2011

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

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

• 1572
• …
• 993
• 992
• 991
• 990
• 989
• 988
• 987
• 986
• 985
• …
• 1