Шпоры по МПиПА / Графы / Существование пути между 2 вершинами / Pascal / Описание / Определение существования пути между двумя вершинами

Определение существования пути между двумя вершинами.

Входные данные функции – число вершин графа, матрица смежности и вершины, между которыми нужно определить наличие пути.

Выходные данные функции – TRUE – если путь существует; FALSE – если нет.

Код: existWay.pas.

Исполняемый файл: existWay.exe.

Примеры использования:

Exist way.

Enter graph dimension: 4

Enter 1 row: 1 1 0 0

Enter 2 row: 0 0 1 0

Enter 3 row: 0 0 0 1

Enter 4 row: 0 1 0 0

Enter From Node: 1

Enter To Node: 4

Question: Exist way from 1 to 4?

Answer: TRUE

Press Enter to continue...

Exist way.

Enter graph dimension: 5

Enter 1 row: 0 0 1 0 0

Enter 2 row: 0 0 0 0 1

Enter 3 row: 1 0 0 1 0

Enter 4 row: 0 1 0 0 1

Enter 5 row: 0 1 0 1 0

Enter From Node: 2

Enter To Node: 1

Question: Exist way from 2 to 1?

Answer: FALSE

Press Enter to continue...