- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
function rand:LongInt;
{$IFOPT J-} {$J+} {$DEFINE NoJ} {$ENDIF}
const next:LongInt=1;
{$IFDEF NoJ} {$J-} {$UNDEF NoJ} {$ENDIF}
begin
next:=next*1103515245+12345;
Result:=(next div 65536) mod 32768;
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+1
function rand:LongInt;
{$IFOPT J-} {$J+} {$DEFINE NoJ} {$ENDIF}
const next:LongInt=1;
{$IFDEF NoJ} {$J-} {$UNDEF NoJ} {$ENDIF}
begin
next:=next*1103515245+12345;
Result:=(next div 65536) mod 32768;
end;
Краткая инструкция как сделать static unsigned long int на Delphi.
0
int (*parray)[sizeof *parray] = malloc(sizeof *parray);
0
int похуй = 0;
string похуйПлюсПохуйСтр = "похуй+похуй = ";
Console.WriteLine(похуйПлюсПохуйСтр + (похуй + похуй));
Для ВП
0
http://motherfuckingwebsite.com
<!-- yes, I know...wanna fight about it? -->
<script>
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','//www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-45956659-1', 'motherfuckingwebsite.com');
ga('send', 'pageview');
</script>0
def drawPoints(self, qp):
pen = QPen()
if self.flag1:
color1 = QColor('red')
pen.setColor(color1)
if self.flag2:
color2 = QColor('green')
pen.setColor(color2)
if self.flag3:
color3 = QColor('yellow')
pen.setColor(color3)
if self.flag4:
color4 = QColor('blue')
pen.setColor(color4)
if self.flag5:
color5 = QColor('purple')
pen.setColor(color5)
if self.flag6:
color6 = QColor('brown')
pen.setColor(color6)
if self.n_flag:
pen.setWidth(5)
if self.n_flag2:
pen.setWidth(10)
if self.n_flag3:
pen.setWidth(15)
if self.n_flag4:
pen.setWidth(20)
qp.setPen(pen)
qp.drawPoint(QtCore.QPoint(self.point))
def onClicked(self):
self.flag1 = True
self.update()
def onClicked2(self):
self.flag2 = True
self.update()
def onClicked3(self):
self.flag3 = True
self.update()
def onClicked4(self):
self.flag4 = True
self.update()
def onClicked5(self):
self.flag5 = True
self.update()
def onClicked6(self):
self.flag6 = True
self.update()
def onClicked7(self):
self.n_flag = True
self.update()
def onClicked8(self):
self.n_flag2 = True
self.update()
def onClicked9(self):
self.n_flag3 = True
self.update()
def onClicked10(self):
self.n_flag4 = True
self.update()
Больше onClicked БОЛЬШЕ
0
assert(not std::isnan(std::lerp(a, b, INFINITY))); // lerp here can be -inf
а вы говорите этим никто не пользуется
https://en.cppreference.com/w/cpp/numeric/lerp
0
for (let i = 0; i < inputs.length; i++) {
inputs[i].addEventListener('input', function() {
for (let i = 0; i < inputs.length; i++) {
console.log(inputs[i].value);
}
});
}
отобразить в консоли значения инпутов (штмл)...
−1
Для ТекИндекс = 0 По Объект.Товары.Количество() -1 Цикл
Стр = Объект.Товары[ТекИндекс];
//Интересе, а чем не устроило?:
Для каждого Стр из Объект.Товары Цикл
−1
&НаСервере
Процедура ЗагрузитьПринятыхНаСервере()
Пользователь = ПользователиИнформационнойБазы.ТекущийПользователь().Имя;
Если Пользователь = "Иванов Иван Юрьевич" ИЛИ Пользователь = "Пупкин Иван Дмитриевич" Тогда
Если ЭтотОбъект.Программа.Пустая() Тогда
Сообщить("Выберите программу");
Возврат;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТекущиеКадровыеДанныеСотрудников.Сотрудник КАК Сотрудник
|ИЗ
| РегистрСведений.ТекущиеКадровыеДанныеСотрудников КАК ТекущиеКадровыеДанныеСотрудников
|ГДЕ
| ТекущиеКадровыеДанныеСотрудников.ДатаПриема <> &ДатаУвольнения
| И ТекущиеКадровыеДанныеСотрудников.ДатаПриема МЕЖДУ &Дата1 И &Дата2
| И ТекущиеКадровыеДанныеСотрудников.ДатаУвольнения = &ДатаУвольнения";
Запрос.УстановитьПараметр("Дата1", ЭтотОбъект.Дата1);
Запрос.УстановитьПараметр("Дата2", ЭтотОбъект.Дата2);
Запрос.УстановитьПараметр("ДатаУвольнения", Дата(1,1,1));
ТЗРезультатов = Запрос.Выполнить().Выгрузить();
Для Каждого ТекСтрока Из ТЗРезультатов Цикл
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ОбучениеПоОхранеТрудаОценкаПерсонала.Сотрудник КАК Сотрудник,
| ОбучениеПоОхранеТрудаОценкаПерсонала.Программа КАК Программа,
| ОбучениеПоОхранеТрудаОценкаПерсонала.Ответственный КАК Ответственный
|ИЗ
| РегистрСведений.ОбучениеПоОхранеТрудаОценкаПерсонала КАК ОбучениеПоОхранеТрудаОценкаПерсонала
|ГДЕ
| (ОбучениеПоОхранеТрудаОценкаПерсонала.Ответственный.Наименование = &Ответственный ИЛИ ОбучениеПоОхранеТрудаОценкаПерсонала.Ответственный.Наименование = &Ответственный1)
| И ОбучениеПоОхранеТрудаОценкаПерсонала.Программа = &Программа
| И ОбучениеПоОхранеТрудаОценкаПерсонала.Сотрудник = &Сотрудник";
Запрос.УстановитьПараметр("Ответственный", "Иванов Иван Юрьевич");
Запрос.УстановитьПараметр("Ответственный1", "Пупкин Иван Дмитриевич");
Запрос.УстановитьПараметр("Программа", ЭтотОбъект.Программа);
Запрос.УстановитьПараметр("Сотрудник", ТекСтрока.Сотрудник);
Работники = Запрос.Выполнить().Выгрузить();
Если Работники.Количество()>0 Тогда
Иначе
МенеджерЗаписи = РегистрыСведений.ОбучениеПоОхранеТрудаОценкаПерсонала.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Сотрудник = ТекСтрока.Сотрудник;
//МенеджерЗаписи.Программа = ЭтотОбъект.Программа;
МенеджерЗаписи.Ответственный = Справочники.Пользователи.НайтиПоНаименованию(Пользователь);
Попытка
МенеджерЗаписи.Записать(Ложь);
Сообщить("Добавлен сотрудник " + ТекСтрока.Сотрудник);
Исключение
Сообщить("Сотрудник " + ТекСтрока.Сотрудник + " был ранее добавлен");
КонецПопытки;
КонецЕсли;
КонецЦикла;
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| КадроваяИсторияСотрудников.Сотрудник КАК Сотрудник
|ИЗ
| РегистрСведений.КадроваяИсторияСотрудников КАК КадроваяИсторияСотрудников
|ГДЕ
| КадроваяИсторияСотрудников.ВидСобытия = &ВидСобытия
| И КадроваяИсторияСотрудников.Период МЕЖДУ &Дата1 И &Дата2
| И КадроваяИсторияСотрудников.ВидСобытия = ЗНАЧЕНИЕ(Перечисление.ВидыКадровыхСобытий.Прием)";
Запрос.УстановитьПараметр("Дата1", НачалоДня(ЭтотОбъект.Дата1));
Запрос.УстановитьПараметр("Дата2", КонецДня(ЭтотОбъект.Дата2));
Запрос.УстановитьПараметр("ВидСобытия",Перечисления.ВидыКадровыхСобытий.Прием);
ТЗРезультатов = Запрос.Выполнить().Выгрузить();
Для Каждого ТекСтрока Из ТЗРезультатов Цикл
МенеджерЗаписи = РегистрыСведений.ОбучениеПоОхранеТрудаОценкаПерсонала.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Сотрудник = ТекСтрока.Сотрудник;
МенеджерЗаписи.Программа = ЭтотОбъект.Программа;
МенеджерЗаписи.Ответственный = Справочники.Пользователи.НайтиПоНаименованию(Пользователь);
Попытка
МенеджерЗаписи.Записать(Ложь);
Сообщить("Добавлен сотрудник " + ТекСтрока.Сотрудник);
Исключение
Сообщить("Сотрудник " + ТекСтрока.Сотрудник + " был ранее добавлен");
КонецПопытки;
КонецЦикла;
Перешел из франча на фиксу на заводе, зашел в код, а там такая пизда творится, причем это только верх той хуйни которую я тут вижу.
Код по кнопке заполняет регистр сотрудниками у которых дата приема на работу между выбранными датами
0
let randomNum = Math.floor(Math.random() * 10) + 1;
let inputNum
do {
inputNum = prompt('Угадай циферку!')
if (inputNum < randomNum) {
alert('Недобор');
} else if (inputNum > randomNum) {
alert('Перебор');
} else if (typeof inputNum === "string") {
alert('ну не, циферку же!');
} else if (inputNum == null || inputNum == '') {
alert('Покасики!');
} else if (inputNum === randomNum) {
alert('Угадал!!!'); break;
}
} while (inputNum != randomNum);
Оно сначала совсем не работало. Потом вдруг заработало. Потом я ему дал полежать, настояться, и оно работать перестало опять О_о моя нипанимать