/>
. 3 Лістинг програми
Derevo;
uses crt;: array [1..100,1..100] of integer;, q: array [1..105] of integer;,z,i,j,z:longint;Derevalgor;,pe,max,min,k,I,j,x:longint:=1;:=1;:=0;:=0;:=z;[k]:=1;[ps]:=k;i:=1 to n doj:=1 to n doa [i, j] gt; max then begin:=a [i, j] ;;;:=max + 1; ps lt;=n do begin:=max; i:=1 to n do (a [k, i] lt; gt; 0) and (posetil [i] lt; gt; 1) and (a [k, i] lt; min) then begin:=a[k,i];:=i;;:=c+a[k,x];:=pe+1;[pe]:=x;[x]:=1;:=ps+1;:=q[ps];;:=c+a[n,z];:=n+1;[n]:=q[1];;;(laquo;Vvedite kol-vo gorodov: ); (n); ( Vvedite gorod s kotorogo sleduet nachat ); (z); i:=1 to n doj:=1 to n do (i=j) then a [ i, j]:=0; (i lt; j) then ( Vvedite rasstoyanie v ycheiku (a [, i, , , j, ] =) ); (a [i , j]); [j, i]:=a [i, j] ;;; i:=1 to n doj:=1 to n do (a [i, j],: 4) ;;;;; ( put po derevynnomu algoritmu: ); i:=1 to n do (q [i],: 4) ;; ( tur ); (c);
writeln ;;.
Література
1) В.П.Агальцов, І.В.Волдайская.- Математичні методи в програмуванні.
