Как узнать, четное число или нет? Как получить только остаток от деления? Как узнать, число целое или с дробной частью?

Оймля... И эти люди занимаются программированием...

Для начала научиться читать и нажимать Ctrl + F1

ctrl+f1

(1) +1

Хорошо что не ракеты программируют

(1,2,3) Мож у него на клавиатуре % отсутствует?  ;-)

(6) Тогда пусть анализирует число на окончание на 0, 2, 4, 6 или 8 :))

(0) В ЛК написано - автор из Энгельса. Как бы он боеначинку для ТУ-160 не программировал..

(7) LOL!  ;-)

родной Бабруйск блин-) до 12 лет там жил, щас через речку-)
(8) там авиаполк одно время стоял на аэродроме-) сушки-)

хм, а у меня % в СП не нашелся.

(11) ж-)

(0) да.... этому даже в школе учат...:)

(13) если там учиться, то да, таки учат...

как вариант:

ЭтоЧетноеЧисло = Истина;

Для и=1 по ИсслледоваемоеЧисло Цикл
  ЭтоЧетноеЧисло = Не ЭтоЧетноеЧисло;
КонецЦикла;

Умники.

х - число, для которого нужно узнать Четное или не четное.

дх = х / 2;
а = Цел(дх);
Если дх - а > 0 Тогда
Нечетное = Истина; КонецЕсли;

А более не извращенные подходы в 1С есть? Или вы только выпендриваться можите?

(15) стильная вещь....

(15) впечатлился... :))

(16)  %   !!!

мы можем только выпендриваться....

(19) + RTFM наконец

ЗЫ. Намеков не понимаем...

(15) 8))))))))))))))))))))))))

точно не помню как в 1С, но вроде есть такая вещь:

х = а%2;

Если х >0 тогда
нечетное иначе четное КонецЕсли;

(15) ВАУ!!

Выеживаться - так по полной программе:
   _Число            = 132; //Его проверяем на четность
   _ТестовоеЧисло    = 0;
   фЧетное            = 0;
   
   Пока 1 = 1 Цикл
       Если _Число = _ТестовоеЧисло Тогда
           фЧетное = 1;
           Прервать;
       ИначеЕсли _ТестовоеЧисло > _Число Тогда
           фЧетное = 0;
           Прервать;
       КонецЕсли;
       
       _ТестовоеЧисло = _ТестовоеЧисло + 2;
   КонецЦикла;
:)

Не только 1С-ники тупят:)
(0) Здесь посмотри
http://forum.vingrad.ru/forum/s/f645f1f9d8faa708d38a7f6d513bca8b/topic-181728.html

давай наконец свое число. мы напряжемся и ответим по теме.

ЭтоЧетноеЧисло = Не ТвоеЧисло%2;

Если а%2 >0 тогда четное иначе нечетное КонецЕсли;

(23) Даж если в языке нет операции типа %. Не составляет труда ее эмулировать.
Достаточно наличия Цел(), *, /

(27) :)))))

туплю :)
+(29)    > заменить на  =

Операции над числами
Унарный –
Данная операция предназначена для изменения знака числа на обратный. Например:

-Продажи.Количество

Унарный +
Данная операция не выполняет над числом никаких действий. Например:

+Продажи.Количество

Бинарный -
Данная операция предназначена для вычисления разности двух чисел. Например:

ОстаткиИОбороты.НачальныйОстаток – ОстаткиИОбороты.КонечныйОстаток

ОстаткиИОбороты.НачальныйОстаток - 100

400 – 357

Бинарный +
Данная операция предназначена для вычисления суммы двух чисел. Например:

ОстаткиИОбороты.НачальныйОстаток + ОстаткиИОбороты.Оборот

ОстаткиИОбороты.НачальныйОстаток + 100

400 + 357

Произведение
Данная операция предназначена для вычисления произведения двух чисел. Например:

Номенклатура.Цена * 1.2

2 * 3.14

Деление
Данная операция предназначена для получения результата деления одного операнда на другой. Например:

Номенклатура.Цена / 1.2

2 / 3.14

Остаток от деления
Данная операция предназначена для получения остатка от деления одного операнда на другой. Например:

Номенклатура.Цена % 1.2

2 % 3.14

Встроенные функции языка
Цел (Int)
Синтаксис:
Цел(<Число>)
Параметры:
<Число> (обязательный)
Тип: Число. Исходное число.
Возвращаемое значение:
Тип: Число. Результат выделения целой части.
Описание:
Вычисляет целую часть переданного числа, полностью отсекая дробную часть.
Пример:
МожноКупить = Цел(Наличность/Цена);

з.ы. ужоснах

Цыфро = Прав(Строка(хзКакоеЧисло),1);
ЭтоЧетноеЧисло = (Цыфро = "0") ИЛИ (Цыфро = "2") ИЛИ (Цыфро = "4") ИЛИ (Цыфро = "6") ИЛИ (Цыфро = "8");

еще не все высказались. попрошу не толкаться у микрофона...

Функция ПроверкаНаЧетность(ТекЧисло)
 Возврат Не (ТекЧисло%2);
КонецФункции

блин, как в двоичный код преобразовать? там попроще четность находить думаю

(37) Баянист!

давайте проголосуем у кого код гламурнее?
я за (15)

(38) % понадобится....

(15) Стёпа, ты лучший))) + 1

1- определи как нечетное
остальные цифры можно проверить
если делится на 2 без остатка
а -переменная, для определения четности

если a/2=Цел(а/2) тогда четное =истина
иначе четное=ложь
конецЕсли;

Так, товарищи умные и красивые. Нука скажите мне, могу я написать библиотеку типов для основного интерфейса 1С8.0 на Дельфи для раннего связывания? Или "нет сынок, это фантастика"? Кто-нить копал туда?
А то все четность проверяем..

Спасибо artem666 и igork1966. artem666 - реально объяснил. В СП этого нет. А флудить каждый дурак может.

Теперь можете спать спокойно. Бомбы на ТУ-160 будут запрограммированы нормально. :)

(45) чего там нет?
глаза протри

(45) Верно, в СП нет, есть только в описании встроенного языка...

(45) чо и про Цел тоже нет?

(48) Цел есть, а % нет

С нетерпением жду ветки, как вывести сообщение "Привет, мир"

(45) Какой спать? С катушек съехал? на время посмотри...

(42)

А = ?(ТвоеЧисло<0,-ТвоеЧисло,ТвоеЧисло)-2;
Пока А > 1 Цикл
  А = А-2;
КонецЦикла
Результат = ?(А=0, "Четное", "Нечетное");

(52) +
Продолжаем конкурс на самый тормозной код

;-)

Мне больше такой вариант нравится:

Функция ЧетноеЧисло(пЧисло)
   
   Четное = пЧисло%2=0;
   Возврат Четное;
   
КонецФункции

(53) тормозной или гламурненький? лично мне (35) нравицо

(55) ;-)

if (x%2 == 0){
//четное

}

Я так рад, что такая простая тема стала такой горячей. Как скучно бы было жить, если бы не такие темы. Может быть уже успокоемся?

$b=$а % $b; //Остаток от деления $а на $b

(57) Не баянь на с

(44)+
Ну так что, матерые волки, мне насчет раннего связывания скажите то?

igork1966, памятник тебе поставим, не боись.. ;)

(58) Не мешай. Видишь - народ развлекается :)

(58) дай повыпендриваться, тебе жалко что ли??? на вопрос тебе ответили, так что присоединяйся к конкурсу

Выигравшему калькулятор в подарок..))

(61) тут конкурс тормознутости и гламурности, про ранее связование создавай свою ветку

(62) Что, уже не (35)му?

или нет, лучше счеты антикварные, они дороже стоить будут..

(61) ты свои объекты прямо в пофигуратор что ли внедрять хочешь?

лучше найдите интеграл от 2.2 до 7 : arccos(e(экспонента)в степени -х/7)
:)

(70) первообразную)

(67) всем поставим!

у (35)-го в таком решении тоже есть свои плюсы:
замутил он в коде до 8, а у клиента вдруг, число больше 8-ми, он вызывает его, тот ему за бабки делает до 10, у клиента опять число выше 10-ти.. ну и дальше больше..
зато скока тенег, ёмаё!

Функция ЭтоЧетноеЧисло(Число)

  Возврат ?(Число = 0, Истина, Не ЭтоЧетноеЧисло(Число-1));

КонецФункции

Если Найти("02468",Прав(Формат(ТвоеЧисло,"ЧДЦ=0; ЧН=0; ЧГ=0"),1))>0 Тогда
   Результат = "Четное";
Иначе
   Результат = "Нечетное";
КонецЕсли;

(73) ниче ты не понимаешь в высшей математике, я там последнюю цифру тока беру и ее проверяю

(69) Нет, хочу критические объекты в своей Нетленке (ВК) через раннее связывание реализовать...

даешь функции из (35) и (74) в Библиотеку Продвинутых Функций !!!

$string=123124;
$last=intval(substr(strval($string),strlen(strval($string))-1,1));
if (($last=="2") or ($last=="4") or ($last=="6") or ($last=="8") or ($last=="0"))
{
//четное
}else{
//нечетное
}

надо еще через запрос замутить как нить

(79)* $last=intval(substr(strval($string)),(strlen(strval($string))-1),1));

))))))))))

(79) че то мне это напоминает

(83) украл!

(77) а, понял.
не знаю, не делал.

там авторское право и все такое, щас лицензионное соглашение накатаю на использование кода

$string=123124;
$last=intval(substr(strval($string)),(strlen(strval($string))-1),1));
if (($last=="2") or ($last=="4") or ($last=="6") or ($last=="8") or ($last=="0"))
{
//четное
} elseif (($last=="1") or ($last=="3") or ($last=="5") or ($last=="9"))
{
//нечетное
}else{
//crazy?:)
}


(С) чассть не моё)

(С) Stepa86

мну кажеться иль я нафлудил,да еще со скобками че то напутал?)

Цыфро = Чиселко - Цел(Чиселко/10)*10;
ЭтоЧетноеЧисло = (Цыфро = 0) ИЛИ (Цыфро = 2) ИЛИ (Цыфро = 4) ИЛИ (Цыфро = 6) ИЛИ (Цыфро = 8);

должжно работать быстрее, чем (35)

(90) ВОСТОРГ!!!!!!!!!!!!!!!!!!!!!!

ну че, где там мой памятник калькулятору???

(90) язык программирования 1СMED+

блин нимагу, я падсталом.... Видно как СТРАНА РАБОТАЕТ!!!!

_______
     |       |
     |       |
     |  123  |
     |  456  |
     |  789  |
     |||||||||

      Stepa86

мне тут подсказывают, что на сях:

template
class even
{
public:
   inline static bool uznatChetnost(void) { return not even::uznatChetnost(); }
};

template
class even
{
public:
   inline static bool uznatChetnost(void) { return false; }
};

bool i = even::uznatChetnost();

блин(

(95) крышка гроба уехала =(

почти сотня на такой простой вопрос :)))

сотня!

__________________________
| [] [] [] [] [] [] [] []|
|                        |
| 1  2  3        /  sqrt |
| 4  5  6        *   %   |
| 7  8  9        -   1/x |
| 0 +/- ,        +  =    |
|------------------------|

блин :( не успел

(101) самой главной кнопки то и нет - "узнать является ли число четным по-гламурному"

(101) а кнопки [M][M+][M][MR][MC] где?

Определение чётности числа в уравновешенной троичной системе:
1. обнулить переменную четности
2. если младший трит ноль, то идти на 5
3. если переменная 0, то записать в нее +1 и идти на 5
4. если переменная +1, то записать в нее 0 и идти на 5
5. сдвинуть аккумулятор вправо с обнулением старшего трита
6. если аккумулятор не ноль, то идти на 1
После не более чем N итераций (где N - разрядность аккумулятора) в переменной четности будет хранится 0 - если число в аккумуляторе было четное и +1 - если нечетное.

__________________________
|                        |
| [] [] [] [] [] [] [] []|
|                        |
|  [М]  [М+]   [MR]  [MC]|
|  [beckspase] [CE]  [C] |
|                        |
| 1  2  3        /  sqrt |
| 4  5  6        *   %   |
| 7  8  9        -   1/x |
| 0 +/- ,        +   =   |
|------------------------|

еще пожелания? :))))))

(107) смотри (103)

путем нехитрых манипуляций на таком уже можно выяснить ;)

______________
|              |
|   ПАМЯТНИК   |
| посвященный  |
|   1С-нигам   |
|  придумавшим |
|   функцию    |
|  определения |
|   четности   |
|    числа     |
|    на 1С     |
|              |
|  НАШИ ГЕРОИ  |
|______________|
| ..,.,..,.,.. |
| ...,,..,.... |
| ...,,..,.... |
|______________|

вот!

_______________________________
принимаются заказы на
памятники разной сложности.
обращайтесь: [email protected]

интерсно, до 200 дотянет ветка? :)))

может тут же придумаем функцию склонения, которую никак Гений не может забацать?

(112) памятники лучче получаются ;)

(112) перебором, что ли?

ну думайте, вам же памятник..;) и киркуляторы..

(115) у меня мана закончилась, может завтра после защиты диплома че нить придумаю =)

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

(117) "...КИРКулятор..." и землю долбить им можно будет...

а лучче уж тогда сделать кнопку "Пи***то!!" нажимаешь и всем хорошо :)))

(103)
_|____|____|____|____|____|
___|____|____|____|____|__
_|____|____|____|____|____|
___|____| самая |____|___|_
_|____|  главная   |____|__
___|____| кнопка____|____|_
_|____|____|____|____|____|
___|____|____|____|____|__
_|____|____|____|____|____|

(120) нажимать головой?

может пора уже скинуться, да заводик открыть по производству онных ?




// Функция проверки на четное число
Функция ЭтоЧетноеЧисло(Число)

   Если Число = 0 Тогда
       Возврат Истина;
   ИначеЕсли Число = 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 Тогда
       Возврат Истина;
   ИначеЕсли Число = 31 Тогда
       Возврат Ложь;
   ИначеЕсли Число = 32 Тогда
       Возврат Истина;
   ИначеЕсли Число = 33 Тогда
       Возврат Ложь;
   ИначеЕсли Число = 34 Тогда
       Возврат Истина;
   ИначеЕсли Число = 35 Тогда
       Возврат Ложь;
   Иначе
       Возврат "хз, слишком сложно";
   Конецесли;

КонецФункции



(121) скорее всего. ногой не точные расчеты будет производить..

(123) претендент на первый приз :)))))))))))

(125) не, она всего до 35, надо хотя бы до тыщи

(123) МЕГА жесть!

(125) Протестую, неработающие на всех значениях функции не в счет!  ж-)

(128) не заморачивайтесь!
жюри решит!

(128) она работает! про ответ никто условий не накладывал :)

(123) Свалился под стол!  :-)))

(94) еще раз! :)

в виде ап..

Loto: Что с сервером случилось?
Коннект: Нащяльника, мая сервира паставиль, фрибизьдя инсталя сделаль, апачи сабраль, пыхапе патключиль, сапускаю, а ано - ажамбех пашамбе эшельбе шайтанама!
Loto: Кирилл, если не начнешь выражаться нормально, мы найдем нового системного администратора. Повторяю вопрос - что случилось?
Коннект: Што-о?.. Слуцилась... )
Loto: Блядь )

Функция СобратьФункциюДляВычисленияЧетностиЧисло(МаксимальноВозможноеЧисло)

лСтрока = "Если пЧисло = 0 Тогда ЭтоЧетноеЧисло = Истина;" + Символы.ПС;

СтрокаИстины = Истина;

Для и=1 По МаксимальноВозможноеЧисло Цикл

СтрокаИстины = Не СтрокаИстины;

лСтрока = лСтрока + "ИначеЕсли пЧисло = " + Строка(и) + " Тогда ЭтоЧетноеЧисло = " + ?(СтрокаИстины, "Истина", "Ложь") + ";" + Символы.ПС;  

КонецЦикла;

лСтрока = лСтрока + "Иначе ЭтоЧетноеЧисло = """хз, слишком сложно"""; КонецЕсли";

Возврат лСтрока;

КонецФункции

//где нить при открытии инициализация происходит
глТекст = СобратьФункциюДляВычисленияЧетностиЧисло(1000);


//пример вызова
Перем ЭтоЧетноеЧисло;
пЧисло = ЧислоСНеопределеннойЧетностью;
Выполнить(глТекст);

(134)+ идея принадлежит(123)

(130) Раз пошла такая пьянка:

Функция ЭтоЧетноеЧисло(Число)

   Если Число = 0 Тогда
       Возврат Истина;
   ИначеЕсли Число = 1 Тогда
       Возврат Ложь;
   ИначеЕсли Число = 2 Тогда
       Возврат Истина;
   ИначеЕсли Число = 3 Тогда
       Возврат Ложь;
   ИначеЕсли Число = 4 Тогда
       Возврат Истина;
   ИначеЕсли Число = 5 Тогда
       Возврат Ложь;
   ИначеЕсли Число = 6 Тогда
       Возврат Истина;
   ИначеЕсли Число = 7 Тогда
       Возврат Ложь;
   ИначеЕсли Число = 8 Тогда
       Возврат Истина;
   ИначеЕсли Число = 9 Тогда
       Возврат Ложь;
   ИначеЕсли Число = 10 Тогда
       Возврат Истина;
   Иначе
       Возврат "Я только до десяти считать умею!";
   Конецесли;

КонецФункции

если кто знает как вычислить машинный ноль, то можно сделать для максимального числа, в (134) вместо тыщи поставить (1/машинный ноль)

но кажись не взлетит, хотя в теории должно получиться... правда один раз :)

(137) Нужно просто функцию под конкретное число генерить

СобратьФункциюДляВычисленияЧетностиЧисло(ЧислоСНеопределеннойЧетностью)

(139) долго, один раз сгенерил, и юзай скока хошь, оптимизация,хуле

Как вам такое начало процедуры? :)
СтрокаПоКоторойБудемСчасОпределять = Формат(НуКакоеНа,"ЧПДС");

(141) Динамический код, адаптивная система, ИИ

Функция Чет(цф)
   сз = Новый СписокЗначений;
   сч = 0;
   Пока сч < 10 Цикл
       сз.Добавить(сч);
       сч = сч+2;
   КонецЦикла;
   Возврат ?(сз.НайтиПоЗначению(Число(Прав(цф,1))) = Неопределено,ложь,истина);
КонецФункции

Тема не раскрыта.

// Функция определяет чётность числа
//
// Параметры
//  ИсследуемоеЧисло  – Тип Число
//
// Возвращаемое значение:
//   Булев   – Истина, если число чётное, в противном случае Ложь
//
Функция ОпределитьЧтоИсследуемоеЧислоЧётное(ИсследуемоеЧисло = 0)
   
   Если ТипЗнч(ИсследуемоеЧисло) <> Тип("Число") Тогда
       Возврат Неопределено;
   КонецЕсли;
   
   Попытка
       СлишкомБольшоеЧисло = Константы.СлишкомБольшоеЧисло.Получить();
   Исключение
       СлишкомБольшоеЧисло = 500;
   КонецПопытки;
   
   // при слишком больших значениях исследуемого числа
   // целесообразнее использовать итерационный метод
   Если ИсследуемоеЧисло >= СлишкомБольшоеЧисло Тогда
       
       Если (ИсследуемоеЧисло = 0) Тогда
           Возврат Не Истина;
       КонецЕсли;
   
       ЧетноеЧисло = Не Ложь;
       Для А = 1 по ИсследуемоеЧисло Цикл
           ЧетноеЧисло = Не ЧетноеЧисло;
       КонецЦикла;
       
       Возврат ЧетноеЧисло;
       
   Иначе
       
       Возврат ?(ИсследуемоеЧисло = 0, Истина, Не ОпределитьЧтоИсследуемоеЧислоЧётное(ИсследуемоеЧисло - 1)) ;
       
   КонецЕсли;
   
КонецФункции // ОпределитьЧтоИсследуемоеЧислоЧётное()

Через соответствие ещё не юзали

Функция Проверка(ТвоёЧисло) Экспорт
   Числа = Новый Соответствие;
   Для число = 1 по 1000 цикл
       Числа.Вставить(Число, "Не Чётное");
       Числа.Вставить(Число+1, "Чётное");
       Число = Число + 1 ;
   Конеццикла;
   Возврат Числа.Получить(Число(ТвоёЧисло));
КонецФункции

(146) на втором витке двойка станет не четной?

+147 ... блин... туплю... все нормально...

(148) всё проверено, работает шустро и памяти не ест практически :)

Рекомендуйте кто-нить в базу знаний.

(149) ты этот бред еще и проверял :)

(110) Супер! Но правильнее будет вот так:
______________
|              |
|   ПАМЯТНЕГ   |
| посвященный  |
|   1С-негам   |
|  придумавшим |
|   функцию    |
|  определения |
|   четности   |
|    числа     |
|    на 1С     |
|              |
|  НАШИ ГЕРОИ  |
|______________|
| ..,.,..,.,.. |
| ...,,..,.... |
| ...,,..,.... |
|______________|

(152) согласен ))

(150) рекомендовал...)))

ёмаё, как в базу порекомендовал, так все пропали кудато..
чё за дела ?!
давайте до 200 сотки дотянем.. ))

так через запрос  так никто и не придумал?

Да не пропали. Пыхтим над вариантами с использованием запросов и временных таблиц.

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|    ВЫБОР
|        КОГДА (ВЫРАЗИТЬ(&ЧислоДляПроверки / 2 КАК ЧИСЛО(5, 1))) <> (ВЫРАЗИТЬ(&ЧислоДляПроверки / 2 КАК ЧИСЛО(5, 0)))
|            ТОГДА ЛОЖЬ
|        ИНАЧЕ ИСТИНА
|    КОНЕЦ КАК ЧислоЧетное";

Запрос.УстановитьПараметр("ЧислоДляПроверки", ЧислоДляПроверки);

(156), прямо мысли прочитал. Тоже вот подумал, что запросом гламурнее.

(151) без проверки нельзя :) вдруг с ошибкой...

Проверка на четность с использованием двоичной системы:

Функция Число2(Знач Число10)

   Результат = "";
   
   Пока Число10>0 Цикл
       
       Число10 = Число10/2;
       Если Цел(Число10)=Число10 Тогда
           Результат = "0"+Результат;
       Иначе
           Результат = "1"+Результат;
       КонецЕсли;
       
       Число10 = Цел(Число10);
       
   КонецЦикла;
   
   Если Результат="" Тогда
       Результат = "0";
   КонецЕсли;
   
   Возврат Результат;

КонецФункции // Число2()

Число2 = Число2(Х);
Если Прав(Число2,1)="0" Тогда
   Сообщить("Четное");
Иначе
   Сообщить("Не четное");
КонецЕсли;

Функция ЭтоЧетноеЧисло(Число)
   Возврат ЭтоЧетноеЧисло(Число);
КонецФункции

типа черный ящик

с нетерпением жду решения поставленной задачи с использованием результатов доказательства Великой теоремы Ферма.

недождался...
слегка модернизировал (158) :)

Процедура ОсновныеДействияФормыДействие(Кнопка)
   
   СписокЧисел = Новый СписокЗначений;
   СписокЧисел.Добавить(1);
   СписокЧисел.Добавить(2);
   СписокЧисел.Добавить(3);
   СписокЧисел.Добавить(4);
   
   ЧетныеЧисла = ВыбратьЧетныеНеЧетныеЧисла(СписокЧисел);
   НеЧетныеЧисла = ВыбратьЧетныеНеЧетныеЧисла(СписокЧисел, Ложь);
   
КонецПроцедуры


Функция ВыбратьЧетныеНеЧетныеЧисла(пСписокЧисел, пВыбратьЧетные=Истина)
   
   МассивТиповЧисло = Новый Массив;
   МассивТиповЧисло.Добавить(Тип("Число"));
   
   //подготовим таблицу с данными для анализа...
   ТаблицаДанных = Новый ТаблицаЗначений;
   ТаблицаДанных.Колонки.Добавить("ЗначениеЧисла", Новый ОписаниеТипов(МассивТиповЧисло));
   Для Сч=1 По пСписокЧисел.Количество() Цикл
       ТаблицаДанных.Добавить();
   КонецЦикла;
   ТаблицаДанных.ЗагрузитьКолонку(пСписокЧисел.ВыгрузитьЗначения(), "ЗначениеЧисла");
   
   //создаем ВТ...
   Запрос = Новый Запрос;
   Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
   Запрос.УстановитьПараметр("ТаблицаДанных", ТаблицаДанных);
   
   Запрос.Текст = "ВЫБРАТЬ
                  |    *
                  |ПОМЕСТИТЬ ВТТабДанных
                  |Из &ТаблицаДанных Как ТабДанных
                  |";
   
   Запрос.Выполнить();
   
   //получаем данные из ВТ...
   ЗапросВТ = Новый Запрос;
   ЗапросВТ.МенеджерВременныхТаблиц = Запрос.МенеджерВременныхТаблиц;
   Если пВыбратьЧетные Тогда
       ЗапросВТ.Текст = "ВЫБРАТЬ * ИЗ ВТТабДанных ГДЕ (ВЫРАЗИТЬ(ЗначениеЧисла/2 КАК ЧИСЛО(5,1))) = (ВЫРАЗИТЬ(ЗначениеЧисла/2 КАК ЧИСЛО(5,0)))";
   Иначе
       ЗапросВТ.Текст = "ВЫБРАТЬ * ИЗ ВТТабДанных ГДЕ (ВЫРАЗИТЬ(ЗначениеЧисла/2 КАК ЧИСЛО(5,1))) <> (ВЫРАЗИТЬ(ЗначениеЧисла/2 КАК ЧИСЛО(5,0)))";
   КонецЕсли;
   Результат = ЗапросВТ.Выполнить().Выгрузить();
   
   //уничтожаем ВТ...
   Запрос.МенеджерВременныхТаблиц.Закрыть();
   
   Возврат Результат;
   
КонецФункции

(164) ужоснах... зачот)

правдо с подготовкой таблицы для анализа чуток перемудрил.. ))
но думаю что это ништо, по сравнению с идеей !

(163)
Теорема:
Если n - число, то выражение n = n / 2, будет иметь смысл только если n - четное
Доказательство:
Есть много вариантов доказательств, программные способы приведены выше.

в условии ошибся =) гыыыыыы

Не упомянуты ряды Тэйлора, классы Понтрягина, числа Ли, преобразования Мёбиуса (не путать с одноимённым участником мисты, а также с известным финансистом), а также не рассмотрены критерии чётности/нечётности чила с позиций марксизма-ленинизма.

(164) хренасе слегка... :)
там кстати надобы заменить в КАК ЧИСЛО(5,1) на чегонить типа КАК ЧИСЛО(25,1) а то вдрук большое чего попадется

(170) мы за это отдельно потом бабки будем снимать...)))

эх, жалко что модеры ветку "атрекомендовали", а то столько красивых решений..))

Главное забыли: чтобы каждый раз всё не рассчитывать, надо уже проверенные числа в регистр писать  :)

(173) типа кэша?! )))

ну надо же знать: кто проверял, когда...

Эту функцию включу в свою библиотеку функций. ;-)

(176) оппа, мы тебя так давно ждали )) честно!

ну и кеш, само собой. неча каждый раз систему грузить одним и тем же

(176) какую ? тут много их. у нас конкурс..
ты бы кому киркулятор отдал бы ?

(162) не пральна ты, ДядьФёдор, черные ящики делаешь
Функция ЭтоЧетноеЧисло(Число)
   Возврат Не ЭтоНечетноеЧисло(Число);
КонецФункции

Необходимо использовать объект "Тело" и один из методов этого объекта "ПрямыеРуки(Уровень)" с параметром в виде системного перечисления "Пришиты.Правильно"
Дополнительно объявляется конкурс на разработку дополнительных методов и свойств для бурноразвивающегося объекта "Тело", сделаем жизнь прекраснее!

+(181) перенесено из v8: Как узнать транзакция в текущий момент есть ?

(181) А на хрена там перечисление? :) Лучше так: Тело.Руки.Прямые типа Булево И Тело.Руки.Пришить()
Вот над параметрами метода Пришить() правда надо подумать...

(183) как зачем??? а если несколько уровней рук у тела??? ... и все они прямые?

(184) Несколько уровней рук... Мутант?

(184) прямыми могут быть максимум одна пара рук.. все это уже Гений...))

Кто на ассемблере программировал, может помните - сдвинуть содержимое регистра вправо, а потом анализировать бит. То же самое на 7.7 :)
Функция ВернутьДвКод(ч)
   х = Цел(ч/2);
   Если х>0 Тогда
       Возврат ВернутьДвКод(х)+Строка(ч-х*2);
   КонецЕсли;    
   Возврат Строка(ч-х*2);
КонецФункции    
//*******************************************
Процедура Сформировать()
  рез = ВернутьДвКод(ВыбЧисло);
  Сообщить(рез);
  Сообщить(Прав(Рез,1)) ;
КонецПроцедуры

(184) тут главное четность рук, остальное не так важно, а четность определять вроде умеем

(184) И вообще, тогда Руки - это коллекция, с элементами типа Рука. Где элементы с четными индексами - правые руки, а с нечетными - левые.

эээ, видно вы не встречались с развернутым объектом "Тело" в 4D (или даже 5D) - там как посмотреть. Вот смотришь бывало, вроде все правильно, все ровно, а смотришь с другой стороны - такая хрень получается...

(187) а где Сифон ?
))

Как узнать четное ли число вроде узнали. Осталось еще 2 вопроса топикстартера:
2)Как получить только остаток от деления?
3)Как узнать, число целое или с дробной частью?

(192) Еще 2 раза по 200 постов?  :-)))

давайте еще 7 раз, а остальное завтра..))

(192) думаю нормальные варианты решения можно даже не предлагать

(192) начнем с очевидного

Функция ПолучитьОстатокОтДеления(пДелимое, пДелитель)

   Возврат ?(пДелимое < пДелителя, пДелимое, ПолучитьОстатокОтДеления(пДелимое - пДелитель, пДелитель));

КонецФункции

фсе замерли и ждут появления 199 поста, что запостить содержательное "200!"

200 попытка 1

200 попытка 2

200 попытка 3

читер...

=) с трех попыток

всё, пшли домой, остальное заптра..

ща модеры нас флудерастами назовут..))

есть ещё вариант: умножить на два и проверить делимость на 4

О_о ужас сколько вариантов... все не осилил, так что может боян

Число = 12;

Если (Цел(Число/2) = (Число/2)) Тогда
Сообщить("Число четное");
КонецЕсли;

Надо Абрахамса позвать, он чо-нить свеженькое на VBA сбацает

(206) тривиально и неинтересно, тут конкурс на тормознутость и гламурность

Извращаемся далееКак вариант :)

Функция ЧетНетчет(Число)
Возврат СтрНайти(Прав(Число,1),"13579")=1
КонецФункции;

Возврат (Чесло shr 1);

Функция (Искомое)
Возврат Искомое/Цел(Искомое/2)=2
КонецФункции

))))))

(209) не взлетит

я пад столом)

(212) +1
(209) Переставь местами параметры у Найти

(200) нечестно!брутфорс)

(192), Продолжаем конкурс изящных решений
3)Как узнать, число целое или с дробной частью?

// Функция определяет целое число или дробное
//
// Параметры
//  ИсследуемоеЧисло  – Тип Число
//
// Возвращаемое значение:
//   Булев   – Истина, если число чётное, в противном случае Ложь
//
Функция ОпределитьЧтоИсследуемоеЧислоЦелое(ИсследуемоеЧисло = 0)
   
   Если ТипЗнч(ИсследуемоеЧисло) <> Тип("Число") Тогда
       Возврат Неопределено;
   КонецЕсли;
   
   Запрос = Новый Запрос;
   Запрос.Текст = "
   |ВЫБРАТЬ
   |    ВЫБОР
   |        КОГДА (ВЫРАЗИТЬ(&ИсследуемоеЧисло КАК ЧИСЛО(35, 16))) = (ВЫРАЗИТЬ(&ИсследуемоеЧисло КАК ЧИСЛО(35, 0)))
   |            ТОГДА ЛОЖЬ
   |        ИНАЧЕ ИСТИНА
   |    КОНЕЦ КАК ЭтоДробноеЧисло
   |";

   Запрос.УстановитьПараметр("ИсследуемоеЧисло", ИсследуемоеЧисло);
   РезультатЗапроса = Запрос.Выполнить();
   Если НЕ РезультатЗапроса.Пустой() Тогда
       Выборка = РезультатЗапроса.Выбрать();
       Если Выборка.Следующий() Тогда
           Возврат НЕ Выборка.ЭтоДробноеЧисло;
       КонецЕсли;
   КонецЕсли;
   Возврат Неопределено;
КонецФункции // ОпределитьЧтоИсследуемоеЧислоЦелое()

(216) гламурненько  ж-)

(216) я на днях битовые операции эмулировал в 1с... это было жесть...  ;-)

(216) + для расчета CRC16

(219) + все заработало, но на моих объемах оказалось слишком медленно...
;-)

(216) Запросом! Рекомендации лучших 1С-оводов )))

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

(222) он потерял дар речи, ему нечего нам возразить..)))

// Всю тему не читал, может быть боян
КолПрох = 0;
ПризнЧет = "";
Для а=0 По НужноеЧисло Цикл
Если КолПрох=0 Тогда
ПризнЧет = "Четное"
КолПрох = 1;
Иначе
ПризнЧет = "НЕчетное"
КолПрох = 0;
КонецЕсли;
КонецЦикла;
Сообщить(ПризнЧет);

(224) самое оно..))

224 реинкарнация 15 :)

гы...
как это выглядит со стороны:
чел на форуме по 1С спросил: "Как определить число четное или нечетное".
для выяснения этого вопроса понадобилось свыше 200 постов....

+(227) Ну тупыыыыыееее.... (с)

(226) тщщщщщщ! не пугай народ. пусть заходют и предлагают.
мы то знаем кому достанется киркулятор..

мои 5 копеек "в функциональном стиле":

Функция Четное(Числ)
 Возврат ?(Числ=0, Истина, Не Четное(Числ-1));
КонецФункции

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

(228) ээээ, базар фильтруй! и ваще проходи мимо! у нас тут понимаешь ли конкурс!
:)

насколько помню, можно так:

представить число в двоичном виде (нечетные на 1 заканчиваются);
затем двоичный сдвиг на 1 бит вправо и налево, если конечное число отличается от исходного, то оно нечетное.
Например,
5 - 00000101; сдвиг вправо на 1 бит - 00000010; сдвиг влево на 1 бит - 00000100;
00000101 <> 00000100 => нечетное

я так на ассемблере делал

извиняюсь, не все читал, уже такой способ упомянули

(231) ну-ка, ну-ка поподробней, плиз... запрос указан в (158).. что там не так?

(233) на ассембелере для таких вещей есть отличный флаг cf- сдвигай в него выдвигай из него. или сдвигай и условный переход по значению этого флага.

(235) у тебя все числа будут четные на определенных конфигурациях платформы и скуля )))

(237)+ например проверь на 8ке в файловом режиме

(237) (238) гоню )) все норм будет.

(230) не хочу никого обижа

блин, о чем это я. +(240) ...но я так уже писал

Что ж до сих пор никто ВК не написал

Всю ветку не читал.
Из того что прочитал (74) - лучший :)

ЗЫ Алгоритм не является объектом аторского права :)
Т.е. то же самое написанное в другом языке или другими (в данном случае английскими) буквами не будет нарушением.
Это мои триписят.

дочитал только до 15-го НО:
(15)Гениально! :))))))))
мнеб такое в голову бы не пришло :))))

(244) А мне больше с рекурсией нравится :)

(245)Это где?

(74), (230) - одно и то же.

(247) эх, пропустил! придется, пользуясь служебным положением, (74) пост удалить...

а с массивом чего никто не написал?

(249)+ как-то так:

Функция Четное(ТоСамоеЧисло)
М=Новый Массив;
Для ии=1 по ТоСамоеЧисло Цикл
  М.Добавить(Ложь);
  М.Добавить(Истина);
КонецЦикла;

Возврат М[ТоСамоеЧисло];
КонецФункции

хня... Самый медленный способ - спросить в инете и получить 250 постов ответа

(251) заметь, что за 250 постов само число так и не было обнародовано. вот и приходится гадать, идти на хитрости всякие...

(250) предлагаю оптимизировать, делая цикл до ТоСамоеЧисло/2+1

(253) эээ, деление! нафиг все извраты, если есть деление?

(254) ну для деления мы другую волшебную функцию перегрузим

)))))))))))))))
вот пуцаны, вот это настоящий гламур...)))
(работает только с целыми числами, там же и обработка, для регистрации ВК запустить RegVK.bat)
http://ifolder.ru/6851739

специально для (242)-го

да еще, мелочь забыл )), нужен Microsoft .NET Framework 2.0
http://dl.softportal.com/load/dotnetfx.exe
22.4 метра ))

Ой, сколько вариантов намутили ))
Вроде банальной рекурсии еще не было... или я просмотрела ))
Мой вариант:

Функция Четное(Число)
 Если Число<0 Тогда
  Возврат "Фигня какая-то"
 КонецЕсли;
 Если Цел(Число)<>Число Тогда
  Возврат "Фигня какая-то"
 КонецЕсли;
 Если Число = 0 Тогда
    Возврат "Да"
 ИначеЕсли Число = 1 Тогда
    Возврат "Нет"
 Иначе
    Возврат Четное(Число-2)
 КонецЕсли;
КонецФункции

была рекурсия ((

Метод 1
==========================
$string=123126;
if ($string%2 == 0){
   echo "Четное";
}else{
   echo "Нечетное";
}

========================== Время выполнения 0.000735 сек

Метод 2
==========================
$string=123126;
$last=intval(substr(strval($string),(strlen(strval($string))-1),1));

$i=0;
$chet=false;

while ($i <= $last) {
   if(!$chet){
       $chet=true;
   }else{
       $chet=false;
   }
$i++;
}

if(!$chet){
   echo "Нечетное";
}else{
   echo "Четное";
}
========================== Время выполнения 0.001234 сек

Что то маловато для второго)

$string=123126;

$i=0;
$chet=false;

while ($i <= $string) {
   if(!$chet){
       $chet=true;
   }else{
       $chet=false;
   }
$i++;
}

if(!$chet){
   echo "Нечетное";
}else{
   echo "Четное";
}

во)

Жжоте!
Тормознее степиного наверное только создание временной таблицы с числами от 1 до n и запросом соединение с ней :)

Так в чем вопрос то? (с)

(265) вопрос в (0) :)

А я так и не понял - 0 чётное число или нечётное :)

(267), Материал из Википедии — свободной энциклопедии
Чётность в теории чисел — характеристика целого числа, определяющая его способность делиться нацело на два. Если целое число делится на два, оно называется чётным (примеры: 2, 28, —8, 40), если нет — нечётным (примеры: 1,3, 75, —19). Нуль считается чётным числом.
Чётное число — целое число, которое делится на 2 без остатка:   …?4,?2,0,2,4,6,8…
Нечётное число — целое число, которое не делится на 2 без остатка:   …?3,?1,1,3,5,7,9…


-------------
Тема на других ресурсах
http://www.sql.ru/forum/actualthread.aspx?tid=221513

Голосую за (15) и за (123)

Если Цел(а/2)=а/2 тогда
сообщить("четное");
иначе сообщить("нечетное");
КонецЕсли;

Если(а-Цел(а))=0 тогда
сообщить("целое");
иначе сообщить("не целое, дробная часть равна "+строка(а-Цел(а)));
КонецЕсли;

Продолжаем конкурс красивых решений :))))

// Функция определяет целое число или дробное
//
// Параметры
//  ИсследуемоеЧисло  – Тип Число
//
// Возвращаемое значение:
//   Булев   – Истина, если число целое, в противном случае Ложь
//
Функция ОпределитьЧтоИсследуемоеЧислоЦелое_Вариант_2(ИсследуемоеЧисло = 0)
   
   Перем СтрокаЧисла;
   
   Если ТипЗнч(ИсследуемоеЧисло) <> Тип("Число") Тогда
       Возврат Неопределено;
   КонецЕсли;
   
   СтрокаЧисла = XMLСтрока(ИсследуемоеЧисло);
   Если Найти(СтрокаЧисла, ".") = 0 Тогда
       Возврат НЕ Ложь;
   Иначе
       Возврат НЕ Истина;
   КонецЕсли;
   
КонецФункции // ОпределитьЧтоИсследуемоеЧислоЦелое_Вариант_2()

Функция ЭтоЧетноеЧисло(пЧисло)

Ответ = Вопрос("" + пЧисло + "четное?", РежимДиалогаВопрос.ДаНет);
   
   Если Ответ = КодВозвратаДиалога.Да Тогда
       
       Возврат Истина;
       Иначе
     
               Возврат Ложь;
       
   КонецЕсли;

КонецФункции

Функция ЭтоДробноеЧисло(пЧисло)

Ответ = Вопрос("" + пЧисло + "дробное?", РежимДиалогаВопрос.ДаНет);
   
   Если Ответ = КодВозвратаДиалога.Да Тогда
       
       Возврат Истина;
       Иначе
     
               Возврат Ложь;
       
   КонецЕсли;

КонецФункции

(272) ЗЫ работает только в клиентском сеансе

(274) недочёт)

(274) к (273) :)

Разработчикам платформы на заметку: добавить новое значени перечисления
РежимДиалогаВопрос.ДаНетХз

//Создаём справочник Числа, и 1 раз его заполняем:
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Спр = Справочники.Числа;
   Для Ном = 1 по 100000 цикл
       НовыйЭл = Спр.СоздатьЭлемент();
       НовыйЭл.Код = Ном;
       НовыйЭл.Наименование = "Нечётное";
       НовыйЭл.Записать();
       
       НовыйЭл = Спр.СоздатьЭлемент();
       НовыйЭл.Код = Ном+1;
       НовыйЭл.Наименование = "Чётное";
       НовыйЭл.Записать();
       Ном = Ном+1;
   КонецЦикла;
КонецПроцедуры

//ну и в общий модуль функцию:
Функция ПроверкаЧетНечет(ТвоёЧисло)
   Спр = Справочники.Числа;
   Попытка
       Возврат Спр.НайтиПоКоду(Строка(ТвоёЧисло)).Наименование;
   Исключение
       Возврат "Непонятное чило";
   КонецПопытки;
КонецФункции

(277) лучше регистр сведений и проверку запросом. Так более в духе 8-ки.

чёта по (256)-му не вижу критики..))

Функция ЭтоЦелоеЧисло(ПроверяемоеЧисло) Экспорт
   
   ОписаниеТипаЦелогоЧисла = Новый ОписаниеТипов("Число",
       Новый КвалификаторыЧисла(10, 0, ДопустимыйЗнак.Любой));
       
   ПриведенноеЧисло = ОписаниеТипаЦелогоЧисла.ПривестиЗначение(ПроверяемоеЧисло);
   
   Возврат (ПроверяемоеЧисло = ПриведенноеЧисло);
   
КонецФункции

тупая ветка...

(281) ты тоже тупой, раз зашел сюда..))
нифига ты в юморе и гламуре не понимаешь..

Надо в название темы добавить: Кто посмотрит, тот лох
:)

надо самообучающуюся систему сделать: в РС хранить число и чет/нечет, при отстствии в регистре - спрашивать пользователя. еще можно хранить историю ответов и выводить «наиболее вероятный», или спрашивать с вероятностью 1/(количествоответов+1)

Во ведь, чем тупее ветка, тем больше постов

Подборку решений в Книгу Знаний. И назвать "сила ума".

(285)+ ))))))))
тщщщщщ...

(285) не надо тут! такие ветки - жевачка для мозгов... ты еще найди ветку «модуль числа», там совсем круто!

(286) пробовали, не берут..))

а еще может быть:
Функция Остаток(А,Б)
 Возврат А-Цел(А/Б)*Б
КонецФункции
только наверное было уже...

(290)тоже самое по сути

ОКР(число)<>число

Preda1or'у: не стоит всякую тупню рекомендовать в БЗ

До трёхсот-то добьём?
Не раскрыт вопрос: Как получить только остаток от деления?

(288) Да ответ в (1) дали

(293)Я не обедал, сил нет:) А то бы написал

(293) ну я то уже отметился в (196)

(293) - см (290)

200 Попытка 1

200 Попытка 2

200!

ой)мама дорогая...
300...

301

а не успел(

(300) какой функцией считаешь?

(300) хм, вроде так уже кто то делал, вот только с цыфрой ты облажался =)

придеться ставить((( : (С) Stepa86

(300) промахнулся на сотню :)

(293)
///
п = Найти(Строка(Число),".");
Сообщить (ПРАВ(Строка(Число),СтрДлина - п);
///

(308) какой же это остаток? это фигня какая-то!

(309) ой, это добная часть)

$string=131.1;

$data = strval($string);
list($cel,$ost) = explode(".", $data);
echo $cel;//
echo $ost;//mb intval()

Такое было уже?
Функция Чет(ч)
 стр=Прав(Формат(ч,"ЧГ=0"),1);
 Если стр=0 ИЛИ стр=2 ИЛИ стр=4 ИЛИ стр=6 ИЛИ стр=8 Тогда
   Возврат "Четное";
 КонецЕсли;
 Возврат Нечетное;
КонецФункции

вот)

я за вами читать не успеваю :)

(293) А / Б - Цел(А / Б)

(314) а ты свой великий пример выложи! может приз достанется

(312) баян... 315 - тоже (290)

(312) баян... (315) - тоже (290)

(312) было =)

(317) А если подумать?

(315) вернет дробную часть, (290) - остаток от деления. но суть то одна

Pi = 3.1415926535897932;
Чётное = Окр( Sin(Pi/2*ТвоёЧисло) )=0;

(321) Раз лень думать, то на.
100 - Цел(100 / 3) * 3 = 1
100 / 3 - Цел(100 / 3) = 0,333333

остаток деления:

Функция ОстатокДеленияВ(Делимое, Делитель)
 Возврат ?(Делимое<Делитель, Делимое, ОстатокДеленияВ(Делимое-Делитель, Делитель));
КонецФункции

Функция Модуль(Числ)
 Возврат ?(Числ<0, -Числ, Числ);
КонецФункции

Функция Знак(Числ)
 Возврат ?(Числ<0, -1, 1);
КонецФункции

Функция ОстатокДеления(Делимое, Делитель)
 Возврат Знак(Делимое)*Знак(Делитель)*ОстатокДеленияВ(Модуль(Делимое),Модуль(Делитель));
КонецФункции

(321) дробная часть может быть вида 1.01 - тогда (315) вернет 1. как ты из этого восстановишь остаток?

(316)Мне даже папа всегда говорил, что программист из меня никудышный. Я все задачи решаю тупо в лоб, не задумываясь об их гламурности :) Так что... ни к чему это :)

Окр(Sin(ASin(1)*ТвоёЧисло))=0

(316) а какой приз? интересно, до 1000 дотянет ветка?

ща нафлудят)

(328) а там вроде памятник где-то в начале ветки мелькал :)

(328) Не дотянет

(330) я собссвена, афтар красоты из (110)..)))
обращайтесь: [email protected]

(330) мой первый)

(333) + (95)

(334) эээ, эт не памятнег, эт киркулятыр..))

(325) умножу на делимое, то есть на B
(323) и что я не так сказал??? 0,3333 - дробная часть , 1 - остаток от деления 100 на 3

слабо сделать деление с любой точностью не используя операций *, /, % ?

(335)см. (98)

(337) на 1С? я наверно пас, хотя нас учили этому =)

(339) я в школе на асме под Агат делал. думаю, что на 1С не сложнее :)

(336) >>но суть то одна
Вот это и не так сказал. Суть разная.

(337) алгоритм деления в столбик - цикл, + и -

(340)
<?php

function get($a,b)
{
   while ($c>=0)
   {
       $i=1;
       $c=$a-$b;
       $i++;
   }
   return $i;
}

$cel=get($a,$b);
$necel=get($a-($cel%1),$b)

echo "Result ".$cel.".".$necel."";

?>

(337) Не проверял правда :)

Функция Деление(Ч1,Ч2,КоличествоЗнаков)
   
   Ч1 = Формат(Ч1,"ЧГ=0");
   Для К=1 По КоличествоЗнаков Цикл
       Ч1 = Ч1+"0";
   КонецЦикла;
   Ч1 = Число(Ч1);
   
   Результат = 0;
   Остаток = Ч1-Ч2;
   Пока Остаток>0 Цикл
       
       Результат = Результат+1;
       Остаток = Остаток-Ч2;
       
   КонецЦикла;
   
   Результат = Формат(Результат,"ЧГ=0");
   Результат = Лев(Результат,СтрДлина(Результат)-КоличествоЗнаков)+"."+Прав(Результат,КоличествоЗнаков);
   
   Возврат Число(Результат);
   
КонецФункции

(341) алгоритм из (315) умножаем на Б и получаем (290) или это 2 абсолютно разных алгоритма???

ступил...

(344) тоже самое тока на PHP)и тож  не проверял)

+(344) правда только для целых положительных чисел.

(345) в своем примере мы получаем всю дробную часть, но не после запятой, а текстом, так что 3333333333.... умножить на 3 - явно не остаток

(349) в смысле примера про прав(Строка(А),СтрДлина(а)-П) или как там

(345) Это два абсолютно разных алгоритма, верно.
Если что-то на что-то умножать или делить, например твою зарплату на курс доллара или твой НДФЛ на температуру на улице, то получатся совершенно разные вещи.

(349) где ты там текст нашел?

(352) где-то там рядом пробегал, гад :) ну так дробную часть совсем скучно получать

(351)    (290)   А-Цел(А/Б)*Б
        (315)   А/Б-Цел(А/Б)

Вообще все разное??? ты че заканчивал? и причем тут температура с зарплатой??? все в рамках поля рациональных чисел, знаешь что такое рациональное число?

(354) «ты с какова раёна???»
(315) = (290)/Б...

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

Еще вопросы будут? :))

Эту ветку точно надо рекомендовать в "Базу знаний" но в раздел: "ТАКИЕ ВОПРОСЫ ЗАДАВАТЬ НЕ НАДО!!!" (0)

(356) еще (355)
в отличие от девушек математика и программирование точные науки...

Если уж на то пошло, то математика, реализованная на компьютере, отличается от математики как науки :)))

(0) А для чего узнавать?

(360) O_o +1

хм, действительно, а нафига???

(360)Приз твой!)))

блин, еще не выяснили? О_Ъ? Ну тупыыыыыеееее.....

(359) "математика, реализованная на компьютере" - это отдельный раздел "математики как науки" (точнее, разделы)

еще не успокоились

свой вклад дам

Функция XOR(Знак1, Знак1)
   Знак1    = КодСимвола(Символ1);
   Знак2    = КодСимвола(Символ2);
   // надо сделать следующую операцию
   // Знак = Знак XOR ЗнакКлюча
   РезЗнак = 0;
   Для е1 = 1 по 8 Цикл
       ИтоговыйБит = 1;
       Маска=Pow(2, е1-1);
       Бит1=Цел(Знак / Маска);
       Бит2=Цел(ЗнакКлюча / Маска);
       Если ((Бит1+Бит2)/2)=Окр((Бит1+Бит2)/2,0) Тогда
           ИтоговыйБит = 0;
       КонецЕсли;
       РезЗнак = РезЗнак + Маска * ИтоговыйБит;
   КонецЦикла;                
   
   Возврат РезЗнак;
КонецПроцедуры

Четный = 255 - XOR(Число, 254);


не тестил, может где знаки попутал, но думаю должно работать для чисел менее 255
для чисел больше нужно взять другие числа (255, 254)

так лучше ))

Функция XOR(Знак1, Знак1)
   РезЗнак = 0;
   Для е1 = 1 по 8 Цикл
       ИтоговыйБит = 1;
       Маска=Pow(2, е1-1);
       Бит1=Цел(Знак / Маска);
       Бит2=Цел(ЗнакКлюча / Маска);
       Если ((Бит1+Бит2)/2)=Окр((Бит1+Бит2)/2,0) Тогда
           ИтоговыйБит = 0;
       КонецЕсли;
       РезЗнак = РезЗнак + Маска * ИтоговыйБит;
   КонецЦикла;                
   
   Возврат РезЗнак;
КонецПроцедуры

Четный = 255 - XOR(Число, 254);

(356) >>"Приходи сегодня вечером ко мне" и "Приходи сегодня вечером помочь мужу"

а в чем разница?

Вот муж пришел,
Вдвоем уже полегче.

(с) Вишневский

(367, 368) Синтаксическая ошибка

уже вечер ))) скопипастил и подправил (в ориг. был XOR над символами), вроде так должно пахать

Функция XOR(Знак1, Знак2)
   РезЗнак = 0;
   Для е1 = 1 по 8 Цикл
       ИтоговыйБит = 1;
       Маска=Pow(2, е1-1);
       Бит1=Цел(Знак1 / Маска);
       Бит2=Цел(Знак2 / Маска);
       Если ((Бит1+Бит2)/2)=Окр((Бит1+Бит2)/2,0) Тогда
           ИтоговыйБит = 0;
       КонецЕсли;
       РезЗнак = РезЗнак + Маска * ИтоговыйБит;
   КонецЦикла;                
   
   Возврат РезЗнак;
КонецФункции

Четный = 255 - XOR(Число, 254);

Может хватит уже? :)

жосткий xor

ап.. ой, пацаны я нечайно, чесслово..))

(0)-(374) Кстати,а выяснили зачем?)))

(375) Анекдот такой был (точно не помню, главное суть) -

Укурился как то пацанчик в лесу чудо травы, подошел к дереву,
прислонился и давай его пилить пилкой для ногтей, подходит к нему лесник-
Л: Э, пацанчик, ты чего это делаешь?
П: Дерево пилю..
Л: Так ты ж этой хренью год пилить будешь !
П: А мне пох, мне лишь бы движение было..

Так и тут получилось..)))

Ещё не вся миста отметилась.
Ой, это я нечаянно, чесслово, вот те хрест.

(377) Да, не все )))

Мне даже сказать нечего.

Вы че здесь, офигели все? 400 постов на такую тему! О-о

ща будет борьба за пост "400!"
или "200 попытка 3", тут уж не знаю

(380), почему офигели? Какой простор для полёта фантазии.
Блин, это я тоже нечаянно.

Тема не раскрыта. UP.

(383)Нужен подитог. Перечитывать 380 постов влом.

остатка от деления не существует. это матрица

(380) не-а, еще только 383.

Функция ЧетноеЧисло(НашеЧисло)
   
   Строка = "";
   
   Для к = 1 По НашеЧисло Цикл
       Строка = Строка+ "не-а!";    
   КонецЦикла;
   Строка = СтрЗаменить(Строка,"не-а!не-а!","");
   
   Возврат (СтрДлина(Строка) = 0);
   
КонецФункции

(386) +1

(386)+
все таки так красивше

Функция ЧетноеЧисло(НашеЧисло)
   
   Строка = "";
   
   Для к = 1 По НашеЧисло Цикл
       Строка = Строка+ "не-а!";    
   КонецЦикла;
   Строка = СтрЗаменить(Строка,"не-а!не-а!","");
   
   Возврат (Строка <> "не-а!");
   
КонецФункции

389 ))))

не хотите как хотите.. ТРИСТО ДЕВЯНОСТО !

8 =  1000
7 =  0111
6 =  0110
5 =  0011
в общем лень писать,  у нечётных 0

у чётных ноль то есть

ну давайте 400 и закроем ветку!

кажися такого небыло

Попытка
  х=1/(число/2-цел(число/2));
  четное = ложь;
исключение
  четное = истина;
КонецПопытки;

(394) utybfkmyj!

в смысле круто!

Функция ВопросВТехПоддержку(Число)
   Атвет = Вопрос ("Данное число" + Строка (Число) + "Чётное?",РежимДиалогаВопрос.ДаНетОтмена);
   Если Атвет = КодВозвратаДиалога.Да Тогда
       Сообщить ("Число чётное");
   КонецЕсли;    
   Если Атвет = КодВозвратаДиалога.Нет Тогда
       Сообщить ("Число не чётное");
   КонецЕсли;    
   Если Атвет = КодВозвратаДиалога.Отмена Тогда
       Сообщить ("Да! Я не отвечаю на ваш ответ!");
   КонецЕсли;    
КонецФункции;

(397) жжёшь!!! )))))))))

<- нечетное

(397) + (с) Уральский

<- а вот это число четное.

ааааа

непопал

аппну для разнообразия

Внесу 5 копеек в этот праздник маразма:

Функция Четное(Число)
   Если Цел(Число) - Число <> 0 Тогда
       Предупреждение("Некошерное число !");
       Возврат Неопределено;
   КонецЕсли;
   
   Четное = Ложь;
   
   Для Ном = 0 По Макс(Число,-Число) Цикл
       Четное = ?(Четное,Ложь, Истина);
   КонецЦикла;
   
   Возврат Четное;
КонецФункции


Давайте уж поднатужимся, и добьём тему до 500 постов. Осталось немного.

Типа ап.

ветку с ВРОТМНЕНОГИ закрыли на 450-ых... типа слишком длинна стала

Функция ЧетноеЧисло(НашеЧисло)
   
   Строка = СтрЗаменить(Формат(НашеЧисло,"ЧС=0; ЧРГ=; ЧГ=1"), Символы.НПП, Символы.ПС);
   
   Возврат Булево(Найти("02468", СтрПолучитьСтроку(Строка, СтрЧислоСтрок(Строка))));
   
КонецФункции

Хватит хрень плодить :))
Кто хочет, заводите новую.