Имя: Пароль:
1C
1С v8
Работа с числом, нужен алгоритм проверки на целое число
,
0 ОффПланктон
 
02.11.12
10:15
Есть Строки (из таблицы) которые должны переходить на следующую страницу и есть перем,
Если кол-во строк / на перем = целое число то переходим на другую страницу иначе нет.
1 Irbis
 
02.11.12
10:15
%
2 Я не курил
 
02.11.12
10:16
Такое сообщение уже было отправлено в течение ближайшего часа.
3 ОффПланктон
 
02.11.12
10:19
(2) как называется тема?
4 Reset
 
02.11.12
10:21
кол-во строк % на перем = 0
5 SeraFim
 
02.11.12
10:21
Цел(Число) = Число
6 MSII
 
02.11.12
10:21
Если ОКР(кол-во строк / на перем) = кол-во строк / на перем - целое
7 MSII
 
02.11.12
10:22
(5) Да, так правильно, я ересь написал
8 Reset
 
02.11.12
10:22
А, если чиать заголовок, "алгоритм" такой:
Если Цел(Число)=Число тогда Число - целое
9 Aprobator
 
02.11.12
10:22
чисто тяпничный пост.
10 Reset
 
02.11.12
10:23
Точно, пятница ж, ура.
11 1Страх
 
02.11.12
10:23
правильный ответ в (1)
остальные либо опоздали, либо затупили
12 Reset
 
02.11.12
10:24
(11) Ты к каким относишься? :)
13 ОффПланктон
 
02.11.12
10:26
у меня не получилось...
14 ОффПланктон
 
02.11.12
10:26
Если Цел(Сч/КоличествоСтрокНаСтранице)=Число Тогда
           
           
           //Сч/КоличествоСтрокНаСтранице = Цел() Тогда
           ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
       Иначе Возврат;
       КонецЕсли;
15 ОффПланктон
 
02.11.12
10:27
у меня Сч от 0 до N
16 Reset
 
02.11.12
10:28
Если Сч%КоличествоСтрокНаСтранице=0 Тогда
17 Aprobator
 
02.11.12
10:28
дайте поизгаляюсь:

ЧислоДляЦелого = Формат(ПроверяемоеЧисло, "ЧДЦ");
Если ЧислоДляЦелого = Строка(ПровряемоеЧисло) Тогда
   .......

А вам - слабо?
(14) реально пятница нынче.
18 Aprobator
 
02.11.12
10:29

ЧислоДляЦелого = Формат(ПроверяемоеЧисло, "ЧДЦ=0");
Если ЧислоДляЦелого = Строка(ПровряемоеЧисло) Тогда
   .......

вот так вернее )
19 Aprobator
 
02.11.12
10:30
(14) ПроверитьВывод рулит.
20 Reset
 
02.11.12
10:31
(18) Попытка а/(а%б);Сообщить("а Не кратно б!"); исключение Сообщить("а кратно б!"); КонецПопытки
21 KRV
 
02.11.12
10:31
(0) если
епть - остаток равен null
тогда сообщить заебитлз
иначе
сообщить нировнонихя..
КонецЕсли (пардон за копирования ника)
22 ОффПланктон
 
02.11.12
10:33
а в Иначе что подставить, надо чтобы он опять вернулся в начало...
23 ОффПланктон
 
02.11.12
10:34
(16)сделал по аналогии, только Иначе не знаю что поставить
24 Reset
 
02.11.12
10:34
Перейти ~Начало

:devil_smile:
25 Aprobator
 
02.11.12
10:34
(24) ))))
26 SeraFim
 
02.11.12
10:37
а = б/в;
СтрокаА = Строка(а);
Если Найти(СтрокаА, ",") = 0 тогда
сообщить("Не целое!!!");
КонецЕсли;
27 SeraFim
 
02.11.12
10:38
(26) тьфу, наоборот
28 ОффПланктон
 
02.11.12
10:40
(24) все получилось СпС, с пятницей!!!)
29 Aprobator
 
02.11.12
10:40
епт )))))
30 Xapac_2
 
02.11.12
10:40
(0) блин люди вообще обленились подумать то... емае.
31 1Страх
 
02.11.12
10:46
(12) к первым
32 ОффПланктон
 
02.11.12
10:49
(30) я еще новенький в этом деле, зачем изобретать колесо если уже летают самолеты...
33 Aprobator
 
02.11.12
13:07
(32) в смысле в деле подумать?
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший