Лучший говнокод за всё время

Лучший говнокод

В номинации:

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

За время:

Pascal / Говнокод #6319

+94

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

program Oracle;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  sQuestion : String;
  i : ShortInt;
  bAnswer : Boolean;
Label lExit, lAnswer;
BEGIN
 bAnswer := true;
 WriteLn('Input question: ');
 lAnswer: Read(sQuestion);

 If Length(sQuestion) < 4 then
  Begin
    WriteLn('What "' + sQuestion + '"?');
    Goto lAnswer;
  End;


 If sQuestion[Length(sQuestion)] <> '?' then
  Begin
    WriteLn('It`s not a question.');
    Goto lExit;
  End;

 Randomize;
 If Random(10) = 1 then
  Begin
    WriteLn('But why you ask?');
    Goto lExit;
  End;

  For i := 1 to Length(sQuestion) do
   If bAnswer = true then bAnswer := false
    Else bAnswer := false;

  If bAnswer = true then WriteLn('Yes.')
   Else WriteLn('No.');

 lExit: Readln;
END.

> Input question:
> Лурк гавно?
> No.
> А ты всегда даешь верные ответы?
> No.
> В смысле?
> What "В смысле?".
> Ну, в прямом.
> It`s not a question.
> Ты будешь отвечать на мой вопрос???
> No.
> Тогда иди нахуй.
> Сам иди нахуй.
> 0_o

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

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

Pascal / Говнокод #5284

+94

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

For i := 0 to 7 do
     Begin
      If ((iMass[i])[1] = dClick.xAlf) and (StrToInt((iMass[i])[2]) = dClick.yFlt) then
      BegiN
       cObject.Caption := '';
       If (i = 1) or (i = 2) then
       Begin
        (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier1.bmp');
        Break;
       End;

       If i = 4 then
       Begin
        (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier3.bmp');
        Break;
       End;

       If i >= 5 then
       Begin
        (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier2.bmp');
        Break;
       End;

       (Sender as TSpeedButton).Glyph.LoadFromFile('images/Grenadier'+IntToStr(i + 1)+'.bmp');
       Break;
      EnD;
     End;

Мой высер. За неимением идей, больше ничего придумать не смог.

Govnocoder#0xFF, 15 Января 2011

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

Pascal / Говнокод #4776

+94

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

function WindowProc(Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM ): LRESULT; stdcall;
type
  Item = record
    szItemNr: array[0..8] of char;
    szItem: array[0..32] of char;
    szItemDescription: array[0..32] of char;
  end;
var
  ListColumn: LV_COLUMN;
  ListItem: LV_ITEM;
begin
  // In case of Msg ...
  case Msg of
    WM_CREATE: // Create?
    begin
      // Create list
      ListView := CreateWindowEx(WS_EX_CLIENTEDGE, WC_LISTVIEW, '', WS_VISIBLE Or WS_CHILD Or LVS_REPORT Or LVS_SHOWSELALWAYS,
                                 10, 10, 524, 300, Wnd, 0, hInstance, nil);
      ListView_SetExtendedListViewStyle(ListView, LVS_EX_FULLROWSELECT Or LVS_EX_GRIDLINES);
      // Filling list columns
      with ListColumn do begin
        mask := LVCF_FMT Or LVCF_WIDTH Or LVCF_TEXT Or LVCF_SUBITEM;
        fmt := LVCFMT_LEFT;

        iSubItem := 0;
        cx := 200;
        pszText := 'File name';
        ListView_InsertColumn(ListView, 0, ListColumn);

        iSubItem := 1;
        cx := 250;
        pszText := 'Folder path';
        ListView_InsertColumn(ListView, 1, ListColumn);

        iSubItem := 2;
        cx := 70;
        pszText := 'File size';
        ListView_InsertColumn(ListView, 2, ListColumn);
      end;

      with ListItem do begin
        mask := LVIF_TEXT;
        iItem := 1;
        iSubItem := 1;
        pszText := PChar('test');
        cchTextMax := SizeOf(PChar('test')) + 1;
      end;
      ListView_InsertItem(ListView, ListItem);
      ListView_SetItemText(ListView, 1, 1, PChar('Hello world!'));

      // Create static text, progress bar and buttons
      StaticText := CreateWindowEx(0, 'Static', '', WS_CHILD Or WS_VISIBLE Or SS_CENTER,
                                   10, 310, 524, 16, Wnd, ID_StaticText, hInstance, 0);
      ProgressBar := CreateWindowEx(0, PROGRESS_CLASS, nil, WS_CHILD Or WS_VISIBLE Or PBS_SMOOTH,
                                    9, 326, 525, 17, Wnd, ID_ProgressBar, hInstance, nil);
      Button_Start := CreateWindowEx(WS_EX_STATICEDGE, 'Button', 'Start', BS_DEFPUSHBUTTON Or WS_VISIBLE Or WS_CHILD,
                               150, 350, 70, 25, Wnd, ID_Button_Start, hInstance, nil );
      Button_Pause := CreateWindowEx(WS_EX_STATICEDGE, 'Button', 'Pause', WS_VISIBLE Or WS_CHILD Or WS_DISABLED,
                               230, 350, 70, 25, Wnd, ID_Button_Pause, hInstance, nil );
      Button_Stop := CreateWindowEx(WS_EX_STATICEDGE, 'Button', 'Stop', WS_VISIBLE Or WS_CHILD Or WS_DISABLED,
                               310, 350, 70, 25, Wnd, ID_Button_Stop, hInstance, nil );
    end;

    WM_DESTROY: // Closing?
    begin
      PostQuitMessage(0);
      Result := 0;
      Exit;  // Bye.
    end;

    WM_COMMAND: // Any command?
    case LoWord(wParam) of
        // ....................................
    end;
end;

Пристрелите меня кто-нибудь. Или объясните, как работает этот волшебный listview %)

iloveYou, 28 Ноября 2010

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

Pascal / Говнокод #3831

+94

1
2
3
4
5
6
7
8

if MessageDlg('Удалить проводку №'+srcTransact.DataSet.FieldByName('Trans_ID').AsString+' и ее спецификацию?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    CMD.SQL.Add('EXEC dbo.asp_DelTransact '+srcTransact.DataSet.FieldByName('Trans_ID').AsString );
    CMD.Execute;
    _refresh(srcTransact.DataSet);
  end;
end;

Из реального проекта (учётная система).
При определённых условиях можно удалить не только то что пользователь собирался удалить :).
Да и вообще, сам код - говно.

Fes, 30 Июля 2010

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

Java / Говнокод #3333

+94

private static String PUBLIC = "public";
private static boolean isPublic( String addressingType ) {
  return "public".equals( addressingType ) || addressingType == null;
}

raorn, 27 Мая 2010

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

C# / Говнокод #2045

+94

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

if (comboBox4.Text == "Да")
 {
         ph[0] = (p11p * ph[0]) / ((p11p * ph[0]) + (p11n * (Convert.ToDouble(1) - ph[0])));
         ph_[1] = ph[0];
}
if (comboBox4.Text == "Да напевно")
{
       str = (p11p * ph[0]) / ((p11p * ph[0]) + (p11n * (Convert.ToDouble(1) - ph[0])));
       str = (str - ph[0]) / 2;
       ph[0] += str;
       ph_[1] = ph[0];
}
if (comboBox4.Text == "Нет")
{
       ph[0] = (ph[0] * (Convert.ToDouble(1) - p11p)) / (Convert.ToDouble(1) - (ph[0] * p11p) - (p11n * (Convert.ToDouble(1) - ph[0])));
       ph_[1] = ph[0];
}
if (comboBox4.Text == "Нет напевно")
{
       str = (ph[0] * (Convert.ToDouble(1) - p11p)) / (Convert.ToDouble(1) - (ph[0] * p11p) - (p11n * (Convert.ToDouble(1) - ph[0])));
       str = (str - ph[0]) / 2;
       ph[0] += str;
       ph_[1] = ph[0];
}
if (comboBox4.Text == "Не знаю")
{
       ph_[1] = ph[0];
}

pmalyavkin, 26 Октября 2009

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

Си / Говнокод #2374

+93.9

1
2

if (cmd[1] == RESET) // если принятая команда RESET
{((void(*)(void))0)();} // что-то из черной магии

Сломай себе голову!!!!
друг прислал, незнаю где накопал, но выглядит круто!

LuCiFer, 05 Января 2010

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

Pascal / Говнокод #1122

+93.9

01
02
03
04
05
06
07
08
09
10
11
12
13

SetTime(0,0,0,0);  {засекаем время, т.е. устанавливаем системное время равным
                    0 ч 0 мин 0.00 сек   }
{NumDist - число расматриваемых расстояний
i - индекс элемента массива расстояний,
количество групп всегда равно расстоянию d,
CurGroup - номер сортируемой группы}
For i:=1 to NumDist do
  begin
    d:=dist[i];
    For CurGroup:=1 to d do
      InsertSort(d,CurGroup);
  end;
GetTime(hour,minute,second,hund);   {Получаем время сортировки}

Говнокод для измерения времени работы алгоритма.
Источник - http://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0% BE%D0%B2%D0%BA%D0%B0_%D0%A8%D0%B5%D0%BB% D0%BB%D0%B0

В лучших индусских традициях, виват!

guest, 01 Июня 2009

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

Си / Говнокод #2830

+93.4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

/* This array makes it easy to sort filenames into merged-case order
 * (e.g. AaBbCcDdEeFf...). */
static unsigned char casemap[256] = {
    0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,
    0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
    0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,
    0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
    0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,
    0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
    0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,
    0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
    0x40,0x41,0x43,0x45,0x47,0x49,0x4B,0x4D, /* @ABCDEFG */
    0x4F,0x51,0x53,0x55,0x57,0x59,0x5B,0x5D, /* HIJKLMNO */
    0x5F,0x61,0x63,0x65,0x67,0x69,0x6B,0x6D, /* PQRSTUVW */
    0x6F,0x71,0x73,0x75,0x76,0x77,0x78,0x79, /* XYZ[\]^_ */
    0x7A,0x42,0x44,0x46,0x48,0x4A,0x4C,0x4E, /* `abcdefg */
    0x50,0x52,0x54,0x56,0x58,0x5A,0x5C,0x5E, /* hijklmno */
    0x60,0x62,0x64,0x66,0x68,0x6A,0x6C,0x6E, /* pqrstuvw */
    0x70,0x72,0x74,0x7B,0x7C,0x7D,0x7E,0x7F, /* xyz{|}~  */
    0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,
    0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,
    0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,
    0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,
    0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,
    0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,
    0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,
    0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,
    0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,
    0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,
    0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,
    0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,
    0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,
    0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,
    0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,
    0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF
};

L29Ah, 20 Марта 2010

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

Pascal / Говнокод #2150

+93.3

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23

type
chel = record
name:string;
tag:int64;
end;

procedure go_to_banaj (var obj:chel);
begin
obj.tag:=obj.tag+1;
writeln(obj.name+', Пошел ты в баню')
writeln('Тебя послали в баню '+inttostr(obj.tag)+' Раз')
end;

procedure prolaps;
var
obj:chel;
begin
obj.tag:=0;
readln(obj.name);
//obj.name:='Фyтбалёр';
while 1=1 do 
go_to_banaj(obj)
end;

Tonnelll, 17 Ноября 2009

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

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