Можно ли в 1С проверить, четное чиСло или нет без Цел и циклов? #351571

Используя только ограниченное количество операции +, -, *, / и условий?

Используя только ограниченное количество операции +, -, *, / и условий?

Используя только ограниченное количество операции +, -, *, / и условий?

МоёЧисло%2=0 - четное...

%2

Операция % запрещена, читать умеем? Чисто математическая задача

помнится был такой топик.. :))) поисчи..

В 1С операция % запрещена? Да ты окончательно спятил...

держи там стока вариантов..))

Формула четного и нечетного числа 2п и 2п+1 соответственно. Думай ...

он же извращенец..))

Оттуда ...    * Сложение и вычитание:          o чётное ± чётное = чётное          o чётное ± нечётное = нечётное          o нечётное ± чётное = нечётное          o нечётное ± нечётное = чётное    * Умножение:          o чётное ? чётное = чётное          o чётное ? нечётное = чётное          o нечётное ? чётное = чётное          o нечётное ? нечётное = нечётное    * Деление:          o чётное / чётное — может быть любым          o чётное / нечётное = чётное, если целое          o нечётное / чётное — не может быть целым          o нечётное / нечётное = нечётное, если целое

спасибо, именно чтение этого топика меня и натолкнуло на данную алгоритмическую проблему. Меня интересует не практическая, а теоретическая сторона. Сегодня ехал в электричке - голову сломал. Можно ли используя только сложение, умножение, деление и вычитание и ограниченное число действий, не пропорциональное проверяемому числу, проверить, четное оно или нет? Вот о чем топик.

Функция Чет (х)  Результат = х;  Если (х2) >= 2 Тогда    Результат = Функция Чет (Результат/2);  КонецЕсли;  возврат Результат КонецФункции; Если Чет(МоеЧисло)=1 Тогда  Сообщить("Четное"); Иначе  Сообщить("НЕ Четное"); КонецЕсли; формально циклов нету )))

Нельзя. Если закрыть глаза на точность вычислений 1C, то  при помощи разрешенных операций даже целое от не целого неотличишь - их конечное количество и можно построить функцию только с конечным количеством корней.

пять баллов! :)) нет, честно, я бы более изящно накуй не послал :)

рекурсия и цикл - это по сути одно и тоже, тока написано по другому

Что, никто не решил, думали нельзя, а вот и можно... а = 23; б = 1/2; с = а/2; д = "" + с + "" + б; е = а / 2 * 10 + б; ф = "" + е; Если а = 0 или (д =  ф) тогда    Сообщить (" Четное"); Иначе    Сообщить (" Нечетное"); КонецЕсли; Без циклов, без Цел, только * / + 1С это не теоретическая математика у нее свои правила  :-)

Поясни

бред, преобразуй число a/2 в строку и сравни правые 2 символа с ".5" результат тот же

Ни че не бред - в таком случае я могу сразу сравнить правый символ с "2" Попробуй сравнить и с ".5" без функций. Оно может и можно упростить, но это уже детали

Что именно не понятно?

Цифирь = ТвоеЦифирь; Исчем = Число(Прав(Цифирь,1)); Если (Исчем = 0) или (Исчем = 2) или (Исчем = 4) или (Исчем = 6) или (Исчем = 8) Тогда ЧЕТНОЕ КонецЕсли;

ну и проверку на 0 сделай

что то типа этого вроде это если ты не рассматриваешь дробные числа как четные и нечетные... ну то есть не дробные а рассматриваешь только целые

ты операцию конкатенации со сложением спутал

>>Skom по-твоему преобразование строки в число и обратно по какому алгоритму работает? без циклов?

На счет других функций автор ничего не сказал, так что думаю вариантов еще можно попридумывать :-)

В условии не запрещено использовать конкатенацию

маладец

А если разобраться то и операция деления (/) не обходится без циклов

еще раз маладец

ну в таком случае...если без циклов и без деления...могу предложить так СкокаПроходофф = 1; Цифирь = 3; ~М1: Цифирь = Цифирь - 1; Если Цифирь = 0 Тогда    Если СкокаПроходофф = 1 Тогда         Сообщить("нечет");    Иначе         Сообщить("чет");    КонецЕсли Иначе    СкокаПроходафф = 3 - СкокаПроходафф;    Перейти ~М1 КонецЕсли; что то воде етого...и без циколв и без всего... тока вычитание....

вообще в условии написано, что в 1С использовать  +, -, *, / и условий ... как 1С будет их использовать в условии задачи не ограничивалось... так что думаю kosts условия задачи выполнил...

а вот это уже цикл

(31 ) Не знаю зачтут ли т.к. похоже на цикл Перейти ~М1 :-)

может де то и напортачил в логике но суть думая вроде ясна.... а цклов то НЕТУ

Используя только ограниченное количество операции +, -, *, / и условий? все соблюдено! фактически то все понимают что цикл...но тем не менее...это не цикл а просто передача управления на оператор при несоблюдении или соблюдении какого либо условия.... хотя цикл это оно и есть

для тебя цикл это когда для х = 1 по 10 цикл?

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

Если уж использовать другие функции, тогда вообще "по колхозному" Функция ПроверкаЧетности    Если КонтрЧисло=0 Тогда Возврат "";    ИначеЕсли Найти(СокрЛП(КонтрЧисло/2),".")>0 Тогда Возврат "Не четное";    Иначе Возврат "Четное";    КонецЕсли;     КонецФункции

Ноль считается четным числом

да понимаю я что это цикл.... просто так....извратился что то

таково особенность одинэс... в условиях задачи использования "+" никак не ограниченно

Я смотю не только фикс извращенец на мисте...

я не про + говорю, а про преобразование числа в строку

- это точно. Картина напоминает рыбака кидающего в реку подкормку. Какую хрень ни кинь - все равно сбежится куча какой-то живности и будет ее теребить. Чувствуется что "гений" и народ в теме давно не был(и) в отпуске - пора!

Нельзя

покажи где там идет явное преобразование в строку? ... то есть используется функция "строка" ... а не возможность "+" в одинэс

я думал в той мегатеме суть сабжа раскрыта... и аналоги укладываются в ограничения

кто говорит о явных преобразованиях? по твоей логике в нет цикла, ведь слово "цикл" нигде не встречается

что для тебя цикл?

еще раз ... в сабже разрешено использовать "+" ... есть какие-либо ограничения на его использования... а вот ограничения на использования цикла есть

переводи в двоичную и определяй сколько влезет

в 1С ... используя только +,-,/ и * ... перевести в двоичную

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

сразу бы сказал, что ты конфигураст, я бы с тобой и не спорил

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

то есть специалист больше сказать нечего не можешь и начинаешь личными оскорблениями доказывать свою тупость?

я тебе уже сказал, что вызывается функция преобразования типов, что противоречит условию ты этого не понял - твои проблемы

где??????

вот здесь: д = "" + с + "" + б;

и как это противоречит условиям задачи? "Используя только ограниченное количество операции +, -, *, / и условий"

это стандартная фича 1С ... так как имеет все данные фактически только одним типом... вариант...

тем что используется функция, которая не входит в перечисленное число операций

маладец

сама такая... учите мат.часть

теперь выполни при а = 1000

оказывается это нечетное число!

[1C] функция стрЧетное(чисЗначение)    а = чисЗначение;    б = 1/2;    с = а/2;    д = "" + с + "" + б;    е = а / 2 * 10 + б;    ф = "" + е;    Если (а = 0) или (д =  ф) тогда        Ответ = " Четное";    Иначе        Ответ = " Нечетное";    КонецЕсли;    возврат ответ; конецфункции; сообщить(стрЧетное); сообщить(стрЧетное); сообщить(стрЧетное(1000)); сообщить(стрЧетное(10000)); сообщить(стрЧетное(100000)); сообщить(стрЧетное(1000000)); сообщить(стрЧетное(10000000)); [/1C] получаем: [1C] Четное Четное Четное Четное Четное Четное Четное [/1C]

ну в этом случае для тебя слово конфигураст не оскорбление, а профессия

Особенность 1С 8 при преобразовании чисел в строку 1000 -> 1 000

знаю

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

а вто некоторые конфигурасты вызова этой функции в упор не видят

специалист... читать за явное и неявное преобразование типов... и что такое цикл...

ну на этом и сойдемся

собствено по условим - невозможно, по сколько любые арифм действия (из САБЖ) можно свести к 2 простым, а ими ну ни как не получишь результат, вот если можно было-бы использовать переодические функции (синусы и т.д.) то легко

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

да да, мы уже осознали всю мощь твоего интеллекта

Рекурсия - тот же цикл. Не годится. Число итераций зависит от числа. Строковые преобразования использовать нельзя, чистую арифметику, плиз... Понятно, что строковыми функциями можно все забубенить. Вот интересно, можно ли это сделать арифметикой? Мда, похоже действительно Нельзя, но можно ли доказать математически, что нельзя?

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

Возведение в степень числа (-1).

трудно оснозновать то... чего сам не имеешь

можно сделать даже без арифметических операций: Если а = 0 Тогда Четное = Истина КонецЕсли; Если а = 1 Тогда Четное = Ложь КонецЕсли; Если а = 2 Тогда Четное = Истина КонецЕсли; Если а = 3 Тогда Четное = Ложь КонецЕсли; ... Если а = МаксимальноеЧислоВКомпьютере Тогда Четное = ... КонецЕсли; Количество чисел ограничено разрядностью компьютера, значит и количество операций тоже ограничено.

Если Pow(-1, ИспытуемоеЧисло) >= 0 Тогда Сообщить("Четное"); Иначе Сообщить("Нечетное"); КонецЕсли;

ветка отняла половину рабочего дня... аффтар...спасиба.....!!!!

2 Там же в теме перечислены операции, которые можно использовать...

вообще без арифметики бла_бла_бла Сообщить(ЧислоТвое); Если Вопрос("Четное ли число"....) = "Да" Тогда   Предупреждение("Число четное"); КонецЕсли;

Если тебе охота поржать, то ты поржал, получи пряник. Меня интересует не идиотское ржание, а просто любопытно, можно ли математическими средствами получить информацию о четности числа без округления или нет. В контексте такой постановки вопроса конкатенация и строковая конвертация не уместны!

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

Ну если бы можно было число сдвигать вправо и влево, то за несколько команд делается. Сдвинул вправо влево и сравнил результат. Хотя на асеммблере достаточно проверить последний разряд. Тоже самое можно сделать используя XOR побитовый.

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

Это я все к чему... Четность и не четность не проверяется сложением округлением и т.д. :-)

Этот вопрос из ряда - можно ли написать программу не используя команды MOV. Ответ да можно, но зачем?

Это задача на смекалку. Можно использовать на тестах. Т.е. нужно доказать - можно ли проверить четность числа с помощью ограниченного инструментария.

Какова цель такого рода проверки, если ценности результат не имеет?

Ценность в напряжении мозгов, а заодно в проверки знаний математики

Так вы решили или нет? Какой смысл в тесте, если его вся миста неделю решать будет?