Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
DevioLab
CRYPTO TRADING AUTOMATION
LIVE
AUTOMATED CRYPTO TRADING • BINANCE
Автоматизуйте свій
криптопортфель
Торгові боти DevioLab аналізують крипторинок,
автоматично відкривають і закривають позиції
та керують вашим портфелем на Binance 24/7.
CRYPTO
80 Bots
BINANCE
Spot Trading
TRADING
24 / 7
deviolab.com
Графи. Обхід графу. Пошук.
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра інформаційних систем та мереж
Інформація про роботу
Рік:
2012
Тип роботи:
Лабораторна робота
Предмет:
Інші
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет «Львівська Політехніка»
Кафедра
Інформаційних
систем та мереж
Лабораторна робота №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.
Результати виконання програми:
Висновки:
При виконанні даної роботи я набув практичних навичок програмування графів.
30.11.2012 00:55
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора