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

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

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

1. PHP (5698)
2. C++ (2733)
3. Куча (2329)
4. JavaScript (2027)
5. C# (1925)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (532)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (198)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (29)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

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

   +146

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

   function factorial( n: Integer ): Int64;
   begin
     if n=0 then Result := 1
     else             Result := n*factorial(n-1);
   end;
   
   factorial(-1); //<--ЗАЦИКЛИВАЕТ

   =D

   Fai, 29 Июля 2011

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

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

   +147

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

   procedure TForm1.GoBtnClick(Sender: TObject);
   BEGIN
    If GoBtn.Enabled = false then Exit;
    GoBtn.Enabled := false;
   // Some code
   END;

   Вот что бывает, когда не продумаешь весь проект до конца.

   Govnocoder#0xFF, 28 Июля 2011

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

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

   +155

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

   procedure TForm1.Image1Click(Sender: TObject);
   begin
    sPictureName := Label2.Caption;
    Form2.Show;
   end;
   
   procedure TForm1.Image2Click(Sender: TObject);
   begin
    sPictureName := Label3.Caption;
    Form2.Show;
   end;

   Знаю конечно что уныло, но по моему делать одну процедуру из-за этого слишком геморройно. С тем же массивом из 2-х элементов хотя бы. Говно ли?

   Govnocoder#0xFF, 26 Июля 2011

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

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

   +94

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

   var s:string;
   begin
   cs.Active:=true; //Коннектимся
   if cs.Socket.Connected=true then begin //Если подключились то
   memo1.lines.add('Соединение установленно...'); //пишим в memo
   end else //в противном случае пишим это
   memo1.lines.add('Соединение неустановленно...'); //<--вот это :)

   >теперь у формы в событии OnGreate пишим
   Это капец....
   http://forum.hackforce.ru/thread1685.html#post405879

   Govnocoder#0xFF, 15 Июля 2011

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

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

   +154

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

   type
   число=ineger;
   плюс_число=word;
   эконом=shortint;
   плюс_эконом=byte;
   моар=longint;
   граммар=real;
   йцукен=char;
   йцуукеен=string;
   холивар=boolean;

   dos, 15 Июля 2011

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

6. Pascal / Говнокод #7225

   +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
   26. 26
   27. 27
   28. 28
   29. 29
   30. 30
   31. 31
   32. 32
   33. 33
   34. 34

   uses
   crt;
   var
     chasov,
    minutov,
   sekundov :byte;
   tekushchiy_sekund:word;
   begin
   clrscr;
   write('   chasov ');
   read(     chasov);
   if chasov=9
              then
                  begin
                       clrscr;
                       halt;
                  end;
   write('  minutov ');
   read(    minutov);
   write(' sekundov ');
   read(   sekundov);
   clrscr;
   for tekushchiy_sekund:=1
   to sekundov+60*minutov+3600*chasov do
     begin
          if keypressed then
                            if readkey=#27
                                          then halt;
          delay(50000);
     end;
   sound(300);
   readkey;
   nosound;
   end.

   УГАДАЙТЕ

   dos, 11 Июля 2011

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

7. Pascal / Говнокод #7213

   +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
   95. 95
   96. 96
   97. 97
   98. 98
   99. 99

   говно
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно
   
   
   говно

   говно
   
   
   говно
   
   
   говно

   maga_nanaev, 09 Июля 2011

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

8. Pascal / Говнокод #7178

   +98

   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

   function Prime (N: longword): boolean;
   var
   	i : longword;
   	Max : single;
   begin
   	if N = 2
   		then Prime := true
   	else if (N <= 1) or (N mod 2 = 0)
   		then Prime := false
   	else begin
   		Prime := true;
   		i := 3; Max := sqrt(N);
   		while i <= Max do begin
   			if N mod i = 0 then begin
   				Prime := false; 
   				exit
   			end;
   			i := i + 2
   		end
   	end
   end;
   
   var
   	a, i : longword;
   
   begin
   	read(a);
   	for i := 2 to a do
   		if Prime(i)
   			then writeln(i, ' is a prime number');
   end.

   Нахождение простых чисел.

   sunshinelf, 06 Июля 2011

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

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

   +93

   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

   Label 1, 2;
   var
    M,n:integer;
    B:real;
   Begin
    Read(m,n);
    2:
    B:=m mod n;
    If b=0 then goto 1 else
   Begin
    M:=n; n:=b;
    Goto 2;
   End;
    1:
   Write(n);
   End.

   Кaк бэ прогрaммноe рeaлизaциё aлгоритмa Евклидa, нaхождeниe мaксимaльного дeлитeля двух чисeл, кaк-то тaк.

   KATAJIU3ATOP, 06 Июля 2011

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

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

    +93

    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

    if Length(PP.curdir)<36 then
    pt:=' '+PP.curdir+' '
    else pt:=' \...'+Copy(PP.curdir,Length(PP.curdir)-30,31)+' ';
    Ptr:=PP.f_ptr;
    if PP.vol='' then PP.vol:='No Label';
    WriteString(1,cc+(40-length(pt)) div 2,pt,Pal[8]);
    WriteString(22,cc+1+(cc*(34-length(PP.vol))) div 40,'['+PP.vol+']',Pal[7]);
    if PP.vol='No Label' then  PP.vol:='';
    {if PP.empty then exit;}
    inc(ptr,sizeof(filrec)*row);
    for i:=row to n+row do begin
    if (i <PP.files) and (not PP.empty) then begin fname:=ptr^.filename;
    {if (ptr^.fileattr and 16) = 0 then StrLwr(fname);}
    if (Ptr^.fileattr and 2) <> 0 then fname[1]:=upcase(fname[1]);
    if ((Ptr^.fileattr and Hidden) <> 0) and (Pos('.',Fname)>0) then fname[Pos('.',Fname)+1]:=upcase(fname[Pos('.',Fname)+1]);
    SortFIle(fname);
    for a := length(fname) to 11 do fname:=fname+' ';
    fname:=fname+'│';
    if (Ptr^.fileattr and 16) = 0 then Str(Ptr^.filesize:10,pt)
    else if fname[1]='.' then pt:='UP──-DIR'
         else pt:='SUB─-DIR';
    fname:=fname+pt+'│';
    DateTimeCnv(pt,Ptr^.filedttm);
    fname:=fname+pt;     {SetFattr}
    if Ptr^.selected then WriteString(2+i-row,cc,fname,Pal[1]) else
    WriteString(2+i-row,cc,fname,Pal[2]);
    inc(ptr,sizeof(filrec));
    end
    else WriteString(2+i-row,cc,'            │          │        │     ',Pal[1]);
    end;
    end;
    procedure Put_File(PP:Panel;cc,row,x:word;active:boolean);
    var
    fname,pt:string;
    {ptr:P_filrec;}
    begin
    if PP.empty then exit;
    ptr:=PP.F_ptr;
    inc(ptr,sizeof(filrec)*(row+x));
    fname:=ptr^.filename;
    {if (ptr^.fileattr and 16) = 0 then StrLwr(fname);}
    if (Ptr^.fileattr and 2) <> 0 then fname[1]:=upcase(fname[1]);
    if ((Ptr^.fileattr and Hidden) <> 0) and (Pos('.',Fname)>0) then fname[Pos('.',Fname)+1]:=upcase(fname[Pos('.',Fname)+1]);
    SortFile(fname);
    for a := length(fname) to 11 do fname:=fname+' ';
    fname:=fname+'│';
    if (Ptr^.fileattr and 16) = 0 then Str(Ptr^.filesize:10,pt)
    else if fname[1]='.' then pt:='UP──-DIR'
         else pt:='SUB─-DIR';
    fname:=fname+pt+'│';
    DateTimeCnv(pt,Ptr^.filedttm);
    fname:=fname+pt;
    if active then If Ptr^.selected then WriteString(2+x,cc,fname,Pal[3]) else
    WriteString(2+x,cc,fname,Pal[4])
    else if Ptr^.selected then WriteString(2+x,cc,fname,Pal[1]) else
    WriteString(2+x,cc,fname,Pal[2])

    Файловый менеджер по-типу NC. Pascal, 7-ой класс школы. Участок формирования одной из панелей.
    PS: Вообще, это даже как-то работало: http://habrastorage.org/storage1/84736ecc/b4711597/5b1d2618/5b60c662.png

    Tronix, 01 Июля 2011

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

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

• 65
• …
• 35
• 34
• 33
• 32
• 31
• 30
• 29
• 28
• 27
• …
• 1