Решение транспортной задачи методом потенциалов: не все тесты выполняются

@scandal111 · Регистрация: 29.05.2016

Всем доброго времени суток! У меня проблема в следующем. Нашел прогу в интернете по решению транспортной задачи с помощью методов потенциалов. забил контр. примеры в прогу...первый проходит, а остальные нет.. программа подвисает и все. Помогите мне разобраться почему так происходит? Может она переполняется где-то?

@Joey · 29.05.2016, 22:30

Сообщение от scandal111

забил контр. примеры в прогу

А что за примеры?

@scandal111 · 30.05.2016, 04:31 **[ТС]**

они на кнопках сделаны(example 1,2,3)..первый прошел, а остальные зависают...

@Joey · 31.05.2016, 13:13

Покопавшись в твоем чудо коде, нашел, по крайней мере, корень зла:
в процедуре ShiftPlan вызывается процедура Line, переменная flag становится true только в этой процедуре и только если

Delphi

1 2	if (x = x_m) and (vert = 0) then flag := true;

На примере 2 при первом вызове shiftplan при пробеге while переменная flag благополучно устанавливается в true, но уже при втором вызове ShiftPlan при сравнении

Delphi

1	if (a.Arr[index2,index] = f) then

в процедуре Line условие не выполняется и flag так и остается false, что дает традиционный уход while-а в бесконечность.
Вотъ

@Joey Джоуи 1073 / 635 / 240 Регистрация: 05.05.2015 Сообщений: 3,546 Записей в блоге: 2
	29.05.2016, 22:30	2
	Сообщение от scandal111 забил контр. примеры в прогу А что за примеры? 0

@scandal111 0 / 0 / 0 Регистрация: 29.05.2016 Сообщений: 2
	30.05.2016, 04:31 [ТС]	3
	они на кнопках сделаны(example 1,2,3)..первый прошел, а остальные зависают... 0

Опции темы