При расчете разницы двух велечин, может получиться отрицательное число.
Как пролучить модуль результата, то есть число без знака "минус".

?(число<0,-число,число) (:

?(Ч<0,-Ч,Ч)

(1) ну ты фокусник :)

Макс(-ч,ч)

Большое спасибо

Число(СтрЗаменить(Строка(Ч),"-",""))

(6) Извращенец :-)

(6)+
?(Лев(""+чис,1)="-",Число(Сред(""+Чис,2)),Число(Сред(""+Чис,1))

СЗ=СоздатьОбъект("списоксзначений")
СЗ.ДобавитьЗначение(ч)
СЗ.ДобавитьЗначение(-ч)
СЗ.Выбрать(Выберите пожалуйста положительное число")

Функция Модуль(ТекЧисло)
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("Значение", "Число");
   ТЗ.НоваяСтрока();
   ТЗ.Значение = ТекЧисло;
   ТЗ.НоваяСтрока();
   ТЗ.Значение = -ТекЧисло;
   ТЗ.Сортировать("Значение");
   
   Возврат ТЗ.ПолучитьЗначение(2, "Значение");
КонецФункции

?(Ч<0,Ч-2*Ч,Ч)

Addon = СоздатьОбъект("Addon1C.Commands");
модуль_чис=Addon.Sqrt_(чис*чис);

Логарифмы так никто и не задействовал?

(13)
Попытка
х= е^(ч*10000)
Исключение
//Бесконечость значит ч положительное
Возврат ч;
КонецПопытки
Возврат -ч;//ч отрицательное

есть еще решение через WSH

Имхо, самое изящное решение в (4).

Можно и с логарифмами

Попытка
ф=лог10(ч);
возврат ч;
исключение
возврат -ч;
Конецпопытки

(16) Это понятно
Теперь задача - найти самое нелепое :)

//Просто стебусь, но такое тоже прокатит
Число(СтрЗаменить(""+ч,"-",""));

(18)самое нелепое (17), потому что не пашет. лог10(-15)=0. Исключения не возникает

ч=(ч*ч)/2;

(21) ты гониииишь)))) возводишь в квадрат и делишь пополам? см .12

(22) гоню))))

+(23) пятница

Похоже, в (21) - самое нелепое!

NS-а на вас нет..
он бы вам сказал, "а кто отменил унарную операцию" и показал бы: "-Ч"

(26) Если число отрицательное, то прокатит, а если положительное?

(27) а вам жалко))..

бум извращаться

Функция модуль(ч)
   ТЗ=создатьОбъект("ТаблицаЗначений");
   ТЗ.новаяКолонка();
   ТЗ.НоваяСтрока();
   ТЗ.УстановитьЗначение(1,1,-ч);
   ТЗ.НоваяСтрока();
   ТЗ.УстановитьЗначение(2,1,ч);  
   ТЗ.Сортировать("1-");
   возврат ТЗ.ПолучитьЗначение(1,1);
КонецФункции

(28) Что вы, нам совсем никого не жалко :)

Да, ветка порадовала под конец рабочей недели! Вариант с ТЗ - рулез!

ч = 2 * ч * (ч > 0) - ч

-мин(ч;-ч)

ч * (1 - Найти(ч, "-") * 2)

Варианта с циклом не было:

Для н = 1 по -Ч*2 Цикл  
  Ч = Ч +1;
КонецЦикла

(35) Этот нерабочий

(36) да ну

(36) Он только для целых чисел, а так вроде рабочий

угу :)

Функция Модуль(Ч)
 Если Ч>0 Тогда
   Возврат Модуль(Ч-1)+1;
 ИначеЕсли Ч<0 Тогда
   Возврат Модуль(Ч+1)-1;
 Иначе
   Возврат 0;
 КонецЕсли;
КонецФункции;

(+40) только для целых

по мотивам Математических вычислений (которые у меня разок вызвали перезагрузку неслабого сервера)

ЧислДляМодуля=-100;
Apгумeнт=ЧислДляМодуля*ЧислДляМодуля;
    Если Apгумeнт<0 Тогда
         Сообщить("...","!");
    ИначеЕсли Apгумeнт=0 Тогда
         Возврат 0;
    КонецЕсли;
    ПpeдыдущaяИтepaция = Apгумeнт/2;
    ДocтaтoчнaяToчнocть=0.0001;
    КoличecтвoЗнaкoв=4;
    КoличecтвoИтepaций=330;
    Для Cч=1 По КoличecтвoИтepaций Цикл
         Значeниe = 0.5*(ПpeдыдущaяИтepaция+
         Apгумeнт/ПpeдыдущaяИтepaция);
         Если Значeниe<ПpeдыдущaяИтepaция Тогда
              Paзницa = ПpeдыдущaяИтepaция-Значeниe;
         Иначе
              Paзницa = Значeниe-ПpeдыдущaяИтepaция;
         КонецЕсли;
         Если Paзницa<ДocтaтoчнaяToчнocть Тогда
              Прервать;
         КонецЕсли;
         ПpeдыдущaяИтepaция=Значeниe;
    КонецЦикла;
    Значeниe = Окр(Значeниe,Макс(КoличecтвoЗнaкoв-Лог10(Значeниe),0));
    Сообщить(""+Значeниe);

Ч = -2*Ч*(СтрЧислоВхождений(Ч,"-"))+Ч;

[q]При расчете разницы двух велечин, может получиться отрицательное число.
Как пролучить модуль результата, то есть число без знака "минус".[/q]

все забыли что нужно еще и "разность" запрограммировать :)

Запрос = Новый Запрос;
 Запрос.Текст = "
 |ВЫБРАТЬ
 |    &МоеЧисло КАК МоеЧисло
 |
 |ОБЪЕДИНИТЬ ВСЕ
 |
 |ВЫБРАТЬ
 |    -&МоеЧисло
 |
 |УПОРЯДОЧИТЬ ПО
 |    МоеЧисло УБЫВ";
 
 Запрос.УстановитьПараметр("МоеЧисло", МоеЧисло );
 
 Результат = Запрос.Выполнить();
 Выборка = Результат.Выбрать();
 
 Если Выборка.Следующий() Тогда
     Сообщить(Выборка.МоеЧисло);
 Иначе
   Сообщить("не удалось вычислить модуль");  
 КонецЕсли;

Ч = Число(Прав(Строка(Ч),СтрДлина(Строка(Ч))-СтрЧислоВхождений(Строка(Ч),"-")));

-(Число(ч) + 2*число("-" + ч))

(47) не будет работать

(48) ошибаешься

-(-2+2*(--2)) = -(4-2) = -2

жгучаю тема

а как получить факториал числа запросом?

(50) Ты в Табло лучше напиши .. всё там работает

(50) число("--10") = 0
проверь 1Ской :)

а вообще в 47 предполагается, что ч - это строка, хотя это число

(55) ничего подобного
ч вполене может быть и числом

Формат(Ч,"ЧП")

(54) тогда зачет :)

(57) Супер!

А ещё вот так (Ч - это число)
Число(Прав(Ч, СтрДлина(-Ч)))

ничего себе, спустя год подняли ветку!

(9) шедеврально!

(62) не, в (21) прикольней