i:=1 to n do [i]:=1; i:=2 to n do:=1; (j lt;=Graph [i] .Count) and (Graph [i] .List [j] lt; i) doColor [i]=Color [Graph [i] .List [j]] Then [i]:=Color [i] +1;:=1;:=j + 1 ;;;; Vvid_K; ( Введіть Кількість вершин: ); (n); i:=1 to n do ( Введіть Кількість вершин суміжніх з , i, -ю: ); (Graph [i ] .Count); ( Введіть номери вершин суміжніх з , i, -ю: ); j:=1 to Graph [i] .Count do (j, -а вершина: ); (Graph [i] .List [j]) ;;; ( Зберегти введень граф у файл? [Y/N] ); ReadKey of
Y , y : Begin ( Введіть Назву файлу: ); (s); (G, s); (G); (G, Graph); (G) ;;
N , n : Begin ;;; Vuvid; i:=1 to n do (Color [i]); (i, laquo ;: ) ; j:=1 to Graph [i] .Count do (Color [Graph [i] .List [j]]); (Graph [i] .List [j], - ) ;;;;; ; (15) ;; ( 1. Завантажити граф з файлу ); ( 2. Ввести новий граф з Клавіатури ); ( 3. Знайте оптімальне розфарбування ); ( 4. Вихід з програми raquo ;); ReadKey of
1 : Begin ( Введіть Назву файлу: ); (s); (G, s); (G); (G, Graph) ;;
2 : Vvid_K;
3 : Begin ;;;
4 , # 27: Begin; (G) ;;; False;.
Если ввести в програму планарні графи з мал.7
Мал.7
Програма віведе нам Наступний результат:
Висновок
граф програмний розфарбування
У ході виконан даної курсової роботи Було Розглянуто та троянд яснено много примеров! застосування Деяк аспектів Теорії графів, а самє - розфарбування графів. Був написань код програми на мові Turbo Pascal что для введеного з Клавіатури або Завантажени з файлу графа знаходиься оптімальне розфарбування вершин.
Наведені приклада завдань Які розв язуються розфарбування графу побудованого з їх умів, у чесних випадка, для шкірного за своєю логікою.
Список використаної літератури
1.Верніков Б.М., Шур А.М. «Алгебра і дискретна математика» 2004 р. (324с)
2.Спекторській І. Я. «Дискретна математика» 2004 р. (220c)
.Березіна Л. Ю. «Графи та їх застосування: Посібник для вчителів» 1979р.
