Как извлечь корень ...
 
Уведомления
Очистить все

Как извлечь корень в 1С

1 Записи
1 Пользователи
0 Likes
439 Просмотры
65-150 Okolokompa Форум
(@kalininalex)
Reputable Member
Присоединился: 4 года назад
Записи: 160
Создатель темы  
Функция Корень(Основание,Степень)
     Если Степень = 1 Тогда
          Возврат(Основание);
     КонецЕсли;
     Факториал = 1; Степень_ = 1; Сум = 0;
     СтепеньЕ = 1/Степень*Лог(Основание);
     Для ии = 1 по 28 Цикл
          Факториал = Факториал * ии;
          Степень_ = Степень_ * СтепеньЕ;
          Сум = Сум + Степень_/Факториал
     КонецЦикла;
     Возврат(1+Сум);
КонецФункции

   
Цитата
Поделиться: