естирование программного продукта

Min:=MaxInt;

// ищем ребро с минимальным весом в оба направления

for I:=0 to High(Massiv) do(Massiv[I]._weight < Min) and not (Massiv[I]._checked) thenInArr(VertArr, Massiv[I]._start) and (Vertex[Massiv[I]._end - 1]._vertex = -1) then:=Massiv[I]._weight;:=I;:=False;if InArr(VertArr, Massiv[I]._end) and (Vertex[Massiv[I]._start - 1]._vertex = -1) then:=Massiv[I]._weight;:=I;:=True;;;

// -------------------------not Bool then

_from:=Massiv[MinPos]._start;

_to:=Massiv[MinPos]._end;

_to:=Massiv[MinPos]._start;

_from:=Massiv[MinPos]._end;;.Lines.Add('Нашли минимальный вес ребра - ' + IntToStr(Min) + ' из ' + IntToStr(_from) + ' в ' + IntToStr(_to));

// вычитаем из стоимости всех проверенных ребер стоимость наименьшего

for I:=0 to High(Massiv) do(not Massiv[I]._checked) and (InArr(VertArr, Massiv[I]._start) or InArr(VertArr, Massiv[I]._end)) then[I]._weight:=Massiv[I]._weight - Min;Massiv[I]._weight = 0 then[_to - 1]._vertex:=_from;[_to - 1]._data:=Massiv[MinPos]._initial;

end;;

// ------------------------------------

// заносим в список вершин очередную, к которой ведет ребро с минимальным весои

SetLength(VertArr, Length(VertArr) + 1);not Bool then VertArr[High(VertArr)]._vertex:=Massiv[MinPos]._endVertArr[High(VertArr)]._vertex:=Massiv[MinPos]._start;

// и отмечаем ребро с мин. стоимостью

Massiv[MinPos]._checked:=True;.ProcessMessages;

// звем рекурсию для добавленной в список вершины

Process;;Res:string;:Integer;VertexSrc = VertexDest then(Handle, 'Исходный и конечный пункты совпадают', '', MB_ICONEXCLAMATION);;;(VertexCount < VertexSrc) or (VertexCount < VertexDest) then

begin(Handle, 'Неверное значение источника или назначения', '', MB_ICONEXCLAMATION);

Exit;;.Clear;(Massiv, Grid.RowCount - 1);I:=0 to High(Massiv) do[I]._start:=StrToInt(Grid.Cells[0, I+1]);[I]._end:=StrToInt(Grid.Cells[1, I+1]);[I]._weight:=StrToInt(Grid.Cells[2, I+1]);[I]._initial:=Massiv[I]._weight;[I]._checked:=False;;(Vertex, VertexCount);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.