Реферат Визначення досяжності міста в змінюваною системі двосторонніх доріг

Тема: Курсовые обзорные

и xx і yy, прапорці ver, reb2;

Вихідні дані: зображення на компоненті Image1;

Процес обробки: виконання підпрограми залежить від значень прапорців ver і reb2, якщо вони true, то підпрограма по прапорці ver малює еліпс з координатами х, у на компоненті Image1, а по прапорці reb2 підпрограма малює ребро (дорогу ) до заданого міста.

Використовувані зовнішні змінні: немає;

Підпрограма procedure TForm1.Image1MouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer)

Вхідні дані: прапорці del_ver, reb, reb2, ver; координати кліка x, y;

Вихідні дані: зображення на компоненті Image1;

Процес обробки: виконання підпрограми залежить від значень прапорців del_ver, reb, reb2, ver.

Якщо del_ver true, то підпрограма видаляє вершину, із заданими координатами і значення прапорців ver, reb, reb2, del_ver змінює на false, а також прибирає на -1 рядок і стовпець у матриці суміжності і матриці досяжності, відповідні даній вершині.

Якщо прапорець reb true, то підпрограма малює лінію від однієї вершини до іншої. Якщо інша вершина вказана не вказана, то значення reb стає false. p align="justify"> Якщо reb2 true, то reb false, reb2 false і будується лінія від однієї вершини до іншої і в матрицю суміжності в клітинці ставиться значення В«1В», яке вказує на ребро між цими містами.

Якщо ver true, то значення міст збільшується на +1, запам'ятовуються координати в структуру ver - запис і в матриці суміжності і досяжності додається строчка і стовпець з відповідним номером міста.

Використовувані зовнішні змінні: xx, yy - координати з компонента Image1, i, j, k, i2 - лічильники;

Підпрограма procedure TForm1.N5Click (Sender: TObject)

Вхідні дані: ні;

Вихідні дані: ні;

Процес обробки: вихід з програми;

Використовувані зовнішні змінні: немає;

Підпрограма procedure TForm1.N2Click (Sender: TObject);

Вхідні дані: ні;

Вихідні дані: ні;

Процес обробки: виклик підпрограми Button7.Click;

Використовувані зовнішні змінні: немає;

Підпрограма procedure TForm1.N3Click (Sender: TObject);