1. Список говнокодов пользователя informatikmarazmatik

    Всего: 4

  2. 1C / Говнокод #23081

    +2

    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
    //Модуль основной формы внешней обработки
    
    &НаКлиенте
    Процедура ПродатьСлона(Оферта)
    	
    	Перем Акцепт;
    	
    	Если ПустаяСтрока(Оферта) Тогда
    		
    		Оферта = "Купи слона!";
    		
    	Иначе
    		
    		Оферта = "Все говорят """+Оферта+""" а ты купи слона!";
    		
    	КонецЕсли;	
    		
    	ВвестиСтроку(Акцепт,Оферта,0, Истина); 	
    		
        ПродатьСлона(Акцепт);
    	
    КонецПроцедуры	
    
    &НаКлиенте
    Процедура ПриОткрытии(Отказ)
    	
    	ПродатьСлона("");
    	
    КонецПроцедуры

    Продаём слона!

    informatikmarazmatik, 30 Мая 2017

    Комментарии (11)
  3. 1C / Говнокод #10297

    −102

    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
    Процедура СортировкаСписка(Список) 
    	
    	Перем лСредний;  
    	
    	лЛевый= СоздатьОбъект("СписокЗначений");
    	лПравый = СоздатьОбъект("СписокЗначений");
    	
    	Если Список.РазмерСписка()>1 Тогда  
    		
    		лРазмерСписка = Список.РазмерСписка();
    		лПозицияСреднего = Цел(лРазмерСписка/2);
    		лСреднее = Список.ПолучитьЗначение(лПозицияСреднего);
    		
    		Для й = 1 По лРазмерСписка Цикл
    			
    			Если й<>лПозицияСреднего Тогда
    				
    				лПроверяемоеЗначение =  Список.ПолучитьЗначение(й);
    				
    				Если лПроверяемоеЗначение<лСреднее Тогда
    					
    					лЛевый.ДобавитьЗначение(лПроверяемоеЗначение);
    					
    				ИначеЕсли лПроверяемоеЗначение>лСреднее Тогда
    					
    					лПравый.ДобавитьЗначение(лПроверяемоеЗначение);
    					
    				КонецЕсли;
    				
    			КонецЕсли;
    			
    		КонецЦикла;
    		
    		СортировкаСписка(лЛевый);
    		СортировкаСписка(лПравый);
    		
    		Список.УдалитьВсе();
    		
    		Для й = 1 По лЛевый.РазмерСписка() Цикл
    			Список.ДобавитьЗначение(лЛевый.ПолучитьЗначение(й));
    		КонецЦикла; 
    		
    		Список.ДобавитьЗначение(лСреднее); 
    		
    		Для й = 1 По лПравый.РазмерСписка() Цикл
    			Список.ДобавитьЗначение(лПравый.ПолучитьЗначение(й));
    		КонецЦикла;
    		
    	КонецЕсли;
    	
    	
    КонецПроцедуры
    
    Процедура Выполнить()
    	
    	ОтсортированныйСписок = СоздатьОбъект("СписокЗначений");
    	
    	СписокЗначений = СоздатьОбъект("СписокЗначений");   
    	
    	СписокЗначений.ДобавитьЗначение(2);
    	СписокЗначений.ДобавитьЗначение(7);
    	СписокЗначений.ДобавитьЗначение(15);
    	СписокЗначений.ДобавитьЗначение(16);
    	СписокЗначений.ДобавитьЗначение(20);
    	СписокЗначений.ДобавитьЗначение(21);
    	СписокЗначений.ДобавитьЗначение(3);
    	СписокЗначений.ДобавитьЗначение(5);
    	СписокЗначений.ДобавитьЗначение(4);
    	СписокЗначений.ДобавитьЗначение(14);
    	СписокЗначений.ДобавитьЗначение(12);
    	СписокЗначений.ДобавитьЗначение(13);
    	СписокЗначений.ДобавитьЗначение(11);
    	СписокЗначений.ДобавитьЗначение(19);
    	СписокЗначений.ДобавитьЗначение(1);
    	СписокЗначений.ДобавитьЗначение(8);
    	СписокЗначений.ДобавитьЗначение(6);
    	СписокЗначений.ДобавитьЗначение(17);
    	СписокЗначений.ДобавитьЗначение(9);
    	СписокЗначений.ДобавитьЗначение(10);
    	СписокЗначений.ДобавитьЗначение(18);
    	
    	СортировкаСписка(СписокЗначений);
    	
    	ВыбранноеЗначение = 0;
    	СписокЗначений.ВыбратьЗначение(ВыбранноеЗначение);
    	
    КонецПроцедуры

    informatikmarazmatik, 16 Мая 2012

    Комментарии (5)
  4. 1C / Говнокод #10295

    −119

    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
    Функция ЧекМайл(Майл) 
        
    	Перем Чек;
    	
    	Если Найти(Майл,"@mail.ru")<>0 Тогда
    		
    		Чек = 0; 
    		
    	Иначе	
    		
    		Чек = 1;
    		
    	КонецЕсли;
    	
    	Возврат Чек;
    	
    КонецФункции
    
    ...
    	  Если ЧекМайл("[email protected]") = 0 Тогда
    	  	 Предупреждение("Ой! Что-то пошло не так!");
    	  	 Предупреждение("Не беспокойтесь, это наша ошибка. Мы уже знаем о ней и примем меры к ее исправлению!");
    	  	 СтатусВозврата(0);
    	  	 Возврат;
    	  КонецЕсли;

    могли и предупредить ...

    informatikmarazmatik, 16 Мая 2012

    Комментарии (10)
  5. 1C / Говнокод #10292

    −115

    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
    Тз = СоздатьОбъект("ТаблицаЗначений");
    	Тз.НоваяКолонка("Число");
    	Для й=1 По 100 Цикл
    		Тз.НоваяСтрока();
    		Тз.Число = й;
    	КонецЦикла;
    	КоличествоСтрокТз = Тз.КоличествоСтрок();
    	Для й=-КоличествоСтрокТз По -1 Цикл
    		ЗначениеИзТз = Тз.ПолучитьЗначение(-й,"Число");
    		ПроверяемоеЗначение = ЗначениеИзТз/2-Цел(ЗначениеИзТз/2);
    		Если ПроверяемоеЗначение <> 0 Тогда
    			Тз.УдалитьСтроку(-й);
    		КонецЕсли;
    	КонецЦикла;
    	Тз.ВыбратьСтроку();

    Четные числа до 100

    informatikmarazmatik, 16 Мая 2012

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