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

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

В номинации:

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

За время:

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

+103.9

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

la:
for j:=8 to (length(a)-length(b) div 2) do
begin
	...
	if(a[j]>'5') goto la;
	...
	if(a[j]>'7') goto la;
	...
	if(a[j]>'2') goto la;
	...
	j:=j-8;
	...
	form1.memo1.text=form1.memo1.text+'; '+inttostr(j)+'5';
	...
	if(a[j]>'1') goto g;
	...
	j:=j+8;
end;
g:

Не знаю почему, но меня охватывают фиерические чувства. Найденно на просторах рунета в разделах готовых решений задач для студентов.

Говногость, 02 Сентября 2009

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

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

+103.8

1
2
3
4

TblCashBook.First();
    while not TblCashBook.Eof do begin
      if not (TblCashBook.FieldByName('Date').AsDateTime <=
          ReportDate) then Continue;

GovnocoderJr, 19 Января 2010

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

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

+103.5

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

boolean get_UI_Win(...);
....
boolean retVal = get_UI_Win (...);

switch( retVal )
{
  case FALSE:
    ....
    return FALSE;

  case TRUE:
    ....
    return TRUE;

  case  PRIVACY:
    ....
    return PRIVACY;

  default:
    return FALSE;
}

Индийские коллеги прислали на ревью этот код. Видимо у них свой bool, с блекджеком и шлюхами.

guest, 04 Мая 2009

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

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

+103.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

using System;

namespace Laba2
{
	class Program
	{
		public static void Main(string[] args)
		{
			
			int max, a ;
			string c;
			Random rnd=new Random();
			Console.WriteLine("Количество элементов в массиве");
			c=Console.ReadLine();
			a=Convert.ToInt32(c);
			int[] nums = new int[a];
			for (int i=0; i<a; i++)
			{nums [i]= rnd.Next(-100,99);}
			Console.Write("Массив   ");
			foreach (int i in nums)
			Console.Write(i + " "); Console.WriteLine();
			max=nums[0];
			foreach (int i in nums)
			{a=1;    if (max<a) max=a;}
			Console.WriteLine(max);
			Console.Read();


		}
	}
}

Оставлено оригинальное оформление кода. Особое внимание заслуживает куча лишних переменных и циклов....

ZiS, 22 Марта 2010

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

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

+103.3

1
2
3
4
5
6
7
8
9

public static IntPtr StringToBSTR(string s)
{
    //...
    if ((s.Length + 1) < s.Length)
    {
        throw new ArgumentOutOfRangeException("s");
    }
    //...
}

System.Runtime.InteropServices.Marshal Не знаю зачем это, но мне показалось смешным.

psina-from-ua, 30 Января 2010

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

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

+103

1

http://we.easyelectronics.ru/uploads/images/00/40/39/2016/05/16/ad076cf168.jpg

HaskellGovno, 06 Августа 2016

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

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

+103

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

public bool Enabled(string elementId)
        {
            bool flag = false;
            bool flagFalse = false;
            bool flagTrue = false;
            bool mainFlag = false;
            IWebElement input = Driver.FindElement(By.Id(elementId));
            if (input.Enabled == true)
            {
                flagTrue = true;                
            }
            else
                if (input.Enabled == false)
                {
                    flagFalse = false;                    
                }

            if (flagTrue = true)
            {
                mainFlag = flagTrue;
            }

            else if (flagFalse == false)
            {
                mainFlag = flagFalse;
            }
            return mainFlag;
        }

Астрологи объявили неделю флагов. Их количество увеличивается вдвое.

alexCoder2007, 07 Июня 2014

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

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

+103

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

if (s[n][c]='1')and(s[n][c+1]='0')and(s[n+1][c]='0')and(n=1)and(c=1) then writeln('*');
if (s[n][c]='1')and(s[n][c-1]='0')and(s[n+1][c]='0')and(s[n][c+1]='0')and(n=1) then writeln('*');
if (s[n][c]='1')and(s[n][c-1]='0')and(s[n+1][c]='0')and(n=1)and(c=10) then writeln('*');
if (s[n][c]='1')and(s[n-1][c]='0')and(s[n][c-1]='0')and(s[n+1][c]='0')and(c=10) then writeln('*');
if (s[n][c]='1')and(s[n-1][c]='0')and(s[n][c-1]='0')and(n=10)and(c=10) then writeln('*');
if (s[n][c]='1')and(s[n][c+1]='0')and(s[n-1][c]='0')and(s[n][c-1]='0')and(n=10) then writeln('*');
if (s[n][c]='1')and(s[n][c+1]='0')and(s[n-1][c]='0')and(n=10)and(c=1) then writeln('*');
if (s[n][c]='1')and(s[n+1][c]='0')and(s[n][c+1]='0')and(s[n-1][c]='0')and(c=1) then writeln('*');
if (s[n][c]='1')and(s[n][c+1]='.')and(s[n+1][c]='.')and(n=1)and(c=1) then writeln('*');
if (s[n][c]='1')and(s[n][c-1]='.')and(s[n+1][c]='.')and(s[n][c+1]='.')and(n=1) then writeln('*');
if (s[n][c]='1')and(s[n][c-1]='.')and(s[n+1][c]='.')and(n=1)and(c=10) then writeln('*');
if (s[n][c]='1')and(s[n-1][c]='.')and(s[n][c-1]='.')and(s[n+1][c]='.')and(c=10) then writeln('*');
if (s[n][c]='1')and(s[n-1][c]='.')and(s[n][c-1]='.')and(n=10)and(c=10) then writeln('*');
if (s[n][c]='1')and(s[n][c+1]='.')and(s[n-1][c]='.')and(s[n][c-1]='.')and(n=10) then writeln('*');
if (s[n][c]='1')and(s[n][c+1]='.')and(s[n-1][c]='.')and(n=10)and(c=1) then writeln('*');
if (s[n][c]='1')and(s[n+1][c]='.')and(s[n][c+1]='.')and(s[n-1][c]='.')and(c=1) then writeln('*');

Конец решения первой задачи все из той же дистанционки.
На этот раз мопед не мой, а одной юной дамы.
Вот за ЭТО я и недолюбливаю Паскаль: иногда код хер прочитаешь. А еще путаница с типами. И логикой. Гы.

ckopo, 08 Мая 2013

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

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