Графовые модели. Остов минимального веса

Графовые модели. Остов минимального веса

Аннотация

 

Данный курсовой проект выполнен на тему «Графовые модели. Остов минимального веса». Проект содержит разработку программной модели поиска остова минимального веса во взвешенном неориентированном графе с выводом промежуточных результатов и их иллюстрацией.

Данный документ содержит 23 листа, 17 рисунков и 1 таблицы.

Содержание

Введение......................................................................................4

 

1 Постановка задачи...................................................................5

 

1.1Основные понятия теории графов……………….....5

 

1.2 Представление графов...............................................5

 

1.3 Алгоритм нахождения остова минимального

веса во взвешенном графе……………………..…….....6

 

2 Инструментальные программные средства..........................7

 

2.1 Обоснование выбора инструментальных  средств…………...………………………………...……7

 

3 Блок-схема алгоритма моделирования................................10

 

3.1 Описание блок-схемы алгоритма задачи

моделирования……………………………………..….10

 

4 Операционная среда моделирования………………...........13

 

4.1 Описание операционной среды моделирования...13

 

4.2 Аппаратная среда моделирования…………………14

4.3 Руководство оператора……………………………..14

4.4 Лицензионное соглашение…………………………17

5 Контрольная задача моделирования………………………19

Заключение................................................................................26

Литература.................................................................................27

 

Приложение А: листинг программы.......................................28

Приложение Б: исходные файлы.............................................39

 

 

Введение

В настоящее время исследования в областях, традиционно относящихся к математике, занимают все более заметное место. Проблема выбора оптимального варианта решения относится к числу наиболее актуальных технико-экономиче­ских проблем.

Развитие теории графов в основном обязано большому числу всевозмож­ных приложений. По-видимому, из всех математических объектов графы зани­мают одно из первых мест в качестве формальных моделей реальных систем.

Графы нашли применение практически во всех отраслях научных знаний: физике, биологии, химии, математике, истории, лингвистике, социальных науках, технике и т.п. Наибольшей популярностью теоретико-графовые модели исполь­зуются при исследовании коммуникационных сетей, систем информатики, хими­ческих и генетических структур, электрических цепей и других систем сетевой структуры.

Цель курсового проекта заключается в закреплении практических умений и навыков в нахождении остова минимального веса с помощью алгоритма Крас­кала, в разработке программы на языке Delphi для аналитического и графического  решений нашей поставленной задачи. Использование компьютерных технологий  для решения данных задач сокращает усилия и время человека, а это не мало важно в настоящие время.

В курсовом проекте в разделе «Постановка задачи» рассматривается тео­ретический материал по теме «Графовые модели. Остов минимального веса», в разделе «Алгоритм нахождения» рассматриваются алгоритмы нахождения «Ос­това минимального веса», в разделе «Инструментальные программные средства» выбираются инструментальные средства для разработки программного продукта, в разделе «Операционная среда моделирования» определятся интерфейс про­граммного продукта, в разделе «Контрольная задача моделирования» формулиру­ется задача для ее решения вручную и с помощью программного продукта.

1 Постановка задачи моделирования

           1.1Основные понятия теории графов

Графом называется алгоритмическая модель, состоящая из множества вершин (узлов) v и соединяющих их ребер e. Ребро - неупорядоченная пара вер­шин графа.

Ребра называются смежными, если они имеют общую вершину. Вершины называются смежными, если есть ребро их соединяющее. Ребро, которое соеди­няет вершины, называется инцидентным этим вершинам, а вершины – инцидент­ные этому ребру.

Граф G’(v’,e’) является остовом минимального веса графа G(v,e), если v’=v и e’ – есть подмножество ребер минимального веса и количества, соединяющих все вершины. Остовом минимального веса может являться сеть минимальной стоимости, в матрице соединения которой cij=cji.

Граф G=<v, e> называется ориентированным (орграфом), если найдется дуга (a,b)ÎR такая, что (b,a)ÏR.

Если же отношение R симметрично, то есть из (a,b)ÎR следует (b,a)ÎR, то граф G называется неориентированным (неорграфом).

Связный граф - граф, у которого для любых двух различных вершин суще­ствует цепь (последовательность смежных вершин), соединяющая их.

Для решения данной задачи моделирования будет использован неориенти­рованный связный  граф.

1.2 Представление графов

Существует четыре базовых представлений графов в памяти машины: мат­рица инцидентности, матрица смежности, матрица списков смежности и связан­ные списки смежности. Они различаются скоростью выполнения операций над элементами представления и объемом занимаемой памяти.

Для решения поставленной задачи моделирования больше всего подходит представление графов в памяти машины в виде матрицы смежности, а именно матрица весов.

  Матрица смежности - матрица размером , элементы которой равны 1, если i-я вершина смежна с j-ой, и 0 в противном случае.

           Матрица смежности является симметричной и достаточно просто мо­жет использоваться для ввода и обработки на ЭВМ. Для случая взвешенного графа вместо 1 используется значение весовой функции, и такая матрица называ­ется матрицей весов. В поставленной задаче будем использовать матрицу весов.

1.3 Алгоритм нахождения остова минимального

веса во взвешенном графе

Для нахождения остова минимального веса с помощью метода Краскала нужно выполнить следующие шаги:

           1.Помечают вершину начала построения остова. Среди ребер, инци­дентных помеченной вершине, находят ребро минимального веса для остова. По­мечают новую вершину, инцидентную этому ребру. Вершина новая, если к ней ранее не обращались.

           2.Смотрят, все ли вершины помечены. Если да, то заканчивают по­иск, если нет, то переходят к шагу 3.

           3.Среди ребер, инцидентных помеченным вершинам, за исключением ребер остова и ребер, образующих в остове цикл, находят ребро минимального веса для остова. Помечают новую вершину, инцидентную этому ребру, и перехо­дят к шагу 2.

4.При изменении вершины начала конфигурация остова минимального веса не измениться. Она может измениться при наличии в графе ребер одинако­вого минимального веса.

           2 Инструментальные программные средства

2.1 Обоснование выбора инструментальных средств

При выборе программных средств для разработки программы «Поиск ос­това минимального веса во взвешенном графе» необходимо учитывать  возмож­ности графического отображения графа и остова в программе, определение моду­лей в программе и связи между ними, оценки развитости аппарата структур и ти­пов данных, наличие специальных функций осуществления вычислений, возмож­ность сохранения промежуточных  результатов. Кроме того, программа должна позволять пользователю возвращаться к предыдущим этапам вычислений и со­хранять выходные данные на жестком диске.

Учет этих возможностей позволит реализовать основные функции разраба­тываемой программы, сделать ее легкодоступной для использования, предупре­дить возникновение логических ошибок, обеспечить надежность программного обеспечения и его модифицируемость.

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

В настоящее время наиболее распространенной средой является Delphi.

Delphi – пакет средств быстрой разработки приложений. К достоинствам относятся удобный интерфейс, высокая скорость работы, большое количество библиотек компонентов, эффективность создаваемых программ. Кроме того, строгая типизированность языка Object Pascal позволяет компилятору уже на этапе компиляции обнаружить многие ошибки, а также возможность работать с указателями.

По сравнению с другими системами визуального проектирования среда Delphi проста и эффективна, а написанные с помощью нее программы имеют не­большие размеры и высокую производительность. Так же в Delphi существует большая библиотека компонентов (командные кнопки, поля редактирования, пе­реключатели и т.д.). С помощью компонентов обеспечиваются  удобство интер­фейса, наглядность работы программ, работа по созданию интерфейса сокраща­ется до расстановки компонентов на форме.

        Кроме того, в Delphi имеются развитые средства для работы с графи­ческими возможностями Windows. В стандартном графическом интерфейсе Windows основой для рисования служит дескриптор контекста устройства нос и связанные с ним шрифт, перо и кисть. В состав входят объектно-ориентирован­ные надстройки над последними, назначением которых является удобный доступ к свойствам инструментов и прозрачная для пользователя обработка всех их из­менений. Поэтому использование класса TCanvas, являющегося основой графиче­ской системы Delphi, позволяет выполнить одну из основных функций разрабаты­ваемой программы – наглядное представление графа. Delphi также дает возмож­ность использовать традиционный набор функций работы с файлами, унаследо­ванный от Turbo Pascal. Что позволяет сохранять результаты работы программы в файлы на жестком диске. Кроме того, в данной среде имеется возможность, на­ряду с обычными массивами, создавать динамические массивы, которые будут играть роль матрицы весов ребер графа. Хотя по большей части на представление графа в памяти машины выбор инструментальных средств особого значения не имеет.

Программа CorelDRAW 11, составляющая основу современного набора программных средств фирмы Corel, была выпущена в августе 2002 г. Она пред­ставляет собой результат двенадцатилетней эволюции, обладает удивительной универсальностью и мощностью, будучи в равной степени полезной и в промыш­ленном дизайне, и в разработке рекламной продукции, и в подготовке публика­ций, и в создании изображений для web-страниц, также в создании блок-схем ал­горитмов. Несмотря на то, что мировым лидером программ для работы с вектор­ной графикой сегодня является другая программа — Adobe Illustrator, CorelDRAW 11 ни в чем не уступает ей, а по многим параметрам и превосходит, и у нее — ог­ромная армия пользователей-профессионалов, считающих CorelDRAW своим ос­новным рабочим инструментом.

Пользовательский интерфейс CorelDRAW 11 построен очень рационально, с высокой степенью унификации и последовательным проведением простой идеи: если пользователю не нужны те или иные средства и возможности программы, он может не затрачивать время и усилия на их изучение. Это делает программу весьма привлекательной в качестве первого программного средства для присту­пающих к изучению машинной графики в целом или векторной графики в частно­сти.

Таким образом, данная среда разработки программных продуктов позво­ляет выполнить основные функции данной задачи.

3 Блок-схема алгоритма задачи моделирования

Рисунок 1.Блок-схема алгоритма задачи моделирования

3.1 Описание блок-схемы алгоритма задачи моделирования

Блок 1. Ввод матрицы весов ребер графа. Запись графа в память компью­тера осуществляется при помощи двумерного массива, который служит матрицей весов ребер графа.

Блок 2. Ввод вершины поиска.  После заполнения матрицы весов пользо­вателем программа автоматически  определяет вершину начала построения ос­това.

Блок 3. Поиск ребра минимального веса среди инцидентных n ребер. Про­грамма анализирует матрицу весов и находит ребро с минимальным весом. Най­денное ребро сохраняется в переменную min.

Блок 4. Формирование остова. Формируется остов.

Блок 5.Выбор новой инцидентной вершины. Помечается новая вершина, инцидентная ребру, - переменная m.

Блок 6. Все вершины графа помечены.  Если все вершины графа помечены, то поиск остова заканчивается. Если нет, то среди инцидентных помеченным вершинам ребер, за исключением ребер остова и ребер, образующих в остов цикл, происходит поиск ребра минимального веса min и построение остова.

Блок 7. Вывод остова. После того как все вершины графа помечены, на монитор пользователя выводится остов минимального веса.

Блок 8. Инцидентные помеченным вершинам ребра. Если есть такие ребра, то программа анализирует найденные ребра, если нет инцидентных ребер, то про­грамма переходит к Блоку 6.

Блок 9. Ребра остова. Найденное ребро не используется в остове, то про­грамма переходит к Блоку 10, а если используется, то переходит к Блоку 6.

Блок 10. Образует ребро в остове цикл, если да то программа переходит к Блоку 6. Если ребро не образует в остове цикл, то программа переходит к Блоку11.

           Блок 11. Нахождение ребра минимального веса. Программа анализирует оставшиеся инцидентные ребра выбранной вершине и переходит к Блоку 12.

           Блок 12. Формирование остова. Программа формирует полученный остов, проверяется связанность ребер с вершинами графа, за это отвечает массив связан­ности   ar[jmin, imin], если он равен единицам, то все ребра связаны с вершинами, если он не равен единице, то продолжается формирование остова.

           Блок 13. Выбор новой инцидентной вершины.  Помечается новая вершина графа, программа переходит к Блоку 6.    

Блоки блок-схемы во многом повторяют шаги теоретического решения, лишь незначительно конкретизируясь на привязке  к конкретному языку про­граммирования (в данном случае Delphi).

В отличие от блок-схемы задачи моделирования здесь невозможно описать многие производимые операции (например, представление графа в виде графиче­ского образа, прорисовка остова и др.) в виде связанной структуры шагов реше­ния задачи. Поскольку эти операции описываются множеством процедур и функ­ций, присущим данной среде программирования.

4 Операционная среда моделирования

4.1 Описание операционной среды моделирования

Операционная система компьютера представляет собой комплекс взаимо­связанных программ, который действует как интерфейс между приложениями и пользователями с одной стороны, и аппаратурой компьютера с другой стороны. Операционная система также является механизмом, распределяющим ресурсы компьютера.

Программа, решающая данную задачу моделирования, должна обеспечи­вать удобный графический интерфейс для лучшего понимания модели. Широкий круг возможностей графического вывода и представления информации предос­тавляет разработанная фирмой Microsoft операционная система Windows.

Простота Windows достигнута за счет применения графического интерфейса пользователя, обеспечивающего удобную работу.

Широчайшее распространение Windows сделало ее фактическим стандар­том для IBM PC - совместимых компьютеров. Подавляющее большинство пользо­вателей таких компьютеров работают в Windows, поэтому в наше время большин­ство новых программ разрабатывается именно для эксплуатации их в среде Windows.

Windows не только обеспечивает удобный и наглядный интерфейс для опе­раций с файлами, дисками и т.д., но и предоставляет новые возможности для за­пускаемых в среде Windows программ. Разумеется, для использования этих воз­можностей программы должны быть спроектированы по требованиям Windows.

Windows имеет разные версии, смотря, для кого предназначена операцион­ная система для сервера или для клиента. Для разработки курсового проекта  я выбрал операционную систему под названием Windows XP Professional, так как я считаю её наиболее подходящей. Данная версия Windows XP Professional наибо­лее распространена среди всех версий Windows. Для этой версии Windows напи­сано большое количество программ, а это означает, что этой версией Windows пользуется большое количество пользователей, а если пользуются значит она ра­ботает корректно.

4.2 Аппаратная среда моделирования

Основные аппаратные затраты приходятся на среду проектирования дан­ной программной модели (в данном случае Delphi). Минимальные требования, предъявляемые к оборудованию, при работе в данной среде программирования следующие:

-Процессор Intel Pentium с тактовой частотой 166 МГц и выше;

-128 МБ оперативной памяти;

-свободное пространство на жестком диске для полной установки 5 МБ;

-дисковод для компакт-дисков;

-VGA или SVGA монитор;

-стандартный манипулятор мышь и клавиатура;

-операционная система Windows 98/2000/XP.

Программная модель требует гораздо меньше аппаратных средств. Для ее работы достаточно стандартного набора оборудования: монитор типа VGA/SVGA, клавиатура, мышь. Программа занимает   568 КБ свободного про­странства на диске и 12 МБ оперативной памяти. Программа может больше зани­мать пространства на жестком диске это связанно с тем, что матрица весов зане­сенная пользователем перед поиском минимального веса записывается в файл, и соответственно чем больше матриц весов будет занесено тем больше будет вес файла. После закрытия программы файл, в который записывались матрицы весов, он удаляется и пространство на жестком диске освобождается – это сделано для того чтобы не «засорять» свободное место на жестком диске. Особых требований к видеоадаптеру программа не имеет, но желательно 16 МБ и выше.

4.3 Руководство оператора

В данном подразделе представлен, алгоритм и правило работы с програм­мой; функции программы.

Для запуска программы необходимо активировать exe – файл с названием «Краскал.exe» запустится программа. Рисунок главной формы изображен на ри­сунке1.

Рисунок 2.Главная форма программы.

На главной форме программы изображены: текстовое поле  необходимое для ввода количество узлов графа, для которого нужно будет найти остов мини­мального веса, затем нужно нажать кнопку «ОК». Далее нужно занести веса в матрицу весов  «Дано» вводить нужно только по горизонтали, а по вертикали программа заполнит поля автоматически. Далее нужно расставить узлы нашего графа, для этого одним щелчком по полю «Данный граф» создастся  узел, он бу­дет помечен синей точкой аналогично выполнить для остальных вершин графа. Также узлы можно расставить случайным образом, для этого нужно пометить флажок «Разместить узлы случайно» и нажать кнопку «Рисовать» при каждом нажатии на кнопку вершины будут размещаться случайно. Пример графа изобра­жен на рисунке 2.

Рисунок 3.Графическое изображение графа.

После того, когда граф на рисован необходимо найти «Остов минималь­ного веса» с помощью алгоритма Краскала, для этого нажимать кнопку «Вычис­лить». Остов минимального веса будет изображен в поле «Полученный мини­мальный остов» и в поле «Результат» будет показан результат виде матрицы ве­сов. Результат решения на рисунке 3.

Рисунок 4.Найденный остов минимального веса.

На форме размещены еще три кнопки:

-«Начать заново» при нажатии на эту кнопку все поля очищаются и главная форма принимает первоначальный вид.

-«Помощь» при нажатии на эту кнопку вызывает помощь для пользователя. Помощь для пользователя изображена на рисунке 4.

Рисунок 5. Помощь для пользователя.

Последняя кнопка, которая размещена на форме «Выход», при нажатии на кнопку приложение будет закрыто.

4.4 Лицензионное соглашение

           Алгоритм Краскала (версия 1.0)

1) Всеми авторскими правами на "Алгоритм Краскала" эксклюзивно вла­деет автор программы – Терешков Юрий Игоревич.

2) " Алгоритм Краскала " могут распространяться только в том виде, в ко­тором они поставляются автором.

3) " Алгоритм Краскала " распространяются по принципу "как есть". При этом не предусматривается никаких гарантий, явных или подразумеваемых. Вы используете его на свой собственный риск. Автор не отвечает за потери данных, повреждения, потери прибыли или любые другие виды потерь, связанные с ис­пользованием (правильным или неправильным) этой программы.

4) Вы не можете эмулировать, клонировать, сдавать в аренду, давать на­прокат, продавать, изменять, декомпилировать, дизассемблировать " Алгоритм Краскала". Любое подобное неавторизованное использование приводит к немед­ленному и автоматическому прекращению действия этой лицензии и может по­влечь за собой уголовное и/или гражданское преследование.

5) Все права, явно не представленные здесь, принадлежат автору про­граммы.

6) Запуск и использование " Алгоритм Краскала " свидетельствует о согла­сии с условиями данной лицензии.

7) Если вы не согласны с условиями данной лицензии, то должны удалить файлы " Алгоритм Краскала " со своих устройств хранения информации и отка­заться от их использования.

Спасибо за использование " Алгоритм Краскала "!

Автор программы: Терешков Юрий Игоревич.

5 Контрольная задача моделирования

В данном разделе решено две контрольные задачи:

-вручную;

-с помощью программной модели.

После решения контрольных задач проведено сравнение полученных ми­нимальных остовов.

Задача №1. Дан взвешенный связный неориентированный граф, состоя­щий из пяти вершин. Необходимо найти остов минимального веса с помощью ал­горитма Краскала.

Рисунок 6. Исходный граф.

Выбираем вершину начала построения остова минимального веса, напри­мер, первую вершину.

Шаг 1. Найдено ребро минимального веса: 1-2=6. Полученный  остов на рисунок 7.

Рисунок 7. Полученный оостов на шаге 1

Шаг 2. Найдено ребро минимального веса: 2-3=7. Полученный остов на рисунок 8.

Рисунок 8.Полученный остов на шаге 2

Шаг 3. Найдено ребро минимального веса: 3-4=9. Полученный остов  на рисунок 9.

Рисунок 9.Полученный остов на шаге 3

Шаг 4. Найдено ребро минимального веса: 3-5=11.

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

На четвертом шаге получили окончательный остов минимального веса, ко­торый представлен на рисунке 10.

Рисунок 10. Остов минимального веса

При изменении вершины начала построения конфигурация остова мини­мального веса не измениться, а измениться лишь последовательность построения ребер остова.

Например, если в качестве начальной вершины выбрать четвертую вер­шину, то последовательность этапов построения остова минимального веса будет выглядеть следующим образом:

Шаг 1. 4-3=9;

Шаг 2. 3-2=7;

Шаг 3. 2-1=6;

Шаг 4. 3-5=11;

При этом конфигурация остова останется прежней. Решим данную задачу с помощью программной модели. Чтобы решить данную задачу необходимо по­строить матрицу весов, матрица представлена на рисунке 11.

Рисунок 11. Матрица весов

Полученный минимальный остов с помощью программной модели изо­бражен на рисунке 12.

Рисунок 12. Полученный минимальный остов

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

Задача №2. Дан взвешенный, связный, неориентированный граф, состоя­щий из девяти вершин. Необходимо найти остов минимального веса с помощью ал­горитма Краскала. Исходный граф на рисунке 13.

Рисунок 13. Исходный граф

Выбираем вершину начала построения остова минимального веса, напри­мер, первую вершину.

Шаг 1. Найдено ребро минимального веса: AC=1. Полученный  остов на рисунок 14.

Рисунок 13. Полученный остов на шаге 1

           Шаг 2. Найдено ребро минимального веса: CF=3, AB=4, AC=4. Полученный  остов на рисунок 15.

          

Рисунок 14. Полученный остов на шаге 2

           Шаг 3. Найдено ребро минимального веса: FD=4, EK=3, AE=4. Полученный  остов на рисунок 15.

          

Рисунок 15. Полученный остов на шаге 3

Шаг 4. Найдено ребро минимального веса: KH=5, KG=4. Рассмотрены все вершины и инцидентные ребра этим вершинам, остав­шиеся ребра образуют цикл в полученном минимальном  остове. А это не удовлетворяет условиям поставленной задачи.

На четвертом шаге получен окончательный остов минимального веса, ко­торый представлен на рисунке 16.

Рисунок 16. Остов минимального веса

Решим данную задачу с помощью программной модели. Чтобы решить данную задачу необходимо по­строить матрицу весов.

Таблица 1. Матрица весов

	A	B	C	D	E	F	G	H	K
A	-	4	1	9	4	-	-	-	-
B	4	-	-	-	-	-	-	5	-
C	1	-	-	10	-	3	-	-	-
D	9	-	10	-	5	4	-	6	9
E	4	-	3	5	-	7	-	-	3
F	-	-	-	4	7	-	10	-	-
G	-	-	-	-	-	10	-	-	7
H	-	5	-	6	-	-	-	-	5
K	-	-	-	9	3	-	7	5	-

Полученный минимальный остов с помощью программной модели изо­бражен на рисунке 17.

Рисунок 17. Остов минимального веса

              После проверки вычислений вручную и программной модели полученные остовы минимального веса различаются, но они построены верно. Это связано с тем, что программа выбирает другую вершину начала. После решения двух контрольных задач стало ясно, что разработанная программная модель работает верно.

Заключение

Целью данного курсового проекта была задача нахождения остова мини­мального веса во взвешенном графе с помощью алгоритма Краскала. Есть много способов создания модели, решающей эту задачу. Могут существовать различные алгоритмы обработки графов с разными представлениями: в виде матрицы инци­дентности, матрицы смежности, матрицы весов. При решении данной  задачи можно изменять вершину начала поиска остова минимального веса, при этом конфигурация остова не измениться. Она может измениться при наличии ребер одинакового минимального веса.

Контрольная задача показала, что данная программная модель функциони­рует верно, и поэтому она может быть успешно использована в качестве нагляд­ного пособия для изучения задачи нахождения остова минимального веса. Для эффективности изучения в программе создана подсказка для пользователя, позво­ляющая быстро изучить назначение компонентов. Для наглядности представления метода в программе имеется графическое изображение графа.

Литература

1.Судоплатов С.В., Овчинникова Е. В.  Элементы дискретной математики: Учебник. – М.: ИНФРА-М, Новосибирск: Изд-во НГТУ,2002. – 208 с.

2.Кандзюба С.П., Громов В.Н. Delphi 7. Базы данных и приложения. Лек­ции и упражнения. – СПб: ООО «ДиаСофтЮП», 2005. – 576 с.

3.Богумирский Б. А. Энциклопедия Windows 98. 2-е изд. – СПб.: Питер, 2003–896 с.

4.Липский С.Г. «Комбинаторика для программистов»

5.Васильков Ю.В., Н.Н. Василькова «Компьютерные технологии вычисле­ний в математическом моделировании», М. Финансы и Статистика, 1999

6.Культин Н.Б. Delphi 7 Программирование на Object Pascal. – СПб.: БХВ – Петербург, 2005. – 528 с.

Приложение А: листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, Grids, StdCtrls, ExtCtrls, ComCtrls, XPMan, Menus;

type

TForm1 = class(TForm)

sg: TStringGrid;

SpeedButton3: TSpeedButton;

sr: TStringGrid;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

Edit1: TEdit;

Label1: TLabel;

SpeedButton7: TSpeedButton;

Image1: TImage;

Image2: TImage;

Label2: TLabel;

Label3: TLabel;

Timer1: TTimer;

SpeedButton8: TSpeedButton;

CheckBox1: TCheckBox;

Bevel1: TBevel;

Bevel2: TBevel;

Bevel3: TBevel;

Bevel4: TBevel;

Bevel5: TBevel;

Bevel6: TBevel;

Bevel7: TBevel;

Bevel8: TBevel;

Bevel9: TBevel;

Bevel10: TBevel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Vremya: TTimer;

XPManifest1: TXPManifest;

Label4: TLabel;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label5: TLabel;

Label6: TLabel;

procedure FormCreate(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure Image2DblClick(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure VremyaTimer(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure sgClick(Sender: TObject);

procedure srClick(Sender: TObject);

private

{ Private declarations }

 public

{ Public declarations }

end;

var

Form1: TForm1;

f:file of integer;

idown,n,wrt,i,j:integer;

a,ar:array[1..10,1..10] of integer; 

m:array[1..10] of integer;

vx:array[1..10] of integer;

vy:array[1..10] of integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

t,i:integer;

begin

n:=8; {изначально число вершин=8}

SpeedButton3.Enabled:=True;

idown:=1;

speedbutton7.click;                

image1.Canvas.brush.color:= clwhite;

image1.Canvas.pen.Color:=clwhite;   

image2.Canvas.brush.color:= clwhite;

image2.Canvas.pen.Color:=clwhite;   

image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);

image2.Canvas.Rectangle(0,0,image1.Width,image1.Height);

for i:=1 to sr.ColCount do

for j:=1 to sr.Rowcount do begin     

sr.Cells[i,j]:='';

end;                             

for i:=1 to sg.ColCount do

for j:=1 to sg.Rowcount do begin

sg.Cells[i,j]:='';

edit1.Text:= inttostr(t);

for t:=1 to n do begin

sg.Cells[t,t]:='-';

sr.Cells[t,t]:='-';

end; end;

edit1.Text:= inttostr(n);

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

var

o,min,imin,jmin:integer;

begin

SpeedButton3.Enabled:=false;

assignfile(f,extractfilepath(application.ExeName)+'\in.krs');

rewrite(f);

for i:= 1 to n do             

for j:= 1 to n do

begin

if sg.cells[i,j]='-' then

wrt:=999

else

wrt:=strtoint(sg.cells[i,j]);

write(f,wrt);

end;

closefile(f);

assignfile(f,extractfilepath(application.exename)+'\in.krs');

reset(f);

for i:= 1 to n do

for j:= 1 to n do

begin

read(f,wrt);           

if wrt=999 then

sg.cells[i,j]:='-'

else

sg.cells[i,j]:= inttostr(wrt);

a[i,j]:=wrt;

end;

closefile(f);

for i:=1 to n do

m[i]:=0;            

m[1]:=1;            

repeat

o:=0;                       

min:=100; imin:=1; jmin:=1;

for i:= 1 to n do

if m[i]=1 then

for j:= 1 to n do

if (a[i,j]<>0) and (a[i,j]<900) and (m[j]<>1) then

begin

if a[i,j]<min then   

             begin

min:= a[i,j];

imin:=i;

jmin:=j;            

o:=1;

end; end;

if o=1 then        

begin

ar[imin,jmin]:=min;

ar[jmin,imin]:=min;

m[jmin]:=1;        

end;

until o=0;                 

speedbutton4.Click;        

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

for i:= 1 to n do

for j:= 1 to n do

begin

if ar[i,j]=0 then   

sr.cells[i,j]:='-'            

else

sr.cells[i,j]:=inttostr(ar[i,j]);

end;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

var

i,x,y:integer;

begin

idown:=1;

form1.canvas.Refresh;                        

if checkbox1.Checked then speedbutton8.Click;

image1.Canvas.brush.color:= clwhite;         

image1.Canvas.pen.Color:=clwhite;            

image2.Canvas.brush.color:= clwhite;         

image2.Canvas.pen.Color:=clwhite;            

image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);

image2.Canvas.Rectangle(0,0,image1.Width,image1.Height);

with image1.Canvas do

begin

brush.color:= cllime;      

pen.Color:=clblue;         

font.Name:='Courier';    

font.Size:=8;                   

for i:= 1 to n do

for j:=1 to n do

if (a[i,j]<>0) and (a[i,j]<900) then

begin

pen.Width:=1;              

moveto(vx[i]+7,vy[i]+7);   

lineto(vx[j]+7,vy[j]+7);   

brush.color:= clwhite;     

textout(round((vx[i]+vx[j]+4)/2),round((vy[i]+vy[j]+1)/2),inttostr(a[i,j]));

end;

brush.color:= cllime;                   

for i:= 1 to n do

begin

font.Size:=1;                           

rectangle(vx[i],vy[i],vx[i]+15,vy[i]+15);

textout(vx[i]+4,vy[i]+1,inttostr(i));    

end;

end;

with image2.Canvas do

begin

brush.color:= clLime; 

pen.Color:=clblue;       

font.Name:='Courier'; 

font.Size:=8;               

for i:= 1 to n do

for j:=1 to n do

if (ar[i,j]<>0) and (ar[i,j]<900) then

begin

pen.Width:=1;             

moveto(vx[i]+7,vy[i]+7);

lineto(vx[j]+7,vy[j]+7);

brush.color:= clwhite; 

textout(round((vx[i]+vx[j]+4)/2),round((vy[i]+vy[j]+1)/2),inttostr(ar[i,j]));

end;                                                                      

brush.color:= cllime; 

for i:= 1 to n do

begin

font.Size:=1;                          

rectangle(vx[i],vy[i],vx[i]+15,vy[i]+15);

textout(vx[i]+4,vy[i]+1,inttostr(i));   

end; end; end;

procedure TForm1.SpeedButton7Click(Sender: TObject);

var

i:integer;

begin

for i:= 1 to n do

begin

sg.ColCount:=n+1; 

sg.Rowcount:=n+1; 

sr.ColCount:=n+1; 

sr.Rowcount:=n+1; 

sg.Cells[0,i]:=inttostr(i);

sr.Cells[0,i]:=inttostr(i);

sg.Cells[i,0]:=inttostr(i);

sr.Cells[i,0]:=inttostr(i); end;

for i:= 1 to n do

for j:= 1 to n do

begin          

ar[i,j]:=0;           

end;

end;

procedure TForm1.Image2DblClick(Sender: TObject);

begin

timer1.Enabled:=true;      

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

for i:= 1 to n do

begin

vx[i]:=random(470);   

vy[i]:=random(230);      

end; end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseBut­ton; Shift: TShiftState; X, Y: Integer);

begin

vx[idown]:=x;

vy[idown]:=y;

idown:=idown+1;

image1.Canvas.brush.color:= cllime;        

image1.Canvas.pen.Color:=clblue;           

image1.Canvas.Rectangle(x-1,y-1,x+1,y+1);  

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

image1.Canvas.brush.color:= clwhite;   

image1.Canvas.pen.Color:=clwhite;      

image2.Canvas.brush.color:= clwhite;   

image2.Canvas.pen.Color:=clwhite;      

image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);

image2.Canvas.Rectangle(0,0,image1.Width,image1.Height); timer1.Enabled:=false; 

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

n:= strtoint(edit1.text);

speedbutton7.Click;      

end;                                

procedure TForm1.BitBtn2Click(Sender: TObject);

var i:integer;

begin

if MessageDlg('Завершить работу',mtConfirmation,[mbyes,mbno],0) = mrYes then begin

AlphaBlend:=true;

i:=255;           

while i>0 do begin

AlphaBlendValue:=i;

Application.ProcessMessages;

dec(i,1);                        

end;close;end;end;

procedure TForm1.FormShow(Sender: TObject);

begin

Edit1.SetFocus; 

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.sgClick(Sender: TObject);

var i,j:integer;

begin

for i:= 1 to n do

for j:= 1 to n do 

begin

sg.Cells[i,j]:=sg.Cells[j,i];

end;

end;

procedure TForm1.srClick(Sender: TObject);

var i,j:integer;

begin

for i:= 1 to n do

for j:= 1 to n do  

begin

sr.Cells[i,j]:=sr.Cells[j,i];

end; end; end.

Приложение Б: исходные файлы