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

    В номинации:
    За время:

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

    +118

    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
    Функция ext служит для формирования расширения файла с ЭС. Еe алгоритм основан на логике работы программы АРМ КБР. 
В зависимости от порядкового номера файла ЭС вырабатывается расширение к этому файлу в диапазоне от «001» до «zzz». В листинге приведены построчные комментарии.

Листинг 14-Функция ext
function ext(num integer): string;
var
i : integer;
s1. s2. s3 : char: //условно разделим расширение на три части - гри символа; 
// расширение представляет собой конкатенацию s1+s2-s3 
begin
s1:='0'; s2:='0'; s3:='0'; изначально 000
for i := 0 to num-1 do begin //счетчик от 0 до порядкового номера файла
 if(s3 in ['0'..'8']) then s3:=char(ord(s3)+1) //увеличиваем s3
 else if(s3='9') then s3:='a' // если s3 достигло 9 то заменяем символом 'а'
 else if(s3 in ['a'..'y']) then s3:=char(ord(s3)+1) // если s3 символ - берем следующий
 else begin //если s3 достигло значения "/'
  s3:='0'; //обнуляем s3
  if(s2 in ['0'..'8']) then s2:=char(ord(s2)+1) //увеличиваем s2
  else if(s2='9') then s2:='a' // если s2 достигло 9 то заменяем символом 'a'
  else if (s2 in ['a'..'y']) ihen s2:=char(ord(s2) + 1) //если s2 символ - берем следующий
  else begin // если s2 достигло значения z 
   s2:='0'; // обнуляем s2
   if (s1 in ['0'..'B']) then s1:=char(ord(s1)+1) //увеличиваем s1 else if (s1 ='9') then s1:='a' //если s1 достигло 9 то заменяем символом 'а'
   else if(s1 in ['a'..'y']) then s1:=char(ord(s1)+1) //если s2 символ - берем следующий
  end;
 end;
end;
result:=s1+s2+s3; //возвращаем конкатенацию сформированных частей расширения
end;

    Пару дней назад моему начальнику принесли на рецензию магистерскую диссертацию специалиста по информационным технологиям. Ржали всем отделом! Магистерская листов так на 170. Я предлагаю Вашему вниманию одну функцию будущего специалиста-программиста :-)
    Кстати, разрабатывает он информационную систему для электронного документооборота внутри банка (по его словам даже уже внедрил), при этом большая часть кода на Паскале и также есть модуль для вывода различных диаграмм (в количестве 2х штук) на Дельфи.
    К слову, традиционно магистры в нашем университете претендуют на оценку "отлично".

    g00d, 14 Апреля 2011

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

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

    +107

    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
    procedure delonefromend(var p:TPointer);
var i,n:integer; t:TPointer;
begin
       i:=1;
       t:=p;
       while p<>nil do
               begin
                       t:=t^.next;
                       i:=i+1;
               end;
       for n:=1 to i do p:=p^.next;
       dispose(p^.next);
end;

    Для того чтобы добраться до последнего элемента в списке, сначала циклом подсчитывается в i их количество, а потом другим циклом от 1 до I указатель p перемещается на i элементов, тобишь в конец.

    anigon, 03 Марта 2011

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

  4. C++ / Говнокод #5508

    +165

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    static string GetRequestParam(string request)
        {
            string result="";
            int i = 4;
            for(char c=request[i];c!=' ';c=request[++i])
                result+=c;
            return result;
        }

    Говногость, 03 Февраля 2011

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

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

    +121

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    Уважаемая Администрация и Сообщество!

Предлагаю идею для расширения вашего проекта - сделать возможность постить анти-говнокоды, т.е. ТРУЪ-коды. Но сделать возможность читателям вносить в них изменения. Коммититься будут самые заплюсованные изменения, например.
Таким образом, можно будет во-первых just-for-lulz делать идеальные сферические helloworld'ы а с другой - решать вполне реальные задачи разработчиков, на основе улучшенного, оптимизированного и одобренного Сообществом кода. 

Ну и, конечно, можно будет грабить корованы 

Могу оказать посильную помощь: умею говнокодить на PHP и JS.

PS: Или такое уже предлагали?

    StriderMan, 18 Января 2011

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

  6. C# / Говнокод #5136

    +114

    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
    public new int? OperatorCode
        {
            get
            {
                int result = 0;
                if (!String.IsNullOrEmpty(Request.QueryString["OperatorCode"]) && Int32.TryParse(Request.QueryString["OperatorCode"].ToString(), out result) == true)
                    OPERATOR_CODE = result;
                return OPERATOR_CODE;
            }
            set
            {
                if (value.HasValue)
                    OPERATOR_CODE = value.Value;
                else
                    OPERATOR_CODE = null;
            }
        }

    Вот такое свойство мне встретилось

    Othello, 03 Января 2011

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

  7. C# / Говнокод #5124

    +113

    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
    let rnd = System.Random()
 
// список из 10-ти случайных элементов
let myList = [1..10] |> List.map (fun x -> rnd.Next(1, 100))
 
// функция, исключающая элементы с нечётными номерами
let removeEven lst = [
    let i = ref 0
    for n in lst do
        if (!i % 2 <> 0) then yield n
        i := !i + 1]
 
// выводим список
printfn "%A" myList
 
// исключаем нечётные и выводим
printfn "%A" (removeEven myList)

    qbasic, 01 Января 2011

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

  8. Assembler / Говнокод #5091

    +225

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    ; Program entry point
00401000:  push 0070F001
00401005:  call 0040100B
0040100A:  ret
0040100B:  ret

    Суровый старт зашифрованного самораспаковывающегося архива. Так хитро передаётся управление на 0070F001 (за сегмент кода).

    TarasB, 28 Декабря 2010

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

  9. ActionScript / Говнокод #5081

    −346

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    if( isTarget )
{
	//Some code
}
else
{
	if( !isTarget )
	{
		//Some code
	}
}

    Слов нет

    Werdn, 27 Декабря 2010

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

  10. C++ / Говнокод #4937

    +162

    1. 1
    2. 2
    while(!ThreadActivateFlag)
  Sleep(0);

    Говногость, 15 Декабря 2010

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

  11. C++ / Говнокод #4122

    +164

    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
    void load(char *file)
	{
		reader = fopen((const char*)file, "r+b");
		if(reader)
		{
			byte *b = (byte*)malloc(sizeof(byte));
			fread(b, sizeof(byte), 1, reader);
			if(b == 0x0)
			{
				int *wh_val = (int*)malloc(sizeof(int) * 2);
				fread(wh_val, sizeof(int), 2, reader);
				width = *wh_val;
				height = *(wh_val + 1);
				pixels = (Color**)malloc(sizeof(Color*) * width);
				for (int i = 0; i < width; ++i)
				{
					*(pixels + i) = (Color*)malloc(sizeof(Color) * height);
					for (int j = 0; j < height; ++j)
					{
						byte *rgb = (byte*)malloc(sizeof(byte) * 3);
						fread(rgb, sizeof(byte), 3, reader);
						Color c = Color(0);
						c.red = *(rgb) / 255.0;
						c.green = *(rgb + 1) / 255.0;
						c.blue = *(rgb + 2) / 255.0;
						*(*(pixels + i) + j) = c;
					}
				}
			}
		}
	}

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

    psina-from-ua, 28 Августа 2010

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