Цель: есть машина (известен объем и вес машинны), необходимо подобрать заявки в эту машину!

Перем ЛучшаяГрузоподъмностьМашиныДельта,ЛучшийОбъемМашиныДельта;
Перем ТЗ;

   ОбъемМашины = Автомобиль.ОбъемКузова;
   ГрузоподъмностьМашины = Автомобиль.Грузоподъмность;
   ЛучшийОбъемМашины = 0;
   ЛучшаяГрузоподъмностьМашины = 0;
   ЛучшийОбъемМашиныДельта = Автомобиль.ОбъемКузова;
   ЛучшаяГрузоподъмностьМашиныДельта = Автомобиль.Грузоподъмность;
   
   ТЗ.Сортировать("ВесБрутто-,Объем-");
   ТЗ.Заполнить(0,,,"ТемпОбъем,ТемпВес,ВыбОбъем,ВыбВес");
   Рюкзак(ТЗ,ОбъемМашины,ГрузоподъмностьМашины);
   ТЗ.Заполнить(0,,,"ТемпОбъем,ТемпВес");


Функция Рюкзак(ТЗ,ОбъемМашины,ГрузоподъмностьМашины,знач нач=0)
    Если (ОбъемМашины = 0) и (ГрузоподъмностьМашины = 0) Тогда
        ТЗ.ВыбратьСтроки();
        Пока ТЗ.ПолучитьСтроку()=1 цикл
            ТЗ.ВыбОбъем = ТЗ.ТемпОбъем;
            Тз.ВыбВес = ТЗ.ТемпВес;
        КонецЦикла;    
        ЛучшаяГрузоподъмностьМашиныДельта = 0;
        ЛучшийОбъемМашиныДельта = 0;
        возврат 0; // нашли точное соответствие
    ИначеЕсли (ОбъемМашины < 0 ) и (ГрузоподъмностьМашины < 0 ) Тогда
        возврат 1;  // перебор
    ИначеЕсли (ОбъемМашины < ЛучшийОбъемМашиныДельта) и (ГрузоподъмностьМашины < ЛучшаяГрузоподъмностьМашиныДельта) Тогда    
        ТЗ.ВыбратьСтроки();
        Пока ТЗ.ПолучитьСтроку()=1 цикл
            ТЗ.ВыбОбъем = ТЗ.ТемпОбъем;
            ТЗ.ВыбВес = ТЗ.ТемпВес;
        КонецЦикла;    
        ЛучшийОбъемМашиныДельта = ОбъемМашины;
        ЛучшаяГрузоподъмностьМашиныДельта = ГрузоподъмностьМашины; // улучшили решение
    КонецЕсли;
    Если нач=ТЗ.КоличествоСтрок() Тогда
        возврат 1; // пробежали до конца
    КонецЕсли;    
    нач=нач+1;  
// ТУТ ГДЕТО ОШИБКА НЕ МОГУ РАЗОБРАТЬСЯ//////////////////////////
    а = ТЗ.ПолучитьЗначение(нач,"Объем");
    в = ТЗ.ПолучитьЗначение(нач,"ВесБрутто");
    Пока (а>=0)  и (в>=0) цикл  
        ТЗ.УстановитьЗначение(нач,"ТемпОбъем",а);
        ТЗ.УстановитьЗначение(нач,"ТемпВес",в);
        Если Рюкзак(ТЗ,ОбъемМашины-ТЗ.ПолучитьЗначение(нач,"Объем"),ГрузоподъмностьМашины-ТЗ.ПолучитьЗначение(нач,"ВесБрутто"),нач)=0 Тогда
            возврат 0;  
        КонецЕсли;    
    КонецЦикла;    
    возврат 1;
КонецФункции

Подскажите где в функции ошибки?

Если Рюкзак(ТЗ,ОбъемМашины-ТЗ.ПолучитьЗначение(нач,"Объем"),ГрузоподъмностьМашины-ТЗ.ПолучитьЗначение(нач,"ВесБрутто"),нач)=0 Тогда

Например: ОбъемМашины = 23,ТЗ.ПолучитьЗначение(нач,"Объем") = 25 , следовательно получается минус и все!!!!!!!!!!!!!!

лень смотреть, отладчик рулит в таких случаях

(0)
NS у нас знатный "турист" по рюкзакам - его пытай.

(2) не лень , я сам писал почти весь код, прост никак не разберусь с этой засадой

"Рюкзак" вызывается рекурсивно, это так задумано или сюда скопипастено неверно?

набираем в вики "задача о рюкзаке" - там есть все что надо...
на основе NS-рекурсивного алгоритма у меня заявка бъется по палетам.
Объем набирать "кучей" - можно сильно промахнуться...
www.packer3d.ru

У меня в заявке есть объем и вес заявки, следовательно есть автомобиль - у него проставлено вес и объем и мне нужно набрать....вроде как (0) все нормально набирает, только вот (1) есть такой косяк

(7) у тебя как минимум, есть моменты, когда в самый низ проваливается сразу

(8) т.е в самый низ?

http://forum.infostart.ru/forum24/topic44805/

ды код то не надо менять , он правильно работает, только вот (1) глючит на "-"

(11) правильно работает, но только глючит на "-" - называется неправильно работает

просто вот тут нуно как то подправить:
   а = ТЗ.ПолучитьЗначение(нач,"Объем");
    в = ТЗ.ПолучитьЗначение(нач,"ВесБрутто");
    Пока (а>=0)  и (в>=0) цикл  
         ТЗ.УстановитьЗначение(нач,"ТемпОбъем",а);
         ТЗ.УстановитьЗначение(нач,"ТемпВес",в);
        Если Рюкзак(ТЗ,ОбъемМашины-ТЗ.ПолучитьЗначение(нач,"Объем"),ГрузоподъмностьМашины-ТЗ.ПолучитьЗначение(нач,"ВесБрутто"),нач)=0 Тогда
            возврат 0;  
        КонецЕсли;    
    КонецЦикла;    
    возврат 1;
КонецФункции

(13) догадливый однако

Функция Рюкзак(ТЗ,ОбъемМашины,ГрузоподъмностьМашины,ЗНАЧ НАЧ=0)
...
НАЧ = НАЧ + 1;
...
У тебя НАЧ не меняется и всегда = 1

Апну тему: уважаемые специалисты, а как называется (или ключевые слова для поиска) решение задачи, подобной рюкзаку, когда надо не просто разложить товар по машине, но и при этом минимизировать количество машин, вот пример:

Есть груз общим весом 1500 + 500 = 2000 кг (сумма двух заказов)
есть две машины, первая (М1): макс.вес=1500 кг, вторая (М2) - макс.вес=3000 кг. При загрузке компьютер старается заполнить машину по максимуму, поэтому он распределяет так: М1: 1500, М2: 500 (недогруз 2500). В то время как было бы правильно послать только М2 с недогрузом 1000 кг. Но раз он на каждом проходе выбирает только одну машину, то он решает, что загрузить М1 по самую крышу - это лучшее, что можно сделать.
Чтобы понять, как это сделать надо хотя бы слова ключевые, а с этим - напряг.

(16) Задача линейного программирования.
Что-то типа функции Издержки() составь и её минимизируй. Только, кажется, она должна быть линейной. Ну, может, кусочно-линейной - хотя при этом расчёт надо повторить для каждого куска линейности целевой функции.

(17) Не совсем, т.к. нельзя использовать 1,5 машины.
(16) Могу попробовать ветвями и границами. если пришлете пример исходных данных (мыло в профиле).

Есть старая книжка
И.В. Романовский "Алгоритмы решения экстремальных задач",М.Наука,1977.
Там много формулировок и решений дискретных оптимизационных задач, тексты на Алголе.