<р> зсапЕ ("% d", & A [я] [J]);
<р> /* Инициализация * /Сеть <р> для (я = 0; я
<р> v [я] = 65 + я;
<р> v0 = 'А';
<р> Статус [0] = '';
<р> расстояние [0] = 0;
<р> следующая [0] = '*';
<р> для (я = 1; я
<р> {
<р> статуса [я] = '? ';
<р> расстояние [я] = A [I] [0];
следующий [I] = v0;
}
/* обработка * /Сеть <р> для (J = 0, J
<р> {
<р> //ПЕЧАТЬ
<р> Е ("\\ nVERTEX | ");
<р> для (я = 0; я
<р> Е ("% С \\ т ", т [я]);
<р> Е (" \\ п ") ;
<р> для (я = 0; я
<р> Е ("---------");
<р> Е ("\\ nSTATUS |");
<р> для (я = 0; я
<р> Е ("% С \\ т", статус [я]);
<р> Е ("\\ nDIST |"); < ш>
для (я = 0; я
<р> Е ("% d \\ T", расстояние [я]);
<р> Е ("\\ nNEXT |");
<р> для (я = 0; я
<р> Е ("% С \\ т", следующий [я]);
<р> /* * ПРОЦЕССА /Сеть <р>, если (J
<р> {
<р> для (я = 1; '?' я
если (статус [я] ==)
<р> {
<р> = мин расстояние [я];
<р> г = я;
<р> вырваться;
<р>}
<р> для (я = 0; я <бр > <р>, если (статус [я] == && расстояние [я]
<р> {
<р> = мин расстояние [я] '?';
<р> г = я;
<р>}
<р> = v v1 [г];
<р> статус [R] = '';
<р> для (я = 0; я <бр > <р> {
<р>, если (статус [я] == '?' && расстояние [я]> (расстояние [г] + а [г] [я]))
<р> {
<р> расстояние [я] = расстояние [г] + а [г] [я];
<р> следующая [я] = v1,
<р>}
<р> }
<р> Геч ();
<р>}
<р> Е ("\\ п \\ п");
<р>}
<р> Е (" \\ п \\ Nthe края включены в spaning дерева: - \\ п \\ п ");
<р> для (я = 1; я
<р> Е ("% C% C ", следующий [ ,,,0],я], 65 + я);
<р> Е ("\\ п \\ п ** ВЕС минимальных SPANING дерево =");
<р> для (я = 1; я
< р> {
<р> для (J = 0, J
<р> {
<р>, если (рядом [я] == v [J])
<р> {< ш>
, если (я == п-1)
<р> Е ("% D", а [J] [я]);
<р> еще
<р> Printf ("% D +", а [у] [я]);
<р> S = S + а [у] [я];
<р> вырваться;
<р>} <ш > <р>}
<р>}
<р> Е ("\\ п \\ т \\ т \\ т \\ т =% d", с);
<р> Геч (); < ш> <р> Е ("\\ п \\ nSHORTEST РАССТОЯНИЕ ОТ \\ п");
<р> для (я = п-1;> 0; i--)
<р> {
<р> Е ("\\ п \\ т \\ т% С ->% с =% C ->% C", v [я], v0, v [я], рядом [я]);
<р> = v1 следующий [я];
<р> для (J = п-1; v1 = 'А';! j--)
<р> {
<р>, если ( v [J] == v1)
<р> {
<р> Е ("->% C", следующий [J]);
<р> = v1 следующий [J]; < ш> <р