1. Часто начинающие программисты, стараясь «заточить» свою программу под конкретного заказчика, перегибают палку и вот что у них получается:

 
Если ТЗСотр.Сотрудник.Подразделение.Получить(НаДату).Код="7" тогда
	Если ТЗСотр.Сотрудник.Должность.Получить(НаДату).Код<>"00055" тогда
		Если число(ТЗСотр.Сотрудник.Оклад.Получить(НаДату).Код)<13 тогда 		  
		  

 

2. Некоторые из программистов не знают что такое циклы (списки, таблицы значений), поэтому они вынуждены, чтобы ну хоть как-то закрыть работу у Заказчика, придумывать гениальные решения:

 
Всего=Точка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;

        

И там же:

Процедура  ВводНового()
Склад = Константа.ОснСклад;
	 
Спр=СоздатьОбъект("Справочник.Точки");		  
Спр.НайтиПоКоду("1");
Имя1=Спр.ТекущийЭлемент();
Спр.НайтиПоКоду("2");
Имя2=Спр.ТекущийЭлемент();
Спр.НайтиПоКоду("3");
Имя3=Спр.ТекущийЭлемент();
Спр.НайтиПоКоду("4");
Имя4=Спр.ТекущийЭлемент();
Спр.НайтиПоКоду("5");
Имя5=Спр.ТекущийЭлемент();
		  
…

Спр.НайтиПоКоду("29");		  
Имя29=Спр.ТекущийЭлемент();
Спр.НайтиПоКоду("30");
Имя30=Спр.ТекущийЭлемент();

        

 

3. Просто, "гениальные" названия:

Константа.Новый2;
Перечисление.Скотч;
Процедура Сформировать88888888();
Процедура Сформироватьчччччч();

        

 

4. Люди – полиглоты:

Пока ПолучитьСтроку() = 1 do
…
enddo;

        

 

5. Кто ищет тот найдет! Но видимо не в этот раз :)

Если -Зн>10000  тогда
	Спр.НайтиПоКоду(   -(Цел(Зн1/10000))   );
	ВВ=Спр.ТекущийЭлемент();
	//СС=Выб
	Сообщить(ВыбПлан.Субконто);
	СпрС.Вид(ВыбПлан.Субконто);
	СпрС.НайтиПоКоду (  (-зн1)-(10000*(      -(Цел(Зн1/10000))     )) ,0);
	СС=СпрС.ТекущийЭлемент();
иначе
	Спр.НайтиПоКоду(-Зн1,0);
	ВВ=Спр.ТекущийЭлемент();
	СС=0;
КонецЕсли;

        

 

6. А что эта гениальная программа делает?

Процедура  ОбработкаПоставщиков()
	ф3="99";  ф4="8";   ф1="01.0";
	ф2="9.1";
	Раз=Дата(ПолучитьДатуТА())-
		Дата(ф1+ф2+ф3+ф4);
	Если Раз<0 Тогда
		Раз=0;
	КонецЕсли;
	к=0;
	Пока к<(Раз*380) Цикл
		//Сообщить(К);
		к=к+1;
	КонецЦикла;
КонецПроцедуры