Курсовая работа: Гамильтоновы графы и сложность отыскания гамильтоновых циклов

stro:text;

procedureini_b; //модифицирование матрицы смежности (из А создаем В)

var i,j:integer;

begin;

for i:=1 to n do

for j:=1 to n do

b[i,j]:=a[i,j]*j;

end;

procedureini_p1; // Формирование матрицы из А

var i,j:integer;

s_i,s_j:string[3];

f1:text;

begin;

for i:=1 to n do

for j:=1 to n do

begin;

str(i,s_i); if i<10 then s_i:='00'+s_i else if i<100 then s_i:='0'+s_i;

str(j,s_j); if j<10 then s_j:='00'+s_j else if j<100 then s_j:='0'+s_j;

assign(f1,'vrm\p'+s_i+s_j+'.txt');

rewrite(f1);

if a[i,j]<>0 then writeln(f1,a[i,j]:4);

close(f1);

end;

end;

procedure multi_B_P1(nom:integer); //перемножениематрициВ,

запись результата в

varii,i,j,k,s,ip:integer;

s_i,s_j,s_k:string[3];

f1,f2:text;