Имя: Пароль:
1C
 
Как узнать кратно ли одно число другому? тоесть например кратно 999 числу 33?
🠗 (Волшебник 12.03.2013 13:20)
0 Cerera
 
12.03.13
10:04
Нужно проверить кратно ли одно число другому. Как это проверить синтаксисом 1С?
1 НЕА123
 
12.03.13
10:05
(0)
%
2 Wobland
 
12.03.13
10:06
+(1) НЕ (а%б)
3 НЕА123
 
12.03.13
10:24
(2)
зачетно.
4 patria0muerte
 
12.03.13
10:34
Тогда уж наверное:
?(а%б = 0,"Кратно","Не кратно");
Оно жеж остаток возвращает...
5 Wobland
 
12.03.13
10:35
(4) у тебя строка, у меня булево :-Р
6 patria0muerte
 
12.03.13
10:36
+ (4) Точнее
?(а%б = 0,Истина,Ложь);
8 pessok
 
12.03.13
10:36
Кратно = (а%б = 0)
9 patria0muerte
 
12.03.13
10:38
Да не спорю, я и не стремился... )
10 НафНаф
 
12.03.13
10:44
999 не кратно 33
11 rs_trade
 
12.03.13
10:44
(0) Гуманитарий штоле?
12 НафНаф
 
12.03.13
10:46
(0) может в запросе?
13 Волшебник
 
12.03.13
10:47
(10) кэп?
14 НафНаф
 
12.03.13
10:47
(13) ну вдруг не в курсе, а может он считает, что кратно
15 Wobland
 
12.03.13
10:49
(13) (14) двоечники. ответ Ложь, что автору и надо ;)
16 BiBijke
 
12.03.13
10:55
Можно извратиться через цел или округление: 1) Результат = Цел(a/b) = a/b; 2) Результат = окр(a/b) = a/b;
17 BiBijke
 
12.03.13
11:00
+ (16)С округлением не прокатит, извиняюсь )
18 BiBijke
 
12.03.13
11:01
+(17) а нет, прокатит ))
20 НафНаф
 
12.03.13
11:06
(19) не, вот:

Функция Кратно(А,Б)
 Если А=0 Тогда
   Возврат Истина;
 ИначеЕсли А<0 Тогда
   Возврат Ложь;
 Иначе
   Возврат Кратно(А-Б,Б);
КонецФункции
21 BiBijke
 
12.03.13
11:07
(19) Позвольте с вами не согласиться, там ни одного признака быдлокода, лишь альтернатива (2)
22 Волшебник
 
12.03.13
11:07
(20) шедеврально
23 BiBijke
 
12.03.13
11:09
(20) Супер, жаль только для положительных чисел )
24 НЕА123
 
12.03.13
11:10
Функция АКратноБ(знач А, Б)
   Пока А >= 0 Цикл
       А = А - Б
   КонецЦикла
   Возврат Не А;
КонецФункии
25 НафНаф
 
12.03.13
11:10
(21) у тебя оперирование дробными числами, проблемы округления и снижение скорости
26 НЕА123
 
12.03.13
11:11
(20)
эээ... прошу (24) удалить.
27 BiBijke
 
12.03.13
11:13
(25) Ты уверен, что % работает быстрее округления ?)
28 ObjectRelation Model
 
12.03.13
12:46
(27) да, не забывай, что у тебя еще и деление, даже целых 2
29 Wobland
 
12.03.13
12:59
Вопрос(""+А+" кратно "+Б+"?", РежимДиалогаВопрос.ДаНет)=КодВозвратаДиалога.Да
30 Волшебник
 
12.03.13
13:20
хватит разврата
31 BiBijke
 
12.03.13
14:26
(28) запихни в 1 переменную )
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс