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

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

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

1. PHP (5711)
2. C++ (2742)
3. Куча (2393)
4. JavaScript (2034)
5. C# (1930)
6. Java (1503)
7. Си (1120)
8. Pascal (648)
9. Python (591)
10. 1C (540)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (200)
15. Perl (194)
16. Assembler (148)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Haskell (43)
21. Go (31)
22. Swift (27)
23. Kotlin (14)

1. C++ / Говнокод #17958

   +134

   1. 1

   static_cast<Vampire*>(&attacker)->suckHpFrom(attacked, damage * Vampire::hpSuckRatio);

   artembegood, 08 Апреля 2015

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

2. Java / Говнокод #17957

   +143

   1. 1

   for (val side: new boolean[] { false, true }) {

   someone, 08 Апреля 2015

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

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

   +101

   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

   var
     Excel: OleVariant;
     Rows, Cols: integer;
     WorkSheet: OleVariant;
     DebugList: TStringList;
     I, j, CSeek: integer;
     R, ArrV: OleVariant;
     ObjData: TDataContainer;
     D: integer;
   begin
    {$IFDEF DEBUG}
     DebugList := TStringList.Create;
    {$ENDIF}
     try
       Excel := CreateOleObject('Excel.Application');
       Excel.Visible := false;
       Excel.Workbooks.Open[DocPath, 0, True];
       WorkSheet := Excel.ActiveWorkbook.ActiveSheet;
       R := Excel.Intersect(WorkSheet.UsedRange,
         WorkSheet.UsedRange.Offset[14, 0]);
       ArrV := R.Value;
       Rows := VarArrayHighBound(ArrV, 1);
       Cols := VarArrayHighBound(ArrV, 2);
       {$IFDEF DEBUG}
       DebugList.Add(Format('Количество ячеек в таблице = %d', [(Rows) * Cols]));
       DebugList.Add(Format('Rows = %d, Cols = %d', [Rows, Cols]));
       {$ENDIF}
       CSeek := 0;
       D := 1;
       for I := 1 to Rows do
       begin
         if (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('Итого')) = 0) then
           Break;
         if (CompareStr(Trim(VarToStr(ArrV[I, 1])),
           Trim('отдел')) = 0) or
           (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.05')) = 0) or
           (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.06')) = 0) or
           (CompareStr(Trim(VarToStr(ArrV[I, 1])), Trim('10.09')) = 0) then
         begin
           CSeek := I + 2;
           Continue;
         end;
         if CSeek > I then
           Continue;
         for j := 1 to Cols do
         begin
           case j of
             1:
               begin
                 if VarToStr(ArrV[I, j]) <> '' then
                 begin
                   ObjData := TDataContainer.Create;
                   ObjData.Name := ArrV[I, j];
                 end;
               end;
             3:
               begin
                 if VarToStr(ArrV[I, j]) <> '' then
                   ObjData.InventoryNumber := GetInventoryNumber(ArrV[I, j]);
               end;
             10:
               begin
                 if (D mod 2 <> 0) then
                 begin
                   if VarToStr(ArrV[I, j]) <> '' then
                     ObjData.DataCount := ArrV[I, j];
                 end
                 else
                   ObjData.Cost := ArrV[I, j];
    
                 if (ObjData <> nil) and (ObjData.DataCount > 0) then
                 begin
                   FData.Add(ObjData);
                   DebugList.Add(ObjData.AsString);
                 end;
               end;
           end;
           Inc(D);
         end;
       end;
       {$IFDEF DEBUG}
       DebugList.Add('Objects created: ' + IntToStr(FData.Count));
       D:=1;
       for ObjData in FData.Items.Values do
          D := D + ObjData.DataCount;
       DebugList.Add('Total objects count: ' + IntToStr(D));
       DebugList.SaveToFile('C:\ExcelDebug.txt');
       {$ENDIF}
     finally
       {$IFDEF DEBUG}
       DebugList.Free;
       {$ENDIF}
       Excel.Quit;
     end;
   end;

   При разборе выхлопа из 1С в Excel - excel и формат выгрузки сделали всё, чтобы я люто наговнокодил-(

   Cynicrus, 08 Апреля 2015

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

4. PHP / Говнокод #17955

   +137

   1. 1
   2. 2

   $path = substr(array_pop(array_reverse(explode("?", $_SERVER["REQUEST_URI"]))), 1);
   $text = urldecode(array_pop(explode("/", trim(array_pop(array_reverse(explode("?", str_replace(".png", "", $path))))))));

   Имеется скрипт, генерирующий изображение, с адресом типа "/images/4601546083333.png?height=420&width=1510" .
   В скрипте необходимо получить название запрошенного файла без расширения.

   jbot, 08 Апреля 2015

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

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

   +125

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

   Господа.  Помогите решить хитрую задачку.  
   Есть у меня проект корне которого лежат файлик весь проект под контролем git кроме этого файлика. там конфигурация специфичная для тестового сервера.  
   Вот мне нужно сделать еще одну ветку, и как бы сделать так что бы этот файлик был подконтрольный гиту  в этой ветке. 
   т.е. когда я делаю checkout файлик  менялся.  А когда push файлик игнорировался бы.  
   Очень буду благодарен если кто подскажет как быть.

   Vasiliy, 07 Апреля 2015

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

6. Куча / Говнокод #17953

   +123

   1. 1

   http://git-man-page-generator.lokaltog.net/

   нынче стало популярно линки постить. я тоже попробую.
   
   Git SCM. The Missing Man Page.
   
   посвящается всем кто пытался читать официальные доки гита.

   Dummy00001, 07 Апреля 2015

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

7. PHP / Говнокод #17952

   +172

   1. 1
   2. 2

   $lastBuildDate=date(DATE_FORMAT_RFC822);
   $lastBuildDated = str_replace ( '+0400' , '+0300' , $lastBuildDate );

   Шах и мат серверным настройкам timezone

   talam0nal, 07 Апреля 2015

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

8. 1C / Говнокод #17951

   −159

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   Запрос = Новый Запрос();
   	Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
   	Запрос.Текст = 	"ВЫБРАТЬ
      	|	Проекты.Ссылка КАК Проект, Проекты.Менеджер КАК Менеджер, Проекты.СтатусПроекта, Проекты.ТипПроекта, Проекты.ВидПродукции,
      	|	Проекты.ДатаТретейПодписи, Проекты.ДатаНачалаСтадии, Проекты.РасчетнаяДатаОкончанияСтадии, Проекты.Приоритет
      	|ИЗ Справочник.Проекты КАК Проекты
      	|ГДЕ (Проекты.ДатаОтправкиТЗ >= &НачДата И Проекты.ДатаОтправкиТЗ <= &КонДата ИЛИ Проекты.ДатаОтправкиТЗ = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0))
      	|	И (&ВыбМенеджер = ЗНАЧЕНИЕ(Справочник.Сотрудники.ПустаяСсылка) ИЛИ Проекты.Менеджер = &ВыбМенеджер)
      	|	И (&ВыбСтатусПроекта = ЗНАЧЕНИЕ(Перечисление.Статусы.ПустаяСсылка) ИЛИ Проекты.СтатусПроекта = &ВыбСтатусПроекта)
      	|	И Проекты.ПометкаУдаления = &ЗначПометкиНаУдаление";			   
   	Запрос.УстановитьПараметр("НачДата",НачДата);		
   	Запрос.УстановитьПараметр("КонДата",КонДата);
   	Запрос.УстановитьПараметр("ВыбМенеджер",ВыбМенеджер);
   	Запрос.УстановитьПараметр("ВыбСтатусПроекта",ВыбСтатусПроекта);
   	Запрос.УстановитьПараметр("ЗначПометкиНаУдаление",ложь);
   	ТЗ = Новый ТаблицаЗначений;
   	ТЗ.Колонки.Добавить("Менеджер"); 
   	ТЗ.Колонки.Добавить("Проект");
   	ТЗ.Колонки.Добавить("ТипПроекта");
   	ТЗ.Колонки.Добавить("ВидПродукции");
   	ТЗ.Колонки.Добавить("ДатаТретейПодписи");
   	ТЗ.Колонки.Добавить("ДатаНачалаСтадии");
   	ТЗ.Колонки.Добавить("РасчетнаяДатаОкончанияСтадии");
   	ТЗ.Колонки.Добавить("ПлановаяДатаОтправкиТЗ");
   	ТЗ.Колонки.Добавить("Статус"); //Статус проекта
   	ТЗ.Колонки.Добавить("Приоритет"); //Статус проекта
   	Результат = Запрос.Выполнить();
   	ВыборкаДетальныеЗаписи = Результат.Выбрать();
   	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
   		Если (ВыборкаДетальныеЗаписи.СтатусПроекта = Перечисления.Статусы.Выполнено) Тогда 
   			Продолжить;
   		КонецЕсли;	
   		Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта) = Ложь Тогда 
   			Продолжить;
   		КонецЕсли;
   		Если СокрЛП(ВыборкаДетальныеЗаписи.ДатаОтправкиТЗ) = "01.01.0001 0:00:00" Тогда
   			если (ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45 >= НачДата) и (ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45<= КонДата) Тогда
   			Иначе
   				продолжить;
   			КонецЕсли;	
   		КонецЕсли; 
   		НоваяСтрока = ТЗ.Добавить();
   		НоваяСтрока.Проект = ВыборкаДетальныеЗаписи.Проект;
   		НоваяСтрока.Менеджер = ВыборкаДетальныеЗаписи.Менеджер;
   		НоваяСтрока.ВидПродукции = ВыборкаДетальныеЗаписи.ВидПродукции;
   		НоваяСтрока.ТипПроекта = ВыборкаДетальныеЗаписи.ТипПроекта;
   		НоваяСтрока.ДатаТретейПодписи = ВыборкаДетальныеЗаписи.ДатаТретейПодписи;
   		НоваяСтрока.РасчетнаяДатаОкончанияСтадии = ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияСтадии;
   		НоваяСтрока.ДатаНачалаСтадии = ВыборкаДетальныеЗаписи.ДатаНачалаСтадии;
   		НоваяСтрока.Статус = ВыборкаДетальныеЗаписи.СтатусПроекта;
   		НоваяСтрока.ПлановаяДатаОтправкиТЗ = ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45;//-45 дней
   		НоваяСтрока.Приоритет = ВыборкаДетальныеЗаписи.Приоритет;
   	КонецЦикла;
   	тз.Сортировать("Менеджер,ТипПроекта возр, Приоритет Убыв,Проект");
   	РФ = РеквизитФормыВЗначение("Отчет");
   	Макет = РФ.ПолучитьМакет("ПечатьПроектов");
   	ОбластьШапки	= Макет.ПолучитьОбласть("Шапка");
   	ОбластьСтроки	= Макет.ПолучитьОбласть("Строка");
   	ОбластьТипаПроекта	= Макет.ПолучитьОбласть("ТипПроекта");
   	ОблатстьОтложенныхПроектов = Макет.ПолучитьОбласть("Отложенные");
   	ОбластьМенеджеры	= Макет.ПолучитьОбласть("МЕНЕДЖЕР");
   	ТабДок 	= Новый ТабличныйДокумент;
   	ТабДок.Очистить();
   	ТабДок.Вывести(ОбластьШапки);
   	Если тз.Количество()>0  Тогда
   		ТекущийТипПроекта = 0; ТекущийМенеджер = 0; пн = 0;
   		Для Каждого ТекущаяСтрока Из тз Цикл
   			Если ТекущаяСтрока.Статус = Перечисления.Статусы.Отложено Тогда
   				продолжить;
   			КонецЕсли;
   			Если (ТекущийМенеджер = 0) или (ТекущийМенеджер <> ТекущаяСтрока.Менеджер) Тогда
   				ТекущийМенеджер = ТекущаяСтрока.Менеджер;
   				ОбластьМенеджеры.Параметры.тМенеджер = ТекущийМенеджер;
   				ТабДок.Вывести(ОбластьМенеджеры);
   			КонецЕсли;
   			Если (ТекущийТипПроекта = 0) или (ТекущийТипПроекта <> ТекущаяСтрока.ТипПроекта) Тогда
   				ТекущийТипПроекта = ТекущаяСтрока.ТипПроекта;
   				ОбластьТипаПроекта.Параметры.тТипПроекта = ТекущийТипПроекта;
   				ТабДок.Вывести(ОбластьТипаПроекта);
   			КонецЕсли;	
   			пн = пн + 1;
   			ОбластьСтроки.Параметры.ПН = пн;
   			ОбластьСтроки.Параметры.тПроектАртикул = СокрЛП(ТекущаяСтрока.ВидПродукции) + Символы.ПС + СокрЛП(ТекущаяСтрока.проект.Наименование);
   			ОбластьСтроки.Параметры.тПроектРасшифровка = ТекущаяСтрока.проект;
   			ОбластьСтроки.Параметры.тПлановаяДатаОтправкиТЗ = формат(ТекущаяСтрока.ПлановаяДатаОтправкиТЗ,"ДФ=dd.MM.yyyy");//-45 дней от расчетной даты окончания
   			ОбластьСтроки.Параметры.тДатаТретейПодписи = СокрЛП(Формат(ТекущаяСтрока.ДатаТретейПодписи,"ДФ=dd.MM.yyyy"));
   			ТабДок.Вывести(ОбластьСтроки);
   		КонецЦикла;
   		Попытка
   			ТабДок.Области.Строка.АвтоВысотаСтроки = Истина;
   			ТабДок.АвтоМасштаб = Истина;
   			ТабДок.ПолеСправа = 0;
   			ТабДок.ПолеСлева = 0;
   			ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(1,,2,);
   			ТабДок.ФиксацияСверху = 2;
   		Исключение
   		КонецПопытки;
   	КонецЕсли; 
   	ТД = ТабДок;
   	ТД.Напечатать();

   Серверная процедура в 8.2. Автор - "семёрочник-многостаночник". Переписываю и рыдаю...
   
   Ужимал как мог, чтобы вместилось.

   dsfix, 07 Апреля 2015

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

9. Куча / Говнокод #17950

   +145

   1. 1

   http://geektimes.ru/post/248580/

   Ну что, пидарашки. Олимпиадные программисты ожидаемо соснули. Все еще будете употреблять "а наши побеждают в олимпиадах" как аргумент?

   xyilka, 07 Апреля 2015

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

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

    +46

    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

    #include <Windows.h>
    #include <stdio.h> 
    #include <stdlib.h>
    #include <math.h>
    #include <iostream>
    #include <fstream>
    #include <iostream>
    #include <string>
    using namespace std;
    
    
    
    
    double f(double x, double y)
    {
    	return y*y-2*x;
    }
    
    double f2(double x)
    {
    	return  sqrt(2*x+1);
    }
    
    int main(void) {
    	std::ofstream out;
    	out.open("out.txt");
    
    	double xn = 0, yn = 1, a = 0, b = 1, h = 0.2, x, y, n;
    	int i;
    	n = (b - a) / h;
    	y = yn;
    	x = a;
    
    	printf("x[0]=%.4f  ", x);
    	printf("y[0]=%.4f\n\n", y);
    	double k1, k2, k3, k4, dy, y1;
    	
    	cout << " i   " << "x[i]     " << "y[i]     " << "y[x[i]]  " << "E" << endl;
    
    	for (i = 1; i <= n; ++i)
    
    	{
    		x = xn + i*h;
    		k1 = h*f(x, y);
    		k2 = h*f((x + (h / 2)), (y + (1 / 2 * k1)));
    		k3 = h*f((x + (h / 2)), (y + (1 / 2 * k2)));
    		k4 = h*f((x + h), (y + k3));
    		dy = (k1 + 2 * k2 + 2 * k3 + k4) / 6;
    		y = y + dy;
    		y1 = f2(x);
    
    
    		printf("%2d.  ", i);
    		printf("%.5f  ", x);
    		printf("%.5f  ", y);
    		printf("%.5f  ", y1);
    		printf("%.9f\n", abs(y-y1));	
    		
    		
    	
    	}
    
    	out << y1 << '\n'; 
    	out.close();
    	
    	
    	
    	return 0;
    }

    В out выводится только последнее значение y1.
    Сам цикл проходит (в данном случае) 5 раз
    Соответственно, 5 значений y1
    Как сделать, чтобы он показывал все пять значений?

    misha3977, 06 Апреля 2015

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

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

• 2113
• …
• 1526
• 1525
• 1524
• 1523
• 1522
• 1521
• 1520
• 1519
• 1518
• …
• 1