- 1
<script src="/js/js.js" type="text/javascript"></script>
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+124
<script src="/js/js.js" type="text/javascript"></script>
Я так и не понял. Что же интересно может делать файл js.js в папке js? Ума не могу приложить :\
−121
КодТек = Каст(ID);
Возвр = "{";
ТекПользоваетель Контрагенты.НайтиПоКоду(КодТек);
Если ТекПользователь = Контрагенты.ПустаяСсылка тогда
возврат 1;//Пользователь не найден
конецЕсли;
ТекЛев = Контрагенты.НайтиПоКоду(ТекПользователь.ЛеваяНога);
Если не ТекЛев = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_left"":{"+
"""id"":"""+ТекЛев.ID+""","+
"""last_name"":"""+ТекЛев.Фамилия+""","+
"""first_name"":"""+ТекЛев.Имя+""","+
"""middle_name"":"""+ТекЛев.Отчество+"""},";
ТекЛевЛев = Контрагенты.НайтиПоКоду(ТекЛев.ЛеваяНога);
Если не ТекЛевЛев = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_left_left"":{"+
"""id"":"""+ТекЛевЛев.ID+""","+
"""last_name"":"""+ТекЛевЛев.Фамилия+""","+
"""first_name"":"""+ТекЛевЛев.Имя+""","+
"""middle_name"":"""+ТекЛевЛев.Отчество+"""},";
конецЕсли;
ТекЛевПрв = Контрагенты.НайтиПоКоду(ТекЛев.ПраваяНога);
Если не ТекЛевПрв = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_left_right"":{"+
"""id"":"""+ТекЛевПрв.ID+""","+
"""last_name"":"""+ТекЛевПрв.Фамилия+""","+
"""first_name"":"""+ТекЛевПрв.Имя+""","+
"""middle_name"":"""+ТекЛевПрв.Отчество+"""},";
конецЕсли;
конецЕсли;
ТекПрв = Контрагенты.НайтиПоКоду(ТекПользователь.ПраваяНога);
Если не ТекПрв = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_right"":{"+
"""id"":"""+ТекПрв.ID+""","+
"""last_name"":"""+ТекПрв.Фамилия+""","+
"""first_name"":"""+ТекПрв.Имя+""","+
"""middle_name"":"""+ТекПрв.Отчество+"""},";
ТекПрвЛев = Контрагенты.НайтиПоКоду(ТекПрв.ЛеваяНога);
Если не ТекПрвЛев = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_right_left"":{"+
"""id"":"""+ТекПрвЛев.ID+""","+
"""last_name"":"""+ТекПрвЛев.Фамилия+""","+
"""first_name"":"""+ТекПрвЛев.Имя+""","+
"""middle_name"":"""+ТекПрвЛев.Отчество+"""},";
конецЕсли;
ТекПрвПрв = Контрагенты.НайтиПоКоду(ТекПрв.ПраваяНога);
Если не ТекПрвПрв = Контрагенты.ПустаяСсылка тогда
Возвр=Возвр+"""cur_right_right"":{"+
"""id"":"""+ТекПрвПрв.ID+""","+
"""last_name"":"""+ТекПрвПрв.Фамилия+""","+
"""first_name"":"""+ТекПрвПрв.Имя+""","+
"""middle_name"":"""+ТекПрвПрв.Отчество+"""},";
конецЕсли;
конецЕсли;
ДлСтр = ДлинаСтроки(Возвр);
Если ДлСтр=1 тогда
возврат 2;//Ноги пусты
иначе
Возрв = Лев(Возвр, ДлСтр-1)+"}";
возврат Возвр;
конецЕсли;
1С - хорошая среда. В этой среде очень просто и весело писать говнокод, причем с вполне серьезной мордой.
+51
#if defined(alignas) /* check C++ keywords */ \
|| defined(alignof) \
|| defined(asm) \
|| defined(auto) \
|| defined(bool) \
<...snip...>
|| defined(virtual) \
|| defined(void) \
|| defined(volatile) \
|| defined(wchar_t) \
|| defined(while)
#error keyword defined before including C++ standard header
#endif /* defined... */
Из заголовочных файлов VS 2012.
http://www.viva64.com/en/b/0146/
−113
user8@linux ~ $ python
Python 2.7.5 (default, Feb 10 2014, 02:34:23)
[GCC 4.7.3] on linux2
Type "help", "copyright", "credits" or "license" for more information.
>>> import math
>>> 1-3*(math.exp(1)-2)/math.exp(1)
0.207276647028654
>>> 1-4*(1-3*(math.exp(1)-2)/math.exp(1))
0.17089341188538398
>>> 1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1)))
0.14553294057308008
>>> 1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1))))
0.1268023565615195
>>> 1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1)))))
0.11238350406936348
>>> 1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1))))))
0.10093196744509214
>>> 1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1)))))))
0.09161229299417073
>>> 1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1))))))))
0.0838770700582927
>>> 1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1)))))))))
0.07735222935878028
>>> 1-12*(1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1))))))))))
0.07177324769463667
>>> 1-13*(1-12*(1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1)))))))))))
0.06694777996972334
>>> 1-14*(1-13*(1-12*(1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1))))))))))))
0.06273108042387321
>>> 1-15*(1-14*(1-13*(1-12*(1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1)))))))))))))
0.059033793641901866
>>> 1-16*(1-15*(1-14*(1-13*(1-12*(1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1))))))))))))))
0.05545930172957014
>>> 1-17*(1-16*(1-15*(1-14*(1-13*(1-12*(1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1)))))))))))))))
0.05719187059730757
>>> 1-18*(1-17*(1-16*(1-15*(1-14*(1-13*(1-12*(1-11*(1-10*(1-9*(1-8*(1-7*(1 - 6*(1 - 5*(1-4*(1-3*(math.exp(1)-2)/math.exp(1))))))))))))))))
-0.029453670751536265
Дано рекуррентное соотношение: x 1 = 1 e , x k = 1 − kx k−1 , k = 2, 3, 4, . . .
Напишите программу, которая вычисляет первые 15 чисел с точностью float и выводит их на экран
+156
function GetDataArray($qs)
{
$res = array();
$q = mysql_query($qs);
if ($q) {
while ($row = mysql_fetch_array($q)) {
array_push($res,$row);
}
}
return $res;
}
Других путей получить массив записей наверно для автора нет
+157
var t1 = "http://www.mno";
var t2 = ".ru/new_an";
$("#mnganketa").attr("href", t1+"go"+t2+"keta/name.html?range=877");
Замена ссылки=)
+132
@echo off
setlocal EnableDelayedExpansion
setlocal EnableExtensions
set /a _2=20
set /a _1=600
set /a _0=800
call :mandelbrot _3 0 _0 _1 _2
echo | set /p ^=!_3!
goto :EOF
:mandelbrot
set width_%~2=!%~3!
set height_%~2=!%~4!
set max_%~2=!%~5!
set /a row_%~2=0
:WHILE_6
if !row_%~2! LSS !height_%~2! (
set /a col=0
:WHILE_5
if !col! LSS !width_%~2! (
set /a c_re=^(^(^(!col! - ^(!width_%~2! / 2^)^) * 4^) / !width_%~2!^)
set /a c_im=^(^(^(!row_%~2! - ^(!height_%~2! / 2^)^) * 4^) / !width_%~2!^)
set /a x=0
set /a y=0
set /a iteration=0
set /a _9_%~2=0
if !iteration! LSS !max_%~2! (
set /a _8_%~2=1
) else (
set /a _8_%~2=0
)
set /a _18_%~2=^(1 + %~2^)
call :or _19_%~2 !_18_%~2! _8_%~2 _9_%~2
set _10_%~2=!_19_%~2!
set /a _4_%~2=2
set _3_%~2=!y!
set /a _20_%~2=^(1 + %~2^)
call :pow _21_%~2 !_20_%~2! _3_%~2 _4_%~2
set _5_%~2=!_21_%~2!
set /a _1_%~2=2
set _0_%~2=!x!
set /a _22_%~2=^(1 + %~2^)
call :pow _23_%~2 !_22_%~2! _0_%~2 _1_%~2
set _2_%~2=!_23_%~2!
set /a _24_%~2=^(1 + %~2^)
call :plus _25_%~2 !_24_%~2! _2_%~2 _5_%~2
set _6_%~2=!_25_%~2!
if !_6_%~2! LEQ 4 (
set /a _7_%~2=1
) else (
set /a _7_%~2=0
)
set /a _26_%~2=^(1 + %~2^)
call :and _27_%~2 !_26_%~2! _7_%~2 _10_%~2
set _11_%~2=!_27_%~2!
:WHILE_4
if !_11_%~2! EQU 1 (
set /a x_new=^(^(^(!x! * !x!^) - ^(!y! * !y!^)^) + !c_re!^)
set /a y=^(^(^(2 * !x!^) * !y!^) + !c_im!^)
set x=!x_new!
set /a iteration=^(!iteration! + 1^)
goto WHILE_4
)
if !iteration! LSS !max_%~2! (
set _14_%~2=!white!
set _13_%~2=!row_%~2!
set _12_%~2=!col!
set /a _30_%~2=^(1 + %~2^)
call :putpixel _31_%~2 !_30_%~2! _12_%~2 _13_%~2 _14_%~2
echo | set /p ^=!_31_%~2!
) else (
set _17_%~2=!black!
set _16_%~2=!row_%~2!
set _15_%~2=!col!
set /a _28_%~2=^(1 + %~2^)
call :putpixel _29_%~2 !_28_%~2! _15_%~2 _16_%~2 _17_%~2
echo | set /p ^=!_29_%~2!
)
set /a col=^(!col! + 1^)
goto WHILE_5
)
set /a row_%~2=^(!row_%~2! + 1^)
goto WHILE_6
)
goto :EOF
:and
set a_%~2=!%~3!
set b_%~2=!%~4!
rem emulation of &&
if !a_%~2! EQU 1 (
if !b_%~2! EQU 1 (
set %~1=1
goto :EOF
)
)
set %~1=0
goto :EOF
Мандельброт (без записи в картинку) на Batch
+156
$dateStart = "2015-01-01";
$dateEnd = date("Y-m-d", strtotime(date("Y-m-01", strtotime(date("Y-m-d", strtotime("+1 month", strtotime($dateStart))))) . " -1 day"));
Вычисляем последний день месяца
+166
$this->log->log($log);
−120
Функция Счет(УсловныйКодСчета, СоответствиеСчетов = Неопределено) Экспорт
ПС = ПланыСчетов.Хозрасчетный;
Результат = ПС.ПустаяСсылка();
Если УсловныйКодСчета = "01" Тогда
Результат = ПС.ОсновныеСредства;
ИНачеЕсли УсловныйКодСчета = "01.01" Тогда
Результат = ПС.ОСвОрганизации;
ИначеЕсли УсловныйКодСчета = "01.08" Тогда
Результат = ПС.ОСБезГосРегистрации;
ИначеЕсли УсловныйКодСчета = "01.09" Тогда
Результат = ПС.ВыбытиеОС;
ИначеЕсли УсловныйКодСчета = "02" Тогда
Результат = ПС.АмортизацияОсновныхСредств;
//Далее идет подобный треш более чем на 500 строк
ИначеЕсли УсловныйКодСчета = "008" Тогда
Результат = ПС.ОбеспеченияОбязательствПолученные;
ИначеЕсли УсловныйКодСчета = "009" Тогда
Результат = ПС.ОбеспеченияОбязательствВыданные;
ИначеЕсли УсловныйКодСчета = "011" Тогда
Результат = ПС.ОсновныеСредстваСданныеВАренду;
Иначе
ОписаниеОшибки = НСтр("ru='Не определен счет с условным кодом %1 в соответствии счетов'");
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ОписаниеОшибки, УсловныйКодСчета);
ВызватьИсключение ОписаниеОшибки;
КонецЕсли;
Возврат Результат;
КонецФункции
//СоответствиеСчетов так нигде и не используется :(
Типовая Бухгалтерия КОРП 3.0, модуль ЗаполнениеБухгалтерскойОтчетностиИтоги