Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

Курсовая работа - Решение задачи коммивояжера - файл 2.5 стр23.doc


Курсовая работа - Решение задачи коммивояжера
скачать (194.4 kb.)

Доступные файлы (21):

1.1, 1.2 стр5.doc34kb.20.01.2009 14:21скачать
1.1 стр4.doc32kb.26.12.2005 12:31скачать
1.2 стр6.doc27kb.20.01.2009 14:23скачать
1.2 стр7.doc25kb.20.01.2009 14:23скачать
1.3 стр8.doc54kb.20.01.2009 14:24скачать
1.4 стр9.doc27kb.20.01.2009 14:25скачать
1.6 стр15.doc33kb.20.01.2009 14:27скачать
1.6 стр16.doc30kb.20.01.2009 14:26скачать
2.2, 2.1, 2.2, 2.3 стр19.doc322kb.01.06.2009 20:20скачать
2.4 стр20.doc33kb.01.06.2009 20:19скачать
2.4 стр21.doc25kb.20.01.2009 14:16скачать
2.5 стр22.doc25kb.20.01.2009 14:16скачать
2.5 стр23.doc25kb.20.01.2009 14:16скачать
2.5 стр24.doc25kb.20.01.2009 14:16скачать
2.5 стр25.doc23kb.20.01.2009 14:16скачать
Введение стр2.doc35kb.20.01.2009 14:17скачать
Введение стр3.doc24kb.20.01.2009 14:17скачать
Заключение стр24.doc24kb.20.01.2009 14:18скачать
Лист задания.doc33kb.07.12.2004 11:35скачать
Литература стр26.doc25kb.20.01.2009 14:19скачать
Приложение стр25.doc48kb.20.01.2009 14:19скачать

2.5 стр23.doc


p[j]:=p[k];

p[k]:=t;

j:=j+1;

k:=k-1;

end;

end;

procedure perestarray(m:byte);

var i,t:byte;

begin

if m=1 then path(p)

else for i:=1 to m do

begin

perestarray(m-1);

if i<m then

begin

t:=p[i];

p[i]:=p[m];

p[m]:=t;

reverse(m-1);

end;

end;

end;

function b:integer;

var i:Byte;

t:integer;

begin

t:=0;

for i:=1 to n do

begin

t:=t+a[i,p[i]];

end;


2301055905000ПЗ


Лист

Дата

Подпись

№ документа

Лист

Изм.

23



Скачать файл (194.4 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации