метод декомпозиции Данцига-Вульфа Опции

[Misha1991]

Ребят нужна прога по вышеуказанному методу! Кто сможет помочь пишите! Прилагаю прогу по данному методу,но там куча ошибок!

[Федосеев Павел]

Misha1991, твоя прога даже не откомпилироалась.
Я использую FreePascal 2.6.2. Остановка компиляции по ошибке в строке 147

                     for i := 1 to cv_ug_1 do
                     for j := 1 to ch_1 do
                     for i := 1 to cv_ug_2 do
                      for j := 1 to ch_2 do

Здесь явно видно четыре вложенных цикла с одинаковыми переменными.
Компилятор ещё что-то перечисляет. Но этих строк уже достаточно.

Спойлер (Показать/Скрыть)

Позволю себе привести несколько строк из исходника

                   for i := 1 tonl do
                    for j := 1 to n do
                     a_bs[I,j] := a_ss[I,j];
                       end;

                       begin
                       myapp.init;
                       myapp.run;
                        myapp.done;
                          end.

Не подумай, что я придираюсь - мне действительно интересно каким образом можно ТАК отформатировать набор программы. Ведь ни копирование из другого источника, ни набор руками не должен приводить к постоянному смещению начала строк. Как ты добился этого?

В твоей программе переплелись ошибки процедуры решения задачи с ошибками обращения с TurboVision (почти 800 строк). И всё это щедро приправлено форматированием.

Не вдаваясь в дальнейшее изучение исходника, предлагаю забыть о нём, как о страшном сне.
Начни всё заново.
Сделай простую программу, в код которой будет "вшито" условие задачи - чтобы не вводить во время отладки по много раз одни и те же матрицы и массивы. Попробуй создать процедуру для решения этой задачи и оформи вывод на экран. Потом, применяя TV, можно будет оформить ввод условия и вывод решения.
Что будет не получаться - обращайся.
Начинай с отладки процедуры решения.

[Гость]

Misha1991, твоя прога даже не откомпилироалась.
Я использую FreePascal 2.6.2. Остановка компиляции по ошибке в строке 147

                     for i := 1 to cv_ug_1 do
                     for j := 1 to ch_1 do
                     for i := 1 to cv_ug_2 do
                      for j := 1 to ch_2 do

Здесь явно видно четыре вложенных цикла с одинаковыми переменными.
Компилятор ещё что-то перечисляет. Но этих строк уже достаточно.

Спойлер (Показать/Скрыть)

Позволю себе привести несколько строк из исходника

                   for i := 1 tonl do
                    for j := 1 to n do
                     a_bs[I,j] := a_ss[I,j];
                       end;

                       begin
                       myapp.init;
                       myapp.run;
                        myapp.done;
                          end.

Не подумай, что я придираюсь - мне действительно интересно каким образом можно ТАК отформатировать набор программы. Ведь ни копирование из другого источника, ни набор руками не должен приводить к постоянному смещению начала строк. Как ты добился этого?

В твоей программе переплелись ошибки процедуры решения задачи с ошибками обращения с TurboVision (почти 800 строк). И всё это щедро приправлено форматированием.

Не вдаваясь в дальнейшее изучение исходника, предлагаю забыть о нём, как о страшном сне.
Начни всё заново.
Сделай простую программу, в код которой будет "вшито" условие задачи - чтобы не вводить во время отладки по много раз одни и те же матрицы и массивы. Попробуй создать процедуру для решения этой задачи и оформи вывод на экран. Потом, применяя TV, можно будет оформить ввод условия и вывод решения.
Что будет не получаться - обращайся.
Начинай с отладки процедуры решения.

Всё достаточно просто! Программа не моя,забрал чтобы сдать... а тут такое что сам в шоке! Павел я,к сожалению,в это практически не смыслю,поэтому не могли бы вы взяться за мою проблему(естественно не за спасибо)?