Курсовая работа: Выбор параметров контроля с использованием метода динамического программирования и метода ветвей и границ

freeid(workm);

end;

{ freeid(start_m);}

if best=maxint then

begin

writeln('Путьнесуществует');

end else

begin

writeln('Длинапути:',best);

for q:=1 to n do

if bestmatr[q]=0 then break;

e:=q;

for curr:=1 to n do

if bestmatr[curr]=q then break;

while true do

begin

write(curr,' ');

curr:=bestmatr1[curr];

if curr=0 then

begin

writeln(e);

break;

end;

end;

end;

close(input);

close(output);

end.

Вывод