Доброе утро, господа помогите реализовать функцию логического "И" на 1С
Заранее признателен

если (условие1) и (условие2) тогда

(а=б) И (ц=д)

опередили

(0)для дизьюнкции будет отдельный топик?

(1) и (2) речь о двоичной логике, например реализация XOR
Функция XOR(Val ПарА, Val ПарБ)  Экспорт
   Рез = 0;
   К = 1;
   Для BitNumber = 1 По  8 Цикл
       БитА = ПарА % 2;
       БитБ = ПарБ % 2;
       ПарА = Цел(ПарА / 2);
       ПарБ = Цел(ПарБ / 2);
       БитВ = (БитА + БитБ) % 2;
       Рез = Рез + БитВ * К;
       К = К * 2;
   КонецЦикла;  
   Возврат Рез;
КонецФункции

нужен аналог для AND

Функция ФункцияИ(Условие1,Условие2)
Рез1 = 0;
Рез2 = 0;  
Если Условие1 Истина Тогда
Рез1 = 1;
КонецЕсли;
Если Условие2 Истина Тогда
Рез2 = 1;
КонецЕсли;
Возврат Рез1*Рез2;
КонецФункции

(6) А параметрами функции - что является?

(7) Может быть массив битов?

в (5) БитВ = БитА * БитБ;

а "или": БитВ = ?(БитА + БитБ = 0, 0, 1);

(8) 65535 AND 255 как отработать?

:)

Шелл = создатьобъект("MSScriptControl.ScriptControl");
Шелл.Language = "VBScript";
стрКод =
"function intAND(x, y)
|  intAND = x and y
|end function";
Шелл.AddCode(стрКод);
Шелл.Run("intXOR", число1, число2);

(10) В (5)
БитВ = БитА*БитБ;

(9) модифицируй (5) если не затруднит, плз

Функция XOR(Val ПарА, Val ПарБ)  Экспорт
   Рез = 0;
   К = 1;
   Для BitNumber = 1 По  8 Цикл - здесь 8 - максимальное количество бит
       БитА = ПарА % 2;
       БитБ = ПарБ % 2;
       ПарА = Цел(ПарА / 2);
       ПарБ = Цел(ПарБ / 2);
       БитВ = (БитА + БитБ) % 2; - это XOR
       БитВ = БитА * БитБ; - это AND
       БитВ = ?(БитА + БитБ = 0, 0, 1); - это OR
       Рез = Рез + БитВ * К;
       К = К * 2;
   КонецЦикла;  
   Возврат Рез;
КонецФункции

Пасиб

(14), если - здесь 8 - максимальное количество бит, то
НачСумма=L_AND(НачСумма, 65535) - не будет работать?

(16) не будет

Пока (парА>0) и (ПарБ>0) цикл
.........

будет

Вообще задача шире, нужно считать CRC файла, делаю:
Функция Сдвиг(а,н,куда)
   Перем Ат;
   Ат=Pow(2,Цел(Log(а)/Log(2)))+1;
   Если Ат<65535 Тогда
       Ат=65535;
   КонецЕсли;
   Если куда=1 Тогда
       Возврат а/pow(2,н);
   Иначе
       Возврат а*pow(2,н)%Ат;
   КонецЕсли;
КонецФункции

Функция Расчет(Знач НачСумма,Сп,Массив)    
   Для к=0 По Сп.Количество()-1 Цикл
       а=L_AND(Сдвиг(НачСумма,8,1),255);
       б = XOR(Сдвиг(НачСумма,8,0) , Сдвиг(НачСумма,8,0));
       с = XOR(б,Сп[к]);
       НачСумма = Массив[XOR(а,с)+1];
       НачСумма=L_AND(НачСумма, 65535);
   КонецЦикла;
   Возврат НачСумма;
КонецФункции

//*******************************************

Функция глПолучитьКонтрольнуюСуммуФайла(ПолноеИмяФайла) Экспорт
   Перем Рез,Имя,Каталог;
   Перем Массив;
   Массив = Новый Массив(256);
   Массив[0]=0;
   Для к=1 По 255 Цикл
       Массив[к]=Массив[к-1]+4129;
   КонецЦикла;
   Рез=12504;
   ФСО=Новый ComОбъект("Scripting.FileSystemObject");
   Файл=ФСО.OpenTextFile(ПолноеИмяФайла);
   Сп=Новый СписокЗначений;
   Пока Файл.AtEndOfStream=0 Цикл
       Сп.Добавить(КодСимвола(Файл.Read(1)));
   КонецЦикла;
   Рез=Расчет(Рез,Сп,Массив);
   Возврат Рез;
КонецФункции

Алгоритм взят из v8: Как быстро посчитать CRC-файла, но что-то CRC сдается мне расчитывается не корректно, где ошибка?

(19) А логарифмы-то зачем? Двоичный логарифм проще делением посчитать.

(19) да я ХЗ, говорю же алгоритм из v8: Как быстро посчитать CRC-файла