; I: = 0 to High (Vertex) do Vertex [I]. _vertex: = -1; [VertexSrc -1]. _vertex: = 0; (VertArr, 1); [0]. _vertex: = VertexSrc;// задаємо початковий вузол
Memo1.Lines.Add ('Процес рекурсії:');;: = VertexDest - 1;// рахуємо вартість маршруту
Res: = IntToStr (VertexDest);: = 0; Vertex [I]. _vertex> 0 do: = IntToStr (Vertex [I]. _vertex) + '-' + Res;: = Sum + Vertex [I]. _data;: = Vertex [I]. _vertex - 1;;// ---------------. Lines.Add (# 13 # 10 + 'Рішення : '+
# 13 # 10 + 'Маршрут з мінімальною вартістю ребер:' + Res +
# 13 # 10 + 'Повна вартість маршруту:' + IntToStr (Sum));
end; TForm1.cmdDelClick (Sender: TObject); I: Integer; (Grid). DeleteRow (Grid.Selection.Top); Grid.RowCount = 1 then.RowCount: = 2;. FixedRows : = 1; I: = 0 to 2 do Grid.Cells [I, Grid.RowCount - 1]: = '0 ';;; TForm1.txtVertexChange (Sender: TObject); (txtVertex.Text, VertexCount);; TForm1 . txtSrcChange (Sender: TObject); (txtSrc.Text, VertexSrc);; TForm1.txtDestChange (Sender: TObject); (txtDest.Text, VertexDest);; TForm1.txtHandlerKeyPress (Sender: TObject; var Key: Char); not ((Key in ['0 '.. '9']) or (Key = # 8)) then: = # 0;;;;
end.
