1. 1C / Говнокод #8200

    −155

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Девушкой, которую я любил
Оказался педофил
Он на 1С все показал
И научил
Теперь я здесь настраиваю все
Прямо как во сне

    Александр Сергеевич Пушкин-Блок

    alexoy, 14 Октября 2011

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

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

    −155

    1. 1
    1

    Минимальная программа на 1С

    alexoy, 14 Октября 2011

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

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

    −143

    1. 1
    2. 2
    1С.................
Когда копро уже не вставляет.

    ReallyBugMeNot, 13 Октября 2011

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

  4. 1C / Говнокод #8176

    −154

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Исходные коды на 1С!
На джаву перейти мы рады,
Но не стерплю такой утраты,
Я снова перейду на 1С

А мой товарищ одинокий
Нам закодирует EE

    Ну и кто сказал, что Маяковский умер?

    alexoy, 12 Октября 2011

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

  5. 1C / Говнокод #8171

    −134

    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
    Для Каждого ТекущаяСтрока Из ОтработанноеВремя Цикл
        ТекущаяСтрока.ИтогоЧасов=0;
		ТекущаяСтрока.ИтогоЧасов=ТекущаяСтрока.ПервыйЧасов1+ТекущаяСтрока.ПервыйЧасов2+ТекущаяСтрока.ПервыйЧасов3+
		ТекущаяСтрока.ПервыйЧасов4+ТекущаяСтрока.ПервыйЧасов5+ТекущаяСтрока.ПервыйЧасов6+ТекущаяСтрока.ПервыйЧасов7+
		ТекущаяСтрока.ПервыйЧасов8+ТекущаяСтрока.ПервыйЧасов9+ТекущаяСтрока.ПервыйЧасов10+ТекущаяСтрока.ПервыйЧасов11+
		ТекущаяСтрока.ПервыйЧасов12+ТекущаяСтрока.ПервыйЧасов13+ТекущаяСтрока.ПервыйЧасов14+ТекущаяСтрока.ПервыйЧасов15+
		ТекущаяСтрока.ПервыйЧасов16+ТекущаяСтрока.ПервыйЧасов17+ТекущаяСтрока.ПервыйЧасов18+ТекущаяСтрока.ПервыйЧасов19+
		ТекущаяСтрока.ПервыйЧасов20+ТекущаяСтрока.ПервыйЧасов21+ТекущаяСтрока.ПервыйЧасов22+ТекущаяСтрока.ПервыйЧасов23+
		ТекущаяСтрока.ПервыйЧасов24+ТекущаяСтрока.ПервыйЧасов25+ТекущаяСтрока.ПервыйЧасов26+ТекущаяСтрока.ПервыйЧасов27+
		ТекущаяСтрока.ПервыйЧасов28+ТекущаяСтрока.ПервыйЧасов29+ТекущаяСтрока.ПервыйЧасов30+ТекущаяСтрока.ПервыйЧасов31;	
		
		ТекущаяСтрока.ИтогоОклад=0;
		ТекущаяСтрока.ИтогоОклад= ОКр(ТекущаяСтрока.ИтогоЧасов/ТекущаяСтрока.НормаЧасов*ТекущаяСтрока.Оклад,2);
		
		ТекущаяСтрока.Выручка=0;
		
		Если ТекущаяСтрока.ПервыйЧасов1>0 тогда
			НайденнаяСтрока = РабочаяТаблица.Найти(1, "День");
			Если НайденнаяСтрока = Неопределено Тогда			
			Иначе
				ТекущаяСтрока.Выручка = ТекущаяСтрока.Выручка+НайденнаяСтрока.Продано;
			КонецЕсли;	
		КонецЕсли;	
		Если ТекущаяСтрока.ПервыйЧасов2>0 тогда
			НайденнаяСтрока = РабочаяТаблица.Найти(2, "День");
			Если НайденнаяСтрока = Неопределено Тогда			
			Иначе	
				ТекущаяСтрока.Выручка = ТекущаяСтрока.Выручка+НайденнаяСтрока.Продано;
			КонецЕсли;	
		КонецЕсли;	
		Если ТекущаяСтрока.ПервыйЧасов3>0 тогда
			НайденнаяСтрока = РабочаяТаблица.Найти(3, "День");
			Если НайденнаяСтрока = Неопределено Тогда			
			Иначе
				ТекущаяСтрока.Выручка = ТекущаяСтрока.Выручка+НайденнаяСтрока.Продано;
			КонецЕсли;	
		КонецЕсли;	
		Если ТекущаяСтрока.ПервыйЧасов4>0 тогда
			НайденнаяСтрока = РабочаяТаблица.Найти(4, "День");
			Если НайденнаяСтрока = Неопределено Тогда			
			Иначе
				ТекущаяСтрока.Выручка = ТекущаяСтрока.Выручка+НайденнаяСтрока.Продано;
			КонецЕсли;	
		КонецЕсли;
		Если ТекущаяСтрока.ПервыйЧасов5>0 тогда
			НайденнаяСтрока = РабочаяТаблица.Найти(5, "День");
			Если НайденнаяСтрока = Неопределено Тогда			
			Иначе
				ТекущаяСтрока.Выручка = ТекущаяСтрока.Выручка+НайденнаяСтрока.Продано;
			КонецЕсли;	
		КонецЕсли;	

************************************************************  и так далее :)

    Почти 300 строк говнокода превращаются в 10 :D

    Для Инд = 1 По 31 Цикл
    Если ТекущаяСтрока["ПервыйЧасов" + Инд] > 0 Тогда
    ТекущаяСтрока.ИтогоЧасов = ТекущаяСтрока.ИтогоЧасов + ТекущаяСтрока["ПервыйЧасов" + Инд];

    НайденнаяСтрока = РабочаяТаблица.Найти(Инд, "День");
    Если НайденнаяСтрока <> Неопределено Тогда
    ТекущаяСтрока.Выручка = ТекущаяСтрока.Выручка+НайденнаяСтрока.Пр одано;
    КонецЕсли;
    КонецЕсли;
    КонецЦикла;

    VikUp, 12 Октября 2011

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

  6. 1C / Говнокод #8149

    −154

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    Мое решение является эффективным и уникальным.
Решение задачи базируется на принципе двойственности.
В первом стеке будем хранить сами числа, а во втором - результат XOR над ними.
[] []
push a ->[a] [a]
push b -> [b a] [a^b a]
pop -> b^(a^b) = a [a] [a]
Однако после такого pop пропадает b.
Как с этим бороться я расскажу через 24 часа.

    Задача о двух стеках. Поэтапное решение для повышения слюноотделения.

    alexoy, 10 Октября 2011

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

  7. 1C / Говнокод #8136

    −154

    1. 1
    2. 2
    Задача о двух стеках. Как продвигается решение?
Через 2 часа будет рабочий вариант.

    alexoy, 09 Октября 2011

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

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

    −153

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Итак, у вас есть два стека с ограничением на размер - N. Стеки поддерживают операции push, pop, top.
pop пустого стека, как и push заполненного стека вызывает соответствующее исключение.
Необходимо из этих двух стеков смоделировать стек с таким же размером, но с дополнительным свойством -\
push заполненного стека вызывает затирание последнего элемента стека, push(41,[1,2,3]) -> [41,1,2] ,\
где N=3.
Время пошло. Язык программирования любой.

    Да, это не говнокод, но 90% кандидатов не могут ее решить. (Наверное, потому, что язык собеседования - 1С)

    alexoy, 08 Октября 2011

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

  9. 1C / Говнокод #8111

    −155

    1. 1
    2. 2
    3. 3
    4. 4
    Я подхожу к терминалу и включаю 1С.
Сегодня пояснять ничего не надо.
Не звенит "Поясните мысль"
В желтом пламени гори, ненавижу, 1С!

    Накипело

    alexoy, 07 Октября 2011

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

  10. 1C / Говнокод #8108

    −136

    1. 1
    лев(документ.Дата,10)  //получает строку даты в виде "15.09.2011" :)))))))

    Сети предоставили свою печатную форму.

    Hatson, 07 Октября 2011

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