Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Лабораторная работа: Графическое представление графа

Название: Графическое представление графа
Раздел: Рефераты по математике
Тип: лабораторная работа Добавлен 06:44:02 16 апреля 2011 Похожие работы
Просмотров: 157 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Московский Авиационный Институт

(Государственный Технический Университет)

филиал «Восход»

Кафедра МиПОИС

Лабораторная работа

по дискретной математике

«Графическое представление графа»

(отчет)

Преподаватель ____________ /Крохина Н.В./

Студент группы ДМ 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;

Procedure Koordinata; {Процедура задания координат вершин в зависимости от количества секторов}

Var

Q,W: Real;

Begin

Writeln('Введите количество вершин графа: ');

Readln(N);

If N>M Then Halt;

Q:=6.28/N;

{Задание координат вершин графа}

For I:=1 To N Do

Begin

W:=I*Q;

A[I].X:=300+Trunc(R*cos(W));

A[I].Y:=235+Trunc(R*sin(W));

End

End;

Procedure Vivod; {Выводвершинграфанаэкранмонитора}

Begin

For I:=1 To N Do

Begin

SetBkColor(0);

SetColor(2);

For J:=1 To 10 Do

Circle(A[I].X,A[I].Y,J)

End

End;

Procedure Smegnost; {Процедуразаданияматрицысмежностей}

Begin

For I:=1 To N Do

For J:=1 To N Do

B[I,J]:=9;

If N>7 Then

For I:=1 To N Do

For J:=1 To N Do

B[I,J]:=Random(3)

else

Begin

For I:=1 To N Do

For J:=1 To N Do

If B[I,J]=9 Then

Begin

Write('Введитесвязь [',I,',',J,']:= ');

Readln(B[I,J]);

B[J,I]:=B[I,J]

End

Else Writeln('Cвязь [',I,',',J,']:= ',B[I,J]);

End

End;

Procedure Linia;

Var K: Integer;

Begin

For I:=1 To N Do

For J:=1 To N Do

If (I=J) And (B[I,J]=2) Then {Циклическаясвязь}

Begin

SetColor(Brown);

For K:=1 To 10 Do

Circle(A[I].X,A[I].Y,K)

End else

If B[I,J]=1 Then {Обычнаясвязь}

Begin

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

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений08:09:28 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
10:34:12 29 ноября 2015

Работы, похожие на Лабораторная работа: Графическое представление графа

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(150744)
Комментарии (1839)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru