Міністерство освіти і науки України Національний університет «Львівська Політехніка» Кафедра Інформаційних систем та мереж Лабораторна робота №8 на тему Графи. Обхід графу. Пошук. Львів – 2008 Мета роботи: набуття навичок програмування графів. Постановка завдання Забезпечити зберігання графа у вигляді матриці суміжності. Індивідуальне завдання: 8  Дерево - це зв'язний ациклічний (що не має циклів) граф. Кожен граф, що не містить циклів, називається лісом. Представити алгоритм, що визначає, чи є граф деревом.   Текст програми: program Project1; {$APPTYPE CONSOLE} uses SysUtils, WIN_CRT in 'WIN_CRT.pas'; const n=4; var m: array [1..n,1..n] of boolean; x,y,pcnt_tmp: integer; Begin WriteLn('Enter matrix 4x4:'); For x:=1 to n do For y:=1 to n do Begin GoToXY(x*2,y); Read(pcnt_tmp); m[x,y]:=pcnt_tmp=1; end; pcnt_tmp:=0; For x:=1 to n do For y:=1 to n do If m[x,y] and m[y,x] and (x<>y) then Inc(pcnt_tmp); If pcnt_tmp<8 then WriteLn('Graph isn`t cyclic') else WriteLn('Graph is cyclic'); ReadLn; end. Результати виконання програми:

Висновки: При виконанні даної роботи я набув практичних навичок програмування графів.