Лабораторная работа: Графическое представление графа
SetColor(Red);
Line(A[I].X,A[I].Y,A[J].X,A[J].Y)
End
End;
{------------------------------------------------------------------}
Begin
ClrScr;
WriteLn('Вывод изображения графа на экран монитора');
Koordinata;
Smegnost;
Readln; {Задержкаэкрана}
Driver:=Detect;
InitGraph(Driver,Mode,'Egavga.bgi'); {Подключениеграфическогорежима}
Vivod;
Linia;
Readln;
Closegraph; {Отключение графического режима}
End.
неориентированный граф вершина матрица
4. Результаты работы программы для числа вершин равного 6
| Матрица смежностей вершин | ||||||
| A | B | C | D | E | F | |
| A | 0 | 0 | 1 | 0 | 0 | 1 |
| B | 0 | 0 | 1 | 1 | 0 | 1 |
| C | 0 | 1 | 0 | 0 | 1 | 1 |
| D | 1 | 0 | 1 | 2 | 1 | 0 |
| E | 0 | 0 | 1 | 0 | 2 | 0 |
| F | 1 | 0 | 1 | 0 | 1 | 2 |
