Logo GenDocs.ru

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

Загрузка...

Курсовая работа - Решение задачи коммивояжера - файл 2.5 стр22.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 стр22.doc


2.5 Текст программы

uses crt;

const n=6;

type mas=array [1..n] of byte;

var p:mas;

f:text;

a,r:array [1..n,1..n] of word;

i,j,pb,max,summa:byte;

code,sum:word;

s,ts:string;

procedure path(m:mas);

var i,j:byte;

s:word;

begin

s:=0;

for i:= 1 To n-1 do s:=s+a[m[i],m[i+1]];

s:=s+a[m[n],m[1]];

if s<=sum then

begin

for j:=1 to n do r[j,max]:=m[j];

sum:=s;

max:=max+1;

end;

end;

procedure reverse(k:byte);

var j,i,t:byte;

begin

j:=1;

while j<k do

begin

t:=p[j];


2301055905000ПЗ


Лист

Дата

Подпись

№ документа

Лист

Изм.

22



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

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

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