Преподаватель ____________ /Крохина Н.В./
Студент группы ДМ 2-26 ___________ /Толоконников А.В./
г. Байконур
2002 г.
1. Задача
Составить алгоритм перехода к графическому представлению для неориентированного графа и реализовать его программным путем, если граф задан матрицей смежностей.
2. Алгоритм решения, поставленной задачи
Возможно вы искали - Курсовая работа: Динамические структуры данных. Решение задач. Стек. Очередь. Дек
1) Вводится количество вершин неориентированного графа.
2) Если количество вершин больше 7, то переходим к пункту 3; иначе переходим к пункту 4.
3) Генератором случайных чисел произвольно задаются связи между вершинами в матрице смежностей, переходим к пункту 5.
4) Вводятся связи между вершинами, исходя из следующего условия: не существует пути длиной в одно ребро из одной вершины в другую – ставим «0», существует путь между двумя вершинами длиной в одно ребро – ставим «1», существует путь из вершины в саму себя – ставим «2». Все введенные данные заносятся в матрице смежностей.
5) В зависимости от количества введенных вершин производится разбиение экрана на N секторов относительно центра экрана.
Похожий материал - Курсовая работа: Исследование метода дифференцирования по параметру для решения нелинейных САУ
6) На граничных линиях секторов на одинаковом удалении от центра экрана выводим вершины.
7) Производим чтение из матрицы смежностей. Если связь между вершинами есть, то выводим на экран отрезок, соединяющий одну вершину с другой, если связи нет - рассматриваем следующую связь. Если связь циклическая изменяем цвет вершины с зеленого на коричневый.
3. Распечатка программы решения задачи
ProgramGraphs;
UsesCrt, Graph;
Очень интересно - Курсовая работа: Исследование метода продолжения решения по параметру для нелинейных САУ
Const
M=25; {Предельное число вершин графа}
R=200; {Радиус окружности, на которой лежат вершины (центры окружностей)}
Type
Koor = Record
Вам будет интересно - Курсовая работа: Исследование неявного метода Эйлера для линейной системы ОДУ с постоянным и переменным шагом
X,Y: Integer
End;
MasKoor = Array[1..M] Of Koor;
Smezno = Array[1..M,1..M] of Integer;
Var
Похожий материал - Курсовая работа: Інтерполювання функцій
Driver, Mode,
N,I,J: Integer; {Количество вершин графа}
A: MasKoor;
B: Smezno;