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

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

В номинации:

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

За время:

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

+99

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

program lab;
usescrt
var
a:array [1..20] of shortint;
s:byte;
g,b:real;
begin
clrscr
randomize;
for s:=1 to 20 do 	
begin 
a[s]:=random (40);
a[s]:=a[s]-20;
write (a [s]4);
end;
g:=0
for s:=1 to 20 do
if a[s]>0 , then g= g+a [s];
writelnc(summa pol ',g);
b:=0;
for s:=1 to 20 do
if a[s]<0 then b:=b+a[s];
writeln (srednee',b);
b:=(b)/20;
repeat until keypressed;
end.

http://rghost.ru/38741341

dos_, 01 Июля 2012

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

Assembler / Говнокод #11313

+199

01
02
03
04
05
06
07
08
09
10
11

sum proc ; ax=ax+bx
        push dx
m1:     mov dx, ax
        xor ax, bx
        and bx, dx
        shl bx, 01h
        cmp bx, 00h
        jnz m1
        pop dx
        ret
sum endp

Навеяно http://govnokod.ru/11311

movaxbx, 28 Июня 2012

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

PHP / Говнокод #11279

+45

1

$ApsolutePath = $_SERVER['DOCUMENT_ROOT']; # Абсолютный путь до сайта (автоматическое определение корневой директории)

$ApsolutePath - Ну как? КАК?

domaster, 22 Июня 2012

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

C++ / Говнокод #11232

−36

01
02
03
04
05
06
07
08
09
10

//установка режима реализма
		void includeRealTimeMode()
		{
			TSerialCommand^ command = gcnew TSerialCommand;
			command->cmd = CMD_CONTROL;
			command->sc1 = SC_REAL_TIME_MODE;
			command->sc2 = NULL; //_portManager.oscillFrequency;
			_portManager.sendCommand(command);

		}

Команда включает (активирует) режим реального времени.
C++\CLI

Говногость, 19 Июня 2012

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

ActionScript / Говнокод #11229

−167

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

public function getFiltersDescription () : IList
{
	var model : ITableBasedModuleModel = this.getTableBasedModel();
	return model.filtersDescription;
}

public function getModuleTitle () : String
{
	var model : ITableBasedModuleModel = this.getTableBasedModel();
	return model.getTitle();
}

//....
private function getTableBasedModel () : ITableBasedModuleModel
{
	return this.model as ITableBasedModuleModel;
}

private function getTableBasedView () : ITableBasedModuleView
{
	return this.view as ITableBasedModuleView;
}

Java ооп головного мозга.

kyzi007, 19 Июня 2012

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

JavaScript / Говнокод #10967

+162

1

window.location = "http://habrahabr.ru/post/116653/";

Дело создателей 1С живет и процветает.

3.14159265, 15 Июня 2012

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

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

+133

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

static inline int getKey(short int high, short int low)
{
    return (((int)high)<<16)+(int)low;
}

static inline short getHigh(int pKey)
{
    return (short)(pKey>>16);
}

static inline short getLow(int pKey)
{
    return (short)(pKey&0x00000000FFFFFFFF);
}

вот так. getHigh() оставил для полноты.

Dummy00001, 14 Июня 2012

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

Куча / Говнокод #10862

+140

1
2
3
4
5
6
7

Классификация говнокода:
1. Легкий говнокод
2. Кучка говнокода
3. Автор думал, что самый умный
4. Жесткое порно в коде
5. Муть полнейшая, автор на следующий день не смог разобраться сам
6. После прочтения единственный путь нормально поспать - сделать лоботомию.

Сидел я и разбирал чей-то говнокод.
Чтобы расслабить нервы, которые уже на пределе, решил написать классификацию говнокода.
Предлагайте свои варианты.

oooZinka, 09 Июня 2012

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

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

+104

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

using (var s = _session.OpenSession())
	using (var tr = s.BeginTransaction())
	{
		if (!s.IsConnected)
		{
			s.SaveOrUpdate(factor);
			tr.Commit();
			s.Close();
			return true;
		}
		else
		{
			s.Close();
			return false;
		}
	}

Maps, 09 Июня 2012

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

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

+92

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

function THandlerServerCommands.CheckCommandOnDigits(const AComand: string;
  var AIndex: integer): Boolean;
var
  i, k: Integer;
  Nn, Ln: integer;
  TempComand: string;
begin
  Result := False;
  try
    TempComand := AComand;
    Ln := 1;
    Nn := 0;
    if FServerCommands.Find(TempComand, i) then
    begin
      AIndex := i;
      Result := True;
      Exit;
    end;

    for k := 1 to Length(AComand) do
    begin
      if not (AComand[k] in ['0'..'9']) then
        inc(Nn)
      else
      begin
        inc(Nn);
        if Nn > Ln then
        begin
          TempComand := '';
          TempComand := Copy(AComand, 1, Nn - 1);
          if FServerCommands.Find(TempComand, i) then
          begin
            AIndex := i;
            Result := True;
            Break;
          end;
        end;
        Ln := Nn + 1;
      end;
    end;
  except
    on e: Exception do
    begin
      Result := False;
      LogEx.Error('Ошибка в процедуре CheckCommandOnDigits c параметрами AComand = ' + AComand + ' ' + e.Message);
    end;
  end;
end;

Проверьте код на запашок

DeadIgle, 08 Июня 2012

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

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