$s) { $l[$b[$j][$i]] = $s; $p[$b[$j][$i]] = $j; } } } $s = $l_max; for ($k=0; $k < $nv; $k++) { if (!$c[$k]) { if ($s > $l[$k]) { $s = $l[$k]; $i = $k; } } } $c[$i] = true; return $i; } $start = 0; // Номери вершин, $finish = $nv-1; // між якими шукаємо шлях $c[$start] = true; $l[$start] = 0; $j = $start; while ($j!=$finish) $j=step($j); // Запис у вихідний файл fwrite($fo,$l[$finish]."\n"); // 1) довжини найкоротшого шляху; $j = $finish; // 2) послідовнисті номерів вершин шляху у зворотньому порядку $o = $j; while ($j!=$start) { $j = $p[$j]; $o = $o." $j"; } fwrite($fo,$o."\n"); fclose($fo); echo "Все зроблено!"; ?>