Имя: Пароль:
1C
 
Перевод отрицательного числа в положительное 8.1
↓ (vde69 04.03.2009 15:11)
0 dimon_ddv
 
04.03.09
14:35
Напомните плиз как перевести отрицательное число в положительное в 8.1
Есть -100, а надо 100. Негде глянуть.
1 butterbean
 
04.03.09
14:36
- или *(-1) :-)
2 luns
 
04.03.09
14:36
шо опять???
3 Serg_1960
 
04.03.09
14:37
А = -А;
опять :((
4 Господин ПЖ
 
04.03.09
14:37
даешь 200 постов
5 H A D G E H O G s
 
04.03.09
14:37
Род занятий Программист 1С  
Достижения (опыт) написание партионного учета в версии 1С:Заказчик строительства 1.0  
Интересы 1С v7.7 & v8.1  

Жость
6 luns
 
04.03.09
14:38
(5) Правда? 0_0
7 dimon_ddv
 
04.03.09
14:38
чего издеваетесь???
8 Злопчинский
 
04.03.09
14:38
(3) Решение неверное. Отсутствует проверка на допустимость входных значений переменной А. Итого: код "грязный", вероятность ошибки (неверной работы программы) очень велика. Садитесь, два!
9 dimon_ddv
 
04.03.09
14:39
туплю уже... спать пора, а я тут бля застрял со всякой...
10 Mikle Shaman
 
04.03.09
14:40
Дык вроде в 7.7. это делалось через функцию Макс()...
Почему в 8.1 надо делать по-другому?
11 H A D G E H O G s
 
04.03.09
14:41
Макс(-А,А)
12 dimon_ddv
 
04.03.09
14:42
да просто по модулю -100 надо взять - функции такой не вижу в 8
13 H A D G E H O G s
 
04.03.09
14:42
(9) Какой спать ?? Еще восьми вечера нет.
14 Serg_1960
 
04.03.09
14:43
(8) На получи, враг народа :))

А = Число(СтрЗаменить(Формат(А,"ЧРД=.; ЧГ="),"-",""));
15 FanatToNight
 
04.03.09
14:47
(9) - "спать пора" - ты из амерки постишь? :) тогда тебе вставать пора :)
если а<0 тады
а=0-а;
конецесли; // :)
16 FanatToNight
 
04.03.09
14:48
насчет одноместных операций - не в курсе :)
17 Я не курил
 
04.03.09
14:48
А = -100; //входящее
пЧисло = 0;
Для нн = 1 по Макс(-А,А) Цикл
 пЧисло = нн;
КонецЦикла;
18 Рэйв
 
04.03.09
14:48
:-)
Если ТипЗнч(А)=Тип("Число") Тогда
   А=Число(СтрЗаменить(Строка(А),"-",""));
КонецЕсли;
19 FanatToNight
 
04.03.09
14:50
блиннн.. :))

Пока 1=1 Цикл
если а<0 тогда
а=-а;
КонецЕсли;
прервать;
конеццикла;
20 Новиков
 
04.03.09
14:50
В копилке есть статья: "v8: Хитрые приемы программирования (трюки программистов)". Цитирую: "Многим программистам лень создавать функцию по вычислению модуля числа и они пишут: Макс(А,-А)".

(11) :) Ваши мысли, совпали с мыслями авторами статьи (Фиксин) :)
21 FanatToNight
 
04.03.09
14:51
Макс(А,-А) и Макс(-А,А) - это абсолютно разные решения! не путайте, плз.. :)
22 Рэйв
 
04.03.09
14:54
Если Найти(Строка(А),"-")>0 Тогда
   А=Число(   Прав(  Строка(А),СтрДлина(Строка(А)-1)  )    );
КонецЕсли;
23 dimon_ddv
 
04.03.09
14:54
(14) - что надо :) спасибо!!!
24 Serg_1960
 
04.03.09
14:55
А = ?(ТипЗнч(А)=Тип("Число"),Число(СтрЗаменить(Формат(А,"ЧРД=.; ЧГ="),"-","")),0);

(23) А я ещё умею крестиком вышивать :)
25 H A D G E H O G s
 
04.03.09
15:00
(24) Фиг вам:
http://slil.ru/27020891
26 H A D G E H O G s
 
04.03.09
15:01
(24)
Объект=Новый ("addin.Absolute");
Рез=Объект.Модуль(-100);
27 НЕА123
 
04.03.09
15:05
не надо ифы, максы и прочее. для целых

(('00010101'-А)-'00010101') + (('00010101'+А)-'00010101')
28 Mikle Shaman
 
04.03.09
15:07
(26) Бест! :) :) :)
Скачал!

P.S. Кстати, чтобы от этой ветки была хоть какая-то польза. Где бы почитать про создание DLL для чайников?
29 sam_sam
 
04.03.09
15:10
я так делаю
?(А < 0,А * (-1),А)
30 NikVars
 
04.03.09
15:12
31 Лефмихалыч
 
04.03.09
15:12
(0) мои пять копеег
Sqrt(Pow(А, 2))
32 Immortal
 
04.03.09
15:13
(26)ржувголос
33 Serg_1960
 
04.03.09
15:15
Сообщить("Ваше число - " + ?(СтрЧислоСтрок(СтрЗаменить(""+А,"-",Символы.ПС))=1,"не ","") + "отрицательное");
34 Ц_У
 
04.03.09
15:15
Модуль числа
Вот такой вот забавный способ получения модуля, не индийский, но довольно заковыристый:

y = x*((x>0)-0,5)*2

Эквивалентно y = abs(x);

Источник: http://habrahabr.ru/blogs/code_wtf/46196/#habracut
35 H A D G E H O G s
 
04.03.09
15:15
(33) Слабак
36 Fragster
 
гуру
04.03.09
15:16
37 Mikle Shaman
 
04.03.09
15:17
(30) А теперь из этой кучи хоть одну полезную ссылку покажите?
38 sam_sam
 
04.03.09
15:23
Чего то вдяй разбушевался. Налево пойдет ветку закроет, направо пойдет опустит. И молчит как партизан. -1 в чем дело?
39 Salvador Limones
 
04.03.09
15:47
(38) Упоролся этот наркоман в хлам!
40 NikVars
 
04.03.09
20:46
(37) Первая ссылка.
Microsoft Visual Basic 2005 для "чайников"

Эта книга представляет собой отличное руководство для начинающих программистов на Visual Basic 2005 и новичков в .NET. В книге описывается широкий диапазон полезных аспектов Visual Basic 2005, а также пользовательский интерфейс Visual Studio 2005. Здесь рассматриваются не только основы программирования — использование циклов, логических операторов, работа с типами данных в Visual Basic — но и общие принципы разработки программной логики и пользовательского интерфейса. Примеры кода в книге помогают на практике воспользоваться описанными методиками разработки программ. В книге также рассматривается создание и отладка различных типов проектов: Windows-приложений, Web-сайтов, созданных на базе ASP.NET, Web-служб, а также DLL-библиотек.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс