Сейчас разбирал чужую обработку и нашёл такое условие:

Если НЕ НеФиксироватьВРегистре = Истина Тогда

Так и не смог понять, зачем...

Поделитесь перлами, которые встречали. Хоть настроение поднимется немного.

(0) А если НеФиксироватьВРегистре  имеет не булевый тип?

(0) Ты сам то хоть умеешь кодить?

может у человека НеФиксироватьВРегистре  принимает значения Булево и например перечисление или еще какой-нибудь тип был ранее ты откуда знаешь или у него на будущее задел был.

(22) че тут разбираться? раз уж
Если НЕ НеФиксироватьВРегистре = Истина Тогда
не пытается привести переменную к типу булево, значит работает как
Если НЕ (НеФиксироватьВРегистре = Истина) Тогда

(27) Зачетно отжОг

(27) :-D

просто клюшечник писал. вот и все.

Я бы в случаях когда переменная может быть неопределенной явно бы и проверял.
Если НеФиксироватьВРегистре = неопределено и НЕ НеФиксироватьВРегистре Тогда

развели тут дебаты о тайном смысле. может он и есть, но так не надо все равно делать. не надо элементарные вещи прятать в неоднозначные конструкции.

Кстати, еще в некоторых языках не допускаются конструкции типа


Если Истина Тогда


т.е. без явного оператора сравнения. А потому явное сравнение с Истина однозначно повышает читабельность кода и формирует у программиста унифицированные приемы написания кода на разных языках программирования.

(37) :) Ты в курсе, что если НеФиксироватьВРегистре будет не равно Неопределено (т.е. имеет тип Булево, например), то вторую часть выражения 1С даже анализировать не будет? Потому как условие И однозначно даст Ложь?

короче ТС хотел поглумиться, а вышло что самого зачмырили :)))

(39) > Ты в курсе, что если НеФиксироватьВРегистре будет не равно Неопределено (т.е. имеет тип Булево, например), то вторую часть выражения 1С даже анализировать не будет? Потому как условие И однозначно даст Ложь?

Естественно в курсе, я же не переписывал фрагмент на аналогичный, а пример привел...

какие нафик скобки? оператор НЕ имеет наивысший приоритет во всех языках, чего тут читать? вон в шахматной ветке - вот там трудночитабельный код, а это фигня, камрады...

(41) Ну и зачем тогда вторая часть? В ней нет никакого смысла. Ведь если НеФиксироватьВРегистре = неопределено, то вторая часть выдаст ошибку, ибо тип не Булево. И чем этот пример лучше (даже если = исправить на <>), чем в (0)? Ты использовал 1 явное сравнение и 1 неявное, тогда как в (0) - всего лишь 1 явное.

(43) В случаях когда переменная может быть неопределенной делаю явное сравнение и не полагаюсь не неявное преобразование.
Далее в зависимости от ситуации, смотря в каком случае нужно попасть в тело условия.

Если Переменная <> Неопределено и Переменная = Истина Тогда
Если Переменная = Неопределено или Переменная = Ложь Тогда
Если Переменная = Неопределено или Переменная = Истина Тогда

Выбирай на вкус.

(19) это реквизит обработки с типом Булево

НеФиксироватьВРегистре = Неопределено;
Если НЕ НеФиксироватьВРегистре = Истина Тогда



автора на кол, как быдлокодера

(42) Ну, например, в разных языках приоритеты операций сравнения и логических операций разные. Например, в Паскале логические операции имеют более высокий приоритет, чем операции сравнения, а в 1С - менее высокий. Скобки же позволяют однозначно прочитать выражение не зная таких подробностей о языке.

(44) Тогда уж надо


Если ТипЗнч(Переменная) = Тип("Булево") И Переменная = Истина Тогда


чтобы совсем по фен-шую.

(0) Вот  за что я больше всего не люблю программистов, это за непомерное желане всегда охаять то что сделали другие.
Мало ли как он это делал, сначала написал потом в процессе отладки вносил исправления и т.д. к тому же ничего особо криминального в этом коде не вижу, вот что реально доставляет это когда пишут запрос не представляя как они работают, вот такую хню точно запаришься отлаживать и искать там ошибки.

все перлы там http://govnokod.ru/1c
только чото сайт щас не доступен у меня

(0) 99 % , что писал переученный семерочник, начинающий в восьмерке "шарашить"  :)

(49) Наверное прикрыли за розжиг и оскорбление чувств быдлокодеров :)))

(47) да, это И ИЛИ и сравнение, согласен. но уж никак не НЕ! еще же есть и Complete boolean eval и вычисление справа налево.

(47) Нет универсального средства, то так, то так, то эдак...

(47) Если ТипЗнч(Переменная) = Тип("Булево") И Переменная = Истина Тогда - не рабочая конструкция. Если переменная не булево выдаст ошибку.

(50) да, видимо. я с семёркой знаком плохо, не сообразил сразу.

(52) В 1С операция сравнения (=) имеет более высокий приоритет, чем НЕ. Собственно, поэтому код из (0) и работает.

(54) Не выдаст. То, что после И, вообще не будет вычисляться, ибо итак уже известно, что будет Ложь.

кстати за зачем народ в запросах пишет

ВЫБРАТЬ

  Т.ССЫЛКА

ИЗ Т
ГДЕ  Т.Проведен = ИСТИНА И Т.ПометкаУдаления = Ложь


Зачем?
почем не прогд

ГДЕ Т.Проведен И НЕ Т.ПометкаУдаления

?

(52) выполни


   // -------------------------------------------------------
   а = Неопределено;
   
   Если не а = Истина Тогда
       Сообщить ("Без скобок 1");
   Иначе
       Сообщить ("Без скобок 2");
   КонецЕсли;
   
   
   // -------------------------------------------------------
   а = Неопределено;
   
   Если не (а = Истина) Тогда
       Сообщить ("Скобки 1");
   Иначе
       Сообщить ("Скобки 2");
   КонецЕсли;
   
   
   // -------------------------------------------------------
   а = Неопределено;
   
   Попытка
       Если (не а) = Истина Тогда
           Сообщить ("Скобки НЕ 1");
       Иначе
           Сообщить ("Скобки НЕ 2");
       КонецЕсли;
   Исключение
       Сообщить("Ошибка");
   КонецПопытки;
   





результат

Без скобок 1
Скобки 1
Ошибка


--------------------------------------
в 1с оператор НЕ имеет более низкий приоритет чем операторы сравнения!!!

(56) Будет - ты попробуй.

(59) Пробовал - работает. И с Неопределено, и с числом, и с Булево.

(0) Повторю (45), НеФиксироватьВРегистре - реквизит обработки типа Булево. Сразу не написал, моя оплошность.

+(61) но ветку почитать интересно :)

(54) Вполне рабочая конструкция.

(0) Надо было так человеку написать, вот и написал. Не считай себя самым умным. Ты не самый умный.

(54) даже без проверки на тип значения оно не будет выдавать ошибку

(63) А ну да будет работать - но проверка но не от того что провекра на булево стоит просто само переменная = истина и без него работает.

(5)Но это вполне может дать прирост производительности.
Если документы создаются редко, о остаток нужно читать часто.
Чтение из справочника быстрее, чем расчет остатка из регистра.

Сборище графоманов с явно выраженными Grammar nazi склонностями.

#9899: Обфускация тирьямпампацией
20 сентября 2012, 08:15
рейтинг: 1171
Когда у программистов бывает хорошее настроение, они творят. И часто это настроение находит своё непосредственное выражение в самом родном и близком — в программном коде.

Вот что я обнаружил в листинге своего одногруппника:

procedure TFamPapam.BamBamClick(Sender: TObject);
var pam,pam_,tararam,tiryam_pam_pam:real;
tryam:integer;
begin
GetParam;tryam:=0;tararam:=0.0001;
repeat
inc(tryam);
pam:=papam*Param(pum,pum_)+pum;
pam_:=-1*(papam_*Param_(pum,pum_)-pum_);
tiryam_pam_pam:=sqrt(sqr(pam-pum)+sqr(pam_-pum_));
pum:=pam;pum_:=pam_;
until tiryam_pam_pam<tararam;
end;

И оно работает.

(66) Ну дык это был пример. Для данной ветки будет, соответственно,


Если ТипЗнч(НеФиксироватьВРегистре ) = Тип("Булево") И НЕ НеФиксироватьВРегистре = Истина Тогда


(69) Я так люблю мисту именно из-за этого, спасибо тебе, добрый человек, все утро пытаюсь проснуться  и сделать чего-либо))

почему такой запрос корректен

ВЫБРАТЬ
   1 КАК Поле1
ГДЕ
   (НЕОПРЕДЕЛЕНО ЕСТЬ NULL)=ЛОЖЬ

а такой нет


ВЫБРАТЬ
   1 КАК Поле1
ГДЕ
   (НЕОПРЕДЕЛЕНО=NULL)=ЛОЖЬ

сразу скажу для крикунов: сравнивать с NULL синтаксически можно, просто результат отрицательный всегда

(72) NULL - он один такой! Поэтому сравнение на равенство всегда дает отрицательный результат :)

(72) > просто результат отрицательный всегда

Так прописано в СП

я спрашиваю почему синтаксис не корректен во втором случае

(75) А похоже Null тут и ни при чем
Так тоже матерится:
ВЫБРАТЬ
  1 КАК Поле1
ГДЕ
  (1=2)=ложь

КЗК Альфа здорово подходит для защиты работающих текстов от критики, имхо.

(76) вот, а почему? почему операнд ЕСТЬ NULL допустим, а операнд = нет

(72)-(76)Извращенцы чертовы.

(76)

ЫБРАТЬ
  1 КАК Поле1
ГДЕ
  (Истина = истина) = истина

(76)
Похоже в скуле логические операции имеют не булевский тип :)

(80) А ведь тоже нифига не работает )

(81) скуль тут не причем, это проблемы парсера запроса 1С

(80)
:)
ЫБРАТЬ - срабатывает :)

(82)
Там не ВЫБРАТЬ, там ЫБРАТЬ

(75) А с чего ты взял, что в скобках операция сравнения, а не присваивания? ;)

(85) А никак не сработает )

(77) А как же поддержка и все такое, тогда тебе последователи еще большее спасибо скажут.

(17) я тоже так пишу как в (0) иногда

"...Если НеФиксироватьВРегистре = Ложь Тогда..."
а если НеФиксироватьВРегистре вдруг окажется = Неопределено или NULL или 0...

(86) кстати, а в запросах бывает присваивание?

Если запрос.Выполнить(ТекстЗапроса) = 0 Тогда
сообщить("Увы!");
КонецЕсли;

Код понятен. Но автору код с удовольствием бы дал по башке...

*Автору кода

Писать надо так:
ПеременнаяТипаБулевоХранящаяИстину = Истина;
Если НЕ НеФиксироватьВРегистре = ПеременнаяТипаБулевоХранящаяИстину Тогда ...

(90) Ну вот поэтому и говорит "Мужик, ты чо? В запросах присваивания не бывает!" :)

(90) бывает, но не в этих ))

(94) какое присваивание, там везде сравнение

(95) Не в этих, это не в 1С-овских?

(0) это весь понятный тебе код что ты нашел?

Кстати, скорее всего НеФиксироватьВРегистре это реквизит обработки и он жестко типизирован как булево, так что можно смело давать добро ТС на разбитие головы автору обработки.

сотко

(97) ага

Кстати, а почему так не фурычит:
ВЫБРАТЬ
   1 КАК Поле1
ГДЕ
   НЕ (NULL = НЕОПРЕДЕЛЕНО)

(96) Вот он тебе и говорит, что нефиг присваивать ;) 1С ведь думает, что ты присвоить хочешь. Ведь нужное сравнение ты можешь вполне реализовать по-другому.

(12) Если оно НЕОПРЕДЕЛЕНО, то оно вообще работать не будет... Так что автор как минимум был уверен что оно не неопределено... А в общем соглашусь с (4)... Иногда помогает...

(102) фурычит, не ври

(105) Ошибку не выдаёт, но и строк не возвращает

(106) попробуй )

ВЫБРАТЬ
   1 КАК Поле1
ГДЕ
   NULL = NULL

(106) все логично, отвали))

(107) Ну тут вроде как понятно, почему не выдает ничего. Сравнение с null возвращает ложь. Или всё-таки возвращает null?

(0) Абсолютно правильный читабельный код, позволяющий отделить ИСТИНА от всех других значений.


(106)
Конфигуратор 1С:Предприятие 8

Правила сравнения значений

Важно! Любая операция сравнения двух значений, в которой участвует хотя бы одно значение NULL, дает результат, аналогичный значению ЛОЖЬ.

(110) Ну дык получается же тогда ГДЕ НЕ ЛОЖЬ. Или не получается?

Если НЕ НеФиксироватьВРегистре = Истина Тогда
    <исполняемый код>
КонецЕсли;

равносильно

Если НеФиксироватьВРегистре <> Истина Тогда
    <исполняемый код>
КонецЕсли;

но никак не

Если Не НеФиксироватьВРегистре Тогда
    <исполняемый код>
КонецЕсли;

или

Если НеФиксироватьВРегистре = Ложь Тогда
    <исполняемый код>
КонецЕсли;

Последние 2 фрагмента кода работают НЕ так, как (0), поскольку НеФиксироватьВРегистре может быть равно не только "Истина" и "Ложь", но и ещё чему-то. Скажем, "Неопределено". Предпоследний код в таком случае выдаст синтаксическую ошибку.

(111) НЕ (NULL = НЕОПРЕДЕЛЕНО) --> NULL <> НЕОПРЕДЕЛЕНО ---> ложь

(113) Ужасть какая.

(111) Аналогичный, но не ЛОЖЬ.

Мнения разделились )

(116) А тут как с 4-м айФоном - сравнивать надо правильно ;)

Анекдот в тему (72):
- доктор, когда я делаю вот так - мне вот тут больно.
- не делайте так.

Творчество одного из крупнейших производителей пива в России:

Для Сч = 0 По (ТаблицаТоваров.Количество() - 1) Цикл
НовСтр1 = ТаблицаТоваров.Получить(Сч);

Для Сч = 0 По (Докум.Товары.Количество() - 1) Цикл

Количество = СтрЗаменить(Формат(Количество, "ЧРГ ='$' "), "$", "");
Количество = СтрЗаменить(Количество, ",", ".");

Тысячи их...
Явно недопереученный клюшечник делал.

(0) Из типовой:

i=1;
Для Инд=1 по 1000 Цикл
   i=i+1;
КонецЦикла

Мамой клянусь! До сих пор этот код живет!

(120) Это зачем ? Типа убогая пауза без учета производительности компа ?

это обфускация )

(0) "Если НЕ НеФиксироватьВРегистре = Истина "

     Если НЕ НеФиксироватьВРегистре = 1 . Так надежнее.

(0) Автор хотел показаться умным, а выяснилось что его род занятий из профайла соответствует действительности.

(120) вероятно переменная i нужна дальше по коду

(125) Со значением 1001 ? А нельзя было просто присвоить ?

(125) вероятно, i = 1001 не взлетело

(0) Ты забыл указать про Снеговика.
А для клюшек - нормуль    ;-)

Строгая типизация спасет отцов русской демократии. Учитесь не пихать в одну переменную разные типы. Будьте мужиками блиать!