Граф.Заданы две системы двухсторонних дорог с одним и тем же множеством городов ...

[domovou]

Здравствуйте.
Вот сама задача:
заданы две системы двухсторонних дорог с одним и тем же
множеством городов (железные и шоссейные дороги).Найти минимальный по
длине путь из города А в горо В (который может проходить как по железным,
так и по шоссейным дорогам) и места пересадок с одного вида транспорта на другой на этом пути.

const MaxN = 50;
INF = 1000000000; {//"бесконечность"}

type Matrix = array[1..MaxN,1..MaxN] of longint; {//тип матрицы смежности. M[i,j] = true, если существует ребро,
идущее от вершины i к j }

var
A,A2 : Matrix;
N, S1, S2, N2,S11, S22: integer;
input, input2: text;

procedure Input_Table(var A : Matrix; N : longint; var T : Text); {//процедура ввода матрицы смежности A(N, N)
из текстового файла T }
var i, j : longint;
begin
    for i := 1 to N do
    begin
        for j := 1 to N do
        begin
            read(T, A[i, j]);
            if (a[i,j] = 0) and (i <> j) then a[i,j] := INF; {//вершины, которые не связаны ребром, будем обзначать
             "бесконечностью" ввиду ограничения на вес рёбер }
        end;
        readln(T);
    end;
end;



procedure Deikstr(s, s1 : integer); {//s, s1 - искомые вершины (необходимо найти путь от s до s1)}
var i, j, v, min, z : longint;
st, c : string;
visited : array[1..MaxN]of boolean; {//массив посещённости вершин}
D : array[1..MaxN] of longint; {//массив кратчайших расстояний }
P : array[1..MaxN] of integer; {//массив предков, который поможет определить маршрут. p[i] будет содержать
 предпоследнюю вершину кратчайшего маршрута от s до i}
begin
    for i := 1 to N do
    begin
        p[i] := s;
        visited[i] := FALSE;
    end;
    visited[s] := TRUE; {//вершина S посещена}

    for i := 1 to N do D[i] := A[s, i]; {//изначальный массив расстояний }
    D[s] := 0;

    p[s] := 0;

    for i := 1 to N-1 do {//на каждом шаге находим минимальное решение и пытаемся его улучшить}
    begin
        min := INF;
        for j := 1 to N do if (not visited[j]) and (D[j] < min) then
        begin
            min := D[j]; {//минимальное расстояние }
            v := j;{ //найденная вершина}
        end;
        for j := 1 to N do if (D[j] > D[v] + A[v, j]) and (D[v] < INF) and (A[v, j] < INF) then
        begin
            D[j] := D[v] + A[v, j]; {//пытаемся улучшить решение. Если в ней расстояние больше, чем сумма расстояния до текущей
             вершины и длины ребра, то уменьшаем его.}
            p[j] := v;
        end;
        s := v; {//новая текущая вершина  }
        visited[v] := TRUE; {//и она отмечается посещенной}
    end;

    st := ''; {//осталось преобразовать в формат вывода (мы проидёмся по всем вершинам кратчайшего пути от s до s1, но только в
     обратном порядке) }
    z := p[s1]; {//пока есть корневая вершина }
    while z <> 0 do
    begin
        str(z,c);
        st := c + '->' + st; {//заносим в маршрут }
        z := p[z]; {//переходим к следующей вершине}
    end;
    str(s1,c); {//в маршрут записываем начальную вершину}
    st := st + c;
    writeln(st);
end;

BEGIN
    assign(input,'input.txt');
    reset(input);
    readln(input, N, S1, S2);
    Input_Table(A, N, input);
    close(input);
    Deikstr(S1, S2);



END.

Я понял как найти мин расстояния из города А в город В, но как это сделать с двумя дорогами(шосейная и железная) не понимаю.
Заранее спасибо.

[VIK_aka_TOR]

как тебе идея сперва объединить эти 2 дороги, и смотреть как одну, без всяких маниокальных изощрений... и потом уже при выбраном коротком пути, смотреть с какой дороги на какую переходишь (повторный анализ файла на основе выбранного пути).