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

    Всего: 2

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

    −123

    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;
	КонецЕсли;
	ЧислоСтрокой = Строка(Число);
	Инд = 1;
	Пока Истина Цикл
	Символ = Сред(ЧислоСтрокой, Инд, 1);	
	Если Символ = "" Тогда
		Возврат 0;
	ИначеЕсли Символ = "," Тогда
		Если Сред(ЧислоСтрокой, Инд + 1, 1) = "" Тогда
			Возврат 0;
		КонецЕсли;
		
		Если Сред(ЧислоСтрокой, Инд + 2, 1) = "" Тогда
			Возврат Число(Сред(ЧислоСтрокой, Инд + 1, 1));
		КонецЕсли;
		
		Если Сред(ЧислоСтрокой, Инд + 3, 1) = "" Тогда
			Возврат Число(Сред(ЧислоСтрокой, Инд + 1, 1) + Сред(ЧислоСтрокой, Инд + 2, 1));
		Иначе
			Возврат Число(Сред(ЧислоСтрокой, Инд + 1, 1) + Сред(ЧислоСтрокой, Инд + 2, 1) + Сред(ЧислоСтрокой, Инд + 3, 1));
		КонецЕсли;
	КонецЕсли;
	Инд = Инд + 1;
	КонецЦикла;
КонецФункции

    Еще один "анекдот" от неизвестного автора. Предыдущий здесь: http://govnokod.ru/16639

    Jeyrico, 07 Ноября 2014

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

  3. 1C / Говнокод #16597

    −165

    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
    Функция ПолучитьЧистыйКод(Код) Экспорт
        //ЧистыйКод = "0";
	ЧистыйКод = "";
	Инд = 1;
	Пока Инд < 18 Цикл
		Символ = Сред(Код, Инд, 1);
		Если Символ = " " ИЛИ Символ = "" ИЛИ Символ = " " Тогда   // А вот это - самая фееричная строка 
			Инд = Инд + 1;
			Продолжить;
		Иначе 
			ЧистыйКод = ЧистыйКод + Символ;
		КонецЕсли;
		Инд = Инд + 1;
	КонецЦикла;
	Возврат ЧистыйКод;
КонецФункции

    Чел видимо только что с ассемблера соскочил.

    Jeyrico, 26 Августа 2014

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