[demda]

всем доброго вечера, у меня следующая проблема, не кодил на делфе уже года 2, если не больше, а тут очень срочная нужна написать небольшую функцию. Логическое написание простое, это я сделал на другом языке, но надо именно на делфи. Помогите пожалуйста, кто может )
Задание такое:

Требуется: 
Необходимо реализовать функцию, выполняющую распределение указанной суммы с учетом типа распределения. Если способ распределения - пропорционально, то распределять сумму пропорционально суммам, остаток от округления добавить к последней сумме, чтобы общая сумма совпала. Если в счет первых, то распределять на всю сумму по порядку. Если в счет последних, то распределять на всю сумму в обратном порядке.
В задании использовать округление до копеек.
Входные параметры: 
•	Тип распределения – признак: «ПРОП», «ПЕРВ», «ПОСЛ»;
•	Сумма - дробное число (точность – 2 знака после разделителя), распределяемая сумма;
•	Суммы - строка, список сумм через «;» в соответствии с которыми распределяется сумма;

Выходной параметр: строка, список распределенных сумм через «;».

Пример: 
Вход:
Тип распределения - пропорционально (ПРОП) 
Сумма - 10000
Суммы - 1000;2000;3000;5000;8000;5000
Выход: 416.67;833.33;1250;2083.33;3333.33;2083.34

Вход:
Тип распределения - в счет первых (ПЕРВ)
Сумма - 10000
Суммы - 1000;2000;3000;5000;8000;5000
Выход: 1000;2000;3000;4000;0;0

Вход:
Тип распределения - в счет последних (ПОСЛ)
Сумма - 10000
Суммы - 1000;2000;3000;5000;8000;5000
Выход: 0;0;0;0;5000;5000

Требования к решению
Возможные языки:  любые .NET, Delphi.

логически все легко понимаемо, если один тип ПРОП, то суммируем числа, сумму делим на нужную сумму, получаем коэфицент и каждое число делим на него по отдельности, округляя до 2 знака и апоминая остаток, на 6 числе добваить сумму остатков. Ну и потому же принципу остальные два типа: Вписываем подряд максимально возможноые числа по порядку до тех пор, пока сумма не будет равнятся нужной сумме, и в третьем то же самое, только с конца.
Совсем забыл делфи, очень прошу помощи. Надо очень срочно(

[Bars1992]

Задача мне понравилась. Берусь за написание) Тринеровки никогда не лишние

[lmikle]

Да тут дельфи нипричем, т.к. в основном сплошная арифметика. На любом языке это будет примерно одинаково.

[Aristarh Dark]

Примерно так:

Код:

type
  TDistrib = (PROP,FIRST,LAST);
  TSumCollect = array of single;
function Distrib(aType:TDistrib;Sum:Single;aCollection:TSumCollect):TSumCollect;
var
  i:integer;
  AllSumm:single;
begin
  SetLength(Result,Length(aCollection));
  FillChar(Result,SizeOf(Single)*Length(Result),#0);
  case aType of
    FIRST:
      begin
        i:=Low(aCollection);
        While (Sum>0) and (i<High(aCollection)) do
          if Sum>aCollection[i] then
            begin
              Result[i]:=aCollection[i];
              Sum:=Sum-aCollection[i];
              inc(i)
            end
          else
            begin
              Result[i]:=Sum;
              Sum:=0;
            end;
      end;
    LAST:
      begin
        i:=High(aCollection);
        While (Sum>0) and (i>Low(aCollection)) do
          if Sum>aCollection[i] then
            begin
              Result[i]:=aCollection[i];
              Sum:=Sum-aCollection[i];
              dec(i)
            end
          else
            begin
              Result[i]:=Sum;
              Sum:=0;
            end;
      end;
    PROP:
      begin
        AllSumm:=0;
        for i:=Low(aCollection) to High(aCollection) do
          AllSumm:=aCollection[i]+AllSumm;
        for i:=Low(aCollection) to High(aCollection) do
          Result[i]:=Sum*(aCollection[i]/AllSumm);
      end;
  end; {of case}
end;

В работе не проверял, вроде компилится Не уверен я в выделенных сравнениях, "плавающие" так не сравниваются. Но т.к. уже час ночи а завтра на работу - дорабатывайте сами

[demda]

первый код получил, щас буду разбираться в связкам, так сказать что с чем кушать)
Барс, жду еще твоего кода)
Если еще желающие будут написать свой код, буду только рад, лучше сам разберусь и надеюсь вспомню основы делфи )

[Bars1992]

http://depositfiles.com/files/pjm1yqrod

Вот польностью готовая программа. Только вод в режиме «ПРОП» она хоть и щетает остачю от делений и добовляет к последнему елементу но всё равно в итоге одной копейки не хватает так как остача слишком мала. Если не сможешь сам испраить попросищь я доведу до ума. В программе использовались компоненты пакета Alpha skins

[demda]

Спасибо больщушее, щас посмотрю. Думаю с остатком уже разберусь, поскольку это больше логическое доведение системы до "ума"