Всё сдал! - помощь студентам онлайн Всё сдал! - помощь студентам онлайн

Реальная база готовых
студенческих работ

pencil
Узнай стоимость на индивидуальную работу!
icon Цены в 2-3 раза ниже
icon Мы работаем
7 дней в неделю
icon Только проверенные эксперты

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

Тип Реферат
Предмет Математика
Просмотров
316
Скачиваний
534
Размер файла
29 б
Поделиться

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

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

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

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

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

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

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

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

(отчет)

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

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

Матрица смежностей вершин
ABCDEF
A001001
B001101
C010011
D101210
E001020
F101012


Нет нужной работы в каталоге?

Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.

Цены ниже, чем в агентствах и у конкурентов

Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит

Бесплатные доработки и консультации

Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки

Гарантируем возврат

Если работа вас не устроит – мы вернем 100% суммы заказа

Техподдержка 7 дней в неделю

Наши менеджеры всегда на связи и оперативно решат любую проблему

Строгий отбор экспертов

К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»

1 000 +
Новых работ ежедневно
computer

Требуются доработки?
Они включены в стоимость работы

Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован

avatar
Экономика
Маркетинг
Информатика
icon
109781
рейтинг
icon
2700
работ сдано
icon
1237
отзывов
avatar
Математика
Физика
История
icon
103639
рейтинг
icon
5276
работ сдано
icon
2374
отзывов
avatar
Химия
Экономика
Биология
icon
74482
рейтинг
icon
1858
работ сдано
icon
1172
отзывов
avatar
Высшая математика
Информатика
Геодезия
icon
62710
рейтинг
icon
1046
работ сдано
icon
598
отзывов
Отзывы студентов о нашей работе
48 875 оценок star star star star star
среднее 4.9 из 5
ФГБОУ ВО "ЗГУ"
Работа была выполнена досрочно (очень быстро ). Реферат был выполнен без замечаний . Испол...
star star star star star
НГАУ
Быстро выполнили заказ. Были конечно маленькие поправки, но их быстро исправили.
star star star star star
Академия управления и производства
Задание выполнено очень быстро и качественно, огромное спасибо Ирине за помощь)
star star star star star

Последние размещённые задания

Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн

Задание 9 класс

Другое, Русский язык

Срок сдачи к 3 дек.

1 минуту назад

Химическая термодинамикв

Контрольная, Химия

Срок сдачи к 3 дек.

2 минуты назад

Сочинение

Эссе, речевые практики, лингвистика

Срок сдачи к 7 дек.

3 минуты назад

Решить задачи 65, 76, 84

Решение задач, Гидравлика

Срок сдачи к 9 дек.

3 минуты назад

Вариант - первая буква фамилии К, первая буква имени В.

Курсовая, Росдистант. Механика4 (Детали машин и основы конструирования)

Срок сдачи к 11 дек.

3 минуты назад

Вариант 2

Контрольная, Математика

Срок сдачи к 9 дек.

4 минуты назад

Решить 3 задача

Контрольная, Химия

Срок сдачи к 3 дек.

4 минуты назад

"После окончания работы с моделью попытайтесь изменить свойства и...

Лабораторная, Информационные технологии в экономических исследованиях

Срок сдачи к 8 дек.

4 минуты назад

Вариант 6

Контрольная, Информационные технологии в юридической деятельности

Срок сдачи к 17 дек.

5 минут назад

Основы библиотеки Pandas

Лабораторная, Программирование на Python

Срок сдачи к 5 дек.

6 минут назад

Необходимо написать 2 параграф к главе 1

Диплом, дошкольная педагогика

Срок сдачи к 10 дек.

6 минут назад

Обучение младших школьников работе над творческим пересказом

Диплом, Русский язык и литературное чтение

Срок сдачи к 29 дек.

9 минут назад

Тема: «Диагностика проблем торгово-хозяйственной деятельности и...

Курсовая, Аналитика торгово-хозяйственной деятельности, экономика

Срок сдачи к 20 дек.

9 минут назад

Выполнить контрольную

Контрольная, Английский язык

Срок сдачи к 11 дек.

10 минут назад

ЭММ вариант 12

Контрольная, Экономико-математические методы

Срок сдачи к 8 дек.

10 минут назад

15 чертежей в компасе

Чертеж, Инженерная графика

Срок сдачи к 18 дек.

10 минут назад

Росдистант. Выполнить 9 заданий по произвольному варианту

Контрольная, Экология

Срок сдачи к 9 дек.

10 минут назад
planes planes
Закажи индивидуальную работу за 1 минуту!

Размещенные на сайт контрольные, курсовые и иные категории работ (далее — Работы) и их содержимое предназначены исключительно для ознакомления, без целей коммерческого использования. Все права в отношении Работ и их содержимого принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие в связи с использованием Работ и их содержимого.

«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами

Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:

Вход или
регистрация
Регистрация или
Не нашли, что искали?

Заполните форму и узнайте цену на индивидуальную работу!

Файлы (при наличии)

    это быстро и бесплатно