Подскажите формулу.
Есть 3 суммы 150, 100 и 50, как 100 разделить пропорционально между 150 и 50.

(0) Пропорционально.

75 и 25

А формулой ?

1. Вычисляем, во сколько раз отличается 100 от суммы 150 и 50.
100/(150+50) = 0,5

2. Умножаем наши суммы на полученный к-т.
150 * 0,5 = 75
50 * 0,5 = 25

(3) 100/(150+50)

100 * 50 / (50+100+150)
100 * 100 / (50+100+150)
100 * 150 / (50+100+150)

блин (50+100+150) заменить на (50+150)

(3)Формулой это типа:
Ч1 = 150
Ч2 = 100
Ч3 = 50
Сумма = Ч2 / (Ч1 + Ч3)
Ч1 = Ч1 + Ч1 * Сумма
Ч3 = Ч3 + Ч3 * Сумма

Все понятно, всем спасибо.

(8) Чтобы не путаться в понятиях:
Коэффициент = Ч2 / (Ч1 + Ч3)
Ч1 = Ч1 + Ч1 * Коэффициент
Ч3 = Ч3 + Ч3 * Коэффициент

(8) А зачем так:
Ч1 = Ч1 + Ч1 * Коэффициент ?

Функция РассчитатьДельту(СуммаВходящая,ВсегоСуммаВходящая,СуммаРаспределения)
   ПроцентОтОбщей=СуммаВходящая /(ВсегоСуммаВходящая/100);
   Дельта=Окр(СуммаРаспределения/100*ПроцентОтОбщей,2,РежимОкругления.Окр15как20);
   Возврат Дельта;
КонецФункции

+ потом если последняя сумма надо не функцию вызывать а тупо прибавлять оставшийся хвост.  а то копейки остаются

мдэ... а что, в Советское время тоже образование хромало?

(12) хвост в виде лишней копейки, если коэффициент вида 0,3333333333333, лучше не к последней сумме прибавлять, а к максимальной. Аккуратнее получается. :)

(0) "программист"-гуманитарий?

(0) это шутка ?

(14)Можно и так :-)

есть 2 (два) осажденных города.
в одном 150 защитников. в другом 50 защитников.
им на подмогу идет обоз с мукой.
везут 100 кг.
Задача: сколько муки нужно завезти в каждый город через подземный ход чтобы всем защитникам досталось поровну?
Решение:
Складываем всех защитников города, делим всю муку на кол-во всех защитников, находим сколько муки приходится на 1 защитника по норме.
Умножаем норму на кол-во защитников в каждом городе.
разделяем всю муку на 2 части ПРОПОРЦИОНАЛЬНО полученной норме для каждого города.

(14) В социальном государстве лучше прибавлять к минимальной сумме.

а теперь в запросе и так, чтобы копейки не терялись :)))

лично у меня - УГ получилось :)

(20)
declare t table (id int, b decimal)
declare @sum as decimal

insert t values (1, 100), (2, 50)

set @sum = 200

select
   cast(@sum / (SUM(b) OVER()) * b as decimal(15,2)) AS t
from
   t

Усложним задачу:
Есть главный документ.
Сумма документа = 150
Нал = 50
БезНал = 100

Он делится на 2 документа.

Первый Документ
Сумма = 80
Нал = ?
БезНал = ?

Второй Документ
Сумма = 70
Нал = ?
БезНал = ?

Вот как тут рассчитать оплату из главного документа ?

(22) распредели сумму в 100 пропорционально между 3 одинаковимы значениями, чтобы копейки не потерялись

*одинаковыми

типа
100 + 100 + 100 + 100 => 133,34 + 133,33 + 133,33

(14) В исходной задаче две суммы... В случае, если у одной суммы будет 0,3333333333333 - значит у другой 0,6666666666666. В общем, при округлении все будет хорошо. Вот если было три суммы (и более)... Возникла бы ситуёвина, когда одному 0,3333333333333,   другому  0,3333333333333 и третьему столько же. В результате копеечки могут и не бить.

(27) решение таки должно быть универсальным

(0) размазывать нужно как в (6) но с одной оговоркой
отсортировать суммы по убыванию и последней сумме добавить остаток

Суть этого гемора такова:
Определенный товар продается на ИП, остальной на ООО (одна касса работает с двумя фискальниками), до того пока не подключили банк все было нормально, вчера подключили...

т.е.
Один Чек ККМ делится на два в зависимости от товара.

(Fragster
Отклонение = 0;

Для Каждого Строка Из ТЗ Цикл
   Результат = НужныйРезультат * Строка.Основание / База + Отклонение;
   Отклонение = (Результат - Окр(Результат, 2));
   Строка.Результат = Окр(Результат, 2);
КонецЦикла;

Это 1с розница, программно деление чека выглядит так:

   Если Константы.ДваФР.Получить() Тогда
       Запрос = Новый Запрос("
       |ВЫБРАТЬ * ПОМЕСТИТЬ ТабТов ИЗ &ТабТов КАК ТТ;
       |ВЫБРАТЬ *
       |ИЗ
       |    ТабТов КАК Товары
       |ГДЕ
       |    Товары.Номенклатура.ТоварОрганизации = &Организация");
       Запрос.УстановитьПараметр("ТабТов", Товары.Выгрузить());
       ВремКассаККМ = КассаККМ;
       Оплаты = Оплата.Выгрузить();
       Организации = Справочники.Организации.Выбрать();
       Пока Организации.Следующий() Цикл
           Если Организации.Ссылка = Магазин.ОсновнойСклад.Организация Тогда;
               Организация = Справочники.Организации.ПустаяСсылка();
           Иначе
               Организация = Организации.Ссылка;
           КонецЕсли;
           Запрос.УстановитьПараметр("Организация", Организация);
           Результат = Запрос.Выполнить();
           Если Не Результат.Пустой() Тогда
               ЭтотОбъект.Товары.Загрузить(Результат.Выгрузить());
               ФР = ПолучитьСерверТО().ПолучитьИдентификаторПоИдКассы(Организация);
               Если ЗначениеЗаполнено(Организация) И Не ПустаяСтрока(ФР) Тогда
                   КассаККМ = ПолучитьСерверТО().ПолучитьКассуККМ(ФР);
               Иначе
                   КассаККМ = ВремКассаККМ;
               КонецЕсли;
               ИтогСуммы = Товары.Итог("Сумма");
               ИтогОплат = Оплаты.Итог("Сумма");
               Если ИтогСуммы <> ИтогОплат Тогда
                   ЭтотОбъект.Оплата.Загрузить(Оплаты);
                   Для Каждого ФормаОплат Из Оплата Цикл
                       
                       //???????????????????????????????
                       
                   КонецЦикла;
               КонецЕсли;
               ЗавершитьЗакрытиеЧека2(Печать, РучнойРежим, ВыбратьДокументПечати, ФР);
           КонецЕсли;
       КонецЦикла;
   Иначе
       ЗавершитьЗакрытиеЧека2(Печать, РучнойРежим, ВыбратьДокументПечати);    
   КонецЕсли;

(32) запросом же

(34)Если использовать временные таблицы, то можно распределить результат, а остаток оставить на максимальной/минимальной строке

Получилось как то так:
...
                       Для Каждого ФормаОплат Из Оплата Цикл
                           Если ПервыйПроход Тогда
                               СуммаОплаты = ИтогСуммы * Окр(ФормаОплат.Сумма / ИтогОплат, 2);
                               СписокОплат.Добавить(ФормаОплат.Сумма - СуммаОплаты);
                               ФормаОплат.Сумма = СуммаОплаты;
                           Иначе
                               ФормаОплат.Сумма = СписокОплат.Получить(ФормаОплат.НомерСтроки - 1).Значение;
                           КонецЕсли;
                       КонецЦикла;
                       ПервыйПроход = 0;
...

(36) В УТ или УПП глянь документ доп. расходы. Там есть алгоритм распределения суммы по кол-ву или объему

тупые 1с ники

(37)Нормально работает, на разных суммах проверял.
(38)Так скажите как тупому 1с-нику сделать все правильно в (33) и (36)

возьмите хоть из УПП типовой что ли... там и то адекватнее написано

а куда цветовыделение кода 1С делось?

(36) Ошибки округления будут при таком расчете

Трандец, модуль "ОбщегоНазначения" отобрали у автора?

(40)Если бы у них все было адекватно и работало, не было бы этого форума.
(42)Нормально все работает, копейки нигде "не провисают", в отличии от типовых процедур +- 0.01 руб.