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

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

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

1. PHP (5713)
2. C++ (2746)
3. Куча (2414)
4. JavaScript (2035)
5. C# (1930)
6. Java (1503)
7. Си (1122)
8. Pascal (648)
9. Python (592)
10. 1C (541)
11. SQL (433)
12. ActionScript (292)
13. Objective C (202)
14. bash (201)
15. Perl (194)
16. Assembler (148)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Haskell (47)
21. Go (31)
22. Swift (27)
23. Kotlin (14)

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

   +143.8

   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

   CREATE TABLE EMP (EMPNO NUMBER(4) NOT NULL,
                     ENAME VARCHAR2(10),
                     JOB VARCHAR2(9),
                     MGR NUMBER(4),
                     HIREDATE DATE,
                     SAL NUMBER(7, 2),
                     COMM NUMBER(7, 2),
                     DEPTNO NUMBER(2));
   
   INSERT INTO EMP VALUES (7369, 'SMITH', 'CLERK',    7902, TO_DATE('17-DEC-1980', 'DD-MON-YYYY'), 800, NULL, 20);
   INSERT INTO EMP VALUES (7499, 'ALLEN', 'SALESMAN', 7698, TO_DATE('20-FEB-1981', 'DD-MON-YYYY'), 1600, 300, 30);
   INSERT INTO EMP VALUES (7521, 'WARD',  'SALESMAN', 7698, TO_DATE('22-FEB-1981', 'DD-MON-YYYY'), 1250, 500, 30);
   INSERT INTO EMP VALUES (7566, 'JONES', 'MANAGER',  7839, TO_DATE('2-APR-1981',  'DD-MON-YYYY'), 2975, NULL, 20);
   INSERT INTO EMP VALUES (7654, 'MARTIN', 'SALESMAN', 7698,TO_DATE('28-SEP-1981', 'DD-MON-YYYY'), 1250, 1400, 30);
   INSERT INTO EMP VALUES (7698, 'BLAKE', 'MANAGER', 7839,TO_DATE('1-MAY-1981', 'DD-MON-YYYY'), 2850, NULL, 30);
   INSERT INTO EMP VALUES (7782, 'CLARK', 'MANAGER', 7839,TO_DATE('9-JUN-1981', 'DD-MON-YYYY'), 2450, NULL, 10);
   INSERT INTO EMP VALUES (7788, 'SCOTT', 'ANALYST', 7566,TO_DATE('09-DEC-1982', 'DD-MON-YYYY'), 3000, NULL, 20);
   INSERT INTO EMP VALUES (7839, 'KING', 'PRESIDENT', NULL,TO_DATE('17-NOV-1981', 'DD-MON-YYYY'), 5000, NULL, 10);
   INSERT INTO EMP VALUES (7844, 'TURNER', 'SALESMAN', 7698,TO_DATE('8-SEP-1981', 'DD-MON-YYYY'), 1500, 0, 30);
   INSERT INTO EMP VALUES (7876, 'ADAMS', 'CLERK', 7788,TO_DATE('12-JAN-1983', 'DD-MON-YYYY'), 1100, NULL, 20);
   INSERT INTO EMP VALUES (7900, 'JAMES', 'CLERK', 7698,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 950, NULL, 30);
   INSERT INTO EMP VALUES (7902, 'FORD', 'ANALYST', 7566,TO_DATE('3-DEC-1981', 'DD-MON-YYYY'), 3000, NULL, 20);
   INSERT INTO EMP VALUES (7934, 'MILLER', 'CLERK', 7782,TO_DATE('23-JAN-1982', 'DD-MON-YYYY'), 1300, NULL, 10);
   
   prompt C R E A T E   N E W   E M P L O Y E E   R E C O R D
   prompt
   prompt Enter the employee's information:
   prompt
   accept l_ename char format a10 prompt 'Last name: '
   accept l_empno number format '9999' prompt 'Employee #: '
   accept l_sal number format '99999.99' prompt 'Salary [1000]: ' default '1000.00'
   accept l_comm number format '99999.99' prompt 'Commission % [0]: ' default '0'
   accept l_hired date format 'mm/dd/yyyy' prompt 'Hire date (mm/dd/yyyy): '
   
   prompt List of available jobs:
   select distinct job
     from emp
    order by job
   /
   accept l_job char format a9 prompt 'Job: '
   
   prompt List of managers and employee numbers:
   select empno, ename
     from emp
    order by ename
   /
   accept l_mgr number format '9999' prompt 'Manager''s Employee #: '
   
   prompt List of department numbers and names:
   select deptno, dname
     from dept
    order by deptno
   /
   accept l_dept number format '99' prompt 'Department #: '
   
   insert into emp (empno, ename, job, mgr, hiredate, sal, comm, deptno)
   values (&l_empno, '&l_ename', '&l_job', &l_mgr,
           to_date('&l_hired','mm/dd/yyyy'), &l_sal, &l_comm, &l_dept)
   /
   
   drop table emp;

   sergylens, 08 Апреля 2010

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

2. Куча / Говнокод #2943

   +144.8

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

   <table width="100%">
   <tr>
   	<td><input name="res" title="add new resource"/><td>
   </tr>
   </table>

   а ведь это должен был быть <div>..</div> =)

   cheef, 06 Апреля 2010

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

3. Куча / Говнокод #2942

   +51.4

   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

   .....
   <table width=100% border=1>
   <colgroup .....>
   .....
   <tr>
     <td colspan=2>(тут шапка)</td>
   </tr>
   <tr>
     <td width=60% colspan>(слева)</td>
     <td width=40% colspan>(справа)</td>
   </tr>
   .....
   </table> 
   .....

   Нету раздела html, поэтому решил наговнокодить тут :) Будет ли это говнокодом если верстать сайты так? Вообщем за и против div'ой и табличной верстки.. примеры данного куска с оптимальным содержанием..

   antigovnokoder, 06 Апреля 2010

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

4. Куча / Говнокод #2906

   +131.6

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

   <div style="width:100%; text-align:center; height:95%; position: absolute ; left:0; top:0;  text-align:center;  "  >
         
         
               <table id="TableHead" cellpadding="0" cellspacing="0" style="text-align:center;width: 400px; margin-top:-150px; margin-left:-200px;    position:absolute; top: 50%; " align="center">
   
   ...
   </div>

   ну не красотень

   alex_donetsk, 01 Апреля 2010

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

5. Куча / Говнокод #2893

   +123.2

   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

   uses windos, crt;
   label code1;
   var start: char;
       pr: shortint;
       code: integer;
       z, k, p, c, x: longint;
       h, m, s, hund: word;
       st: string;
       i:comp;
   function time(w : word) : string;
   var s : string;
   begin
    str(w:0, s);
    if length(s) = 1 then s:='0'+s;
    time:=s;
   end;
   procedure rdtsc(var tsc:comp); assembler;
   asm
   db $0f, $31
   les di, tsc
   mov [es:di+0], ax
   db $66, $c1, $e8, $16
   mov [es:di+2], ax
   mov [es:di+4], dx
   db $66, $c1, $ea, $16
   mov [es:di+6], dx
   end;
   begin
   textcolor(white);
   write ('Start?(y/n) '); readln (start);
   if start<>'y' then halt;
   code1:
   z:=14000005; c:=round(z/100); p:=c; pr:=0; k:=0; textcolor(10);
   gettime(h, m, s, hund);
   st:=time(h)+time(m)+time(s)+time(hund);
   val(st, x, code);
           if code<>0 then
           begin
           clrscr;
           textcolor(12);
           writeln ('CODE=', code);
           writeln (h, m, s, hund);
           goto code1;
           end;
   rdtsc(i); i:=i+x*41+x+5;
   
      while z<>k do
      begin
      str(i, st);
      st:=copy(st, 6, 4);
      val(st, i, code);
                   if code<>0 then
                   begin
                   clrscr;
                   textcolor(12);
                   writeln ('CODE=', code);
                   writeln ('ST=', st);
                   goto code1;
                   end;
      i:=i*i+h*104+hund*73+x;
                   if i=0 then
                   begin
                   textcolor(12);
                   writeln ('K=', k);
                   delay(50000);
                   goto code1;
                   end;
      k:=k+1;
             if k=p then
             begin
             p:=p+c;
             pr:=pr+1;
             clrscr;
             writeln ('STATUS: ', pr, '%');
             end;
      end;
   x:=round(i); textcolor(white); writeln ('Result X=', x); textcolor(yellow);
                     while x>=10 do
                     begin
                     str(x, st);
                     z:=length(st);
                     x:=0;
                          for k:=1 to z do
                          begin
                          start:=st[k];
                          val(start, pr, code);
                                     if code<>0 then
                                     begin
                                     clrscr;
                                     textcolor(12);
                                     writeln ('CODE=', code);
                                     write ('START=', start);
                                     goto code1;
                                     end;
                          x:=x+pr;
                          end;
                     end;
   write ('Result=', x); readln
   end.

   Генерация случайного числа от 1 до 9 на Turbo Pascal. Свистоперделки прилагаются. Спешите поблевать! Делал сам. Такое вот задание попалось мне в лаб. работе на 4-м курсе. Хотя паскаль изучал лишь в школе, позиция препода уникальна: "Вы должны уметь всё!", хотя дрочим лишь C#, Java и асм.

   killerman_yar, 29 Марта 2010

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

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

   +144.4

   1. 1

   array...

   Забавно перепутаны картинки и соответствующие им пакеты телевидения: кино, спорт, увлечения.
   На пакете телевидения "кино" изображена девушка спортсменка (видимо плавчиха).
   На пакете телевидения "спорт" изображен кулинар.
   На пакете телевидения "увлечения" изображен лев, который может съесть.
   )
   Источник: akado.tv

   Kraut, 21 Марта 2010

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

7. Куча / Говнокод #2833

   +144.6

   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

   program stroki;
   
   uses
     crt;
   
   var
     S, ns: string[80];
     t, f, f1, kc, ks, d, i: byte;
   
   const
     n = '1234567890';
     a = 'abcdefghijklmnopqrstuvwxyz';
   
   begin
     kc := 0;
     ks := 0;
     
     clrscr;
     read(S);
     d := length(S);
     for i := 1 to d do
    begin
       t := pos(S[i], n);
       if t > 0 then
       begin
         ns := ns + S[i];
         f := 1;
       end
       else 
       begin
         if f = 1 then
           kc := kc + 1;
         f := 0;
         delete(ns, 1, length(ns));
       end
       end;
    
     
     f := 0;
     delete(ns, 1, length(ns));
     for i := 1 to d do
     begin
       t := pos(S[i], a);
       if t > 0 then
       begin
         ns := ns + S[i];
         f := 1;
       end
       else
       begin
         if f = 1 then
           ks := ks + 1;
         f := 0;
         delete(ns, 1, length(ns));
       end
     end;
     if (kc = 0) and (ks = 0) then
     begin
       clrscr;
       write('no symbols and digets');
       readkey;
     end; 
     if kc > ks then
     begin
       clrscr;
       write('a lot of digets');
       readkey;  
     end
     else
     begin
       clrscr;
       write('a lot of symbols');
       readkey;
     end;
     if kc = ks then
     begin
       clrscr;
       write('они равны');
       readkey;
     end
     
     
     
   end.

   Funkie444, 21 Марта 2010

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

8. Куча / Говнокод #2820

   +55.6

   1. 1

   0 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23 * * * root /usr/local/cron_func/trans.pl

   строка в crontab'е.

   Mihard, 18 Марта 2010

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

9. Куча / Говнокод #2812

   +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

   LOCALE: UTF-8
   LANGUAGE: RUSSIAN
   
   ОТКРТЫАЯ ЛИЦЕНЗИЯ С ОТСУТСТВИЕМ ГАРАНТИЙ.
   ЭТА ЛИЦЕНЗИЯ НЕДЕЙСТВИТЕЛЬНА ПРИ ПЕРЕВОДЕ НА ДРУГИЕ ЯЗЫКИ.
   
   
   
   ПРИЛОЖЕНИЕ QUOTER
   
   
   Это приложение предоставляется конечному пользователю КАК ЕСТЬ без каких либо
   гарантий. Автор(ы) приложения снимают с себя любую ответственность, включая
   ответственность за неполадки, вызвавшие материальные/духовные потери.
   
   Конечному потребителю ЗАПРЕЩАЕТСЯ продавать приложение/его модификации, без
   согласия автора(ов).
   Конченому потребителю ЗАПРЕЩАЕТСЯ выдавать себя за автора(ов) приложения.
   
   Конченый потребитель ИМЕЕТ ПРАВО модифицировать приложение как ему вздумается.

   файл LICENSE.TXT в одном говнопроэкте

   danilissimus, 17 Марта 2010

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

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

    +124.8

    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

    varnamebegin // начало имени новой переменной
    a // имя новой переменной
    varnameend // конец имени новой переменной
    varvaluebegin // начало значения новой переменной
    newarray // новый массив
    varvalueend // конец значения новой переменной
    varcallbegin // начало имени вызываемой переменной
    a // имя вызываемой переменной
    varcallend // конец имени вызываемой переменной
    push // добавить элементы в массив
    lcobjectsbegin // начало области добавляемых элементов
    bg // начало значения элемента массива
    codedn // code — символ, d — префикс для цифр, n — спец-символ для цифры "0"
    end // конец значения элемента массива
    bg // начало значения элемента массива
    codedo // code — символ, d — префикс для цифр, n — спец-символ для цифры "1"
    end // конец значения элемента массива
    lcobjectsend // конец области добавляемых элементов
    functioninit // аналог ()

    Создание массива с содержимым [0, 1] на одном из эзотерических ЯП. Фишка в том, что убраны все знаки препинания, цифры и т.д., оставлены лишь прописные латинские буквы.
    Интересно, как на таком ЯП будет выглядеть полностью валидная проверка E-Mail (наподобии этой — ex-parrot.com/pdw/Mail-RFC822-Address.html) ?

    eval, 17 Марта 2010

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

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

• 242
• …
• 18
• 17
• 16
• 15
• 14
• 13
• 12
• 11
• 10
• …
• 1