заданий місто В. Результат виводиться на форму у формі тексту. p align="justify"> Використовувані змінні: i, j, k - лічильники, dost - двовимірний динамічний масив.
Підпрограма procedure TForm1.Button12Click (Sender: TObject)
Вхідні дані: дані з матриці суміжності, дані з матриці досяжності, дані з лічильника на формі;
Вихідні дані: графічне рішення і текстова інформація, матриця досяжності.
Процес обробки: викликається підпрограма Matrix, яка складає матрицю досяжності по матриці суміжності. Після виконання підпрограми Matrix, змінним doroga і vver присвоюються значення, які показують кількість доріг, які потрібно добудувати. Далі виконується цикл на перевірку матриці досяжності, якщо матриця містить у всіх осередках 1, то виводиться повідомлення В«Усі міста досяжніВ», після чого починається цикл, в якому виконується перевірка на додавання нових доріг. p align="justify"> Використовувані змінні: i, j, k-лічильники, dost - двовимірний динамічний масив, dorog, vver - кількості доріг, result - прапорець на графічне рішення.
Підпрограма function Matrix;
Вхідні дані: мінлива doroga, мінлива vver, матриця суміжності.
Вихідні дані: матриця досяжності, змінні doroga, vver.
Процес обробки: підпрограма обробляє дані з матриці суміжності, підраховує кількість потрібних доріг.
Використовувані зовнішні змінні: doroga, vver - кількість доріг, dost - двовимірний динамічний масив.
Підпрограма function findver (x, y, rad: integer): Integer;
Вхідні дані: x, y, rad;
Вихідні дані: findver;
Процес обробки: підпрограма знаходить номер вершини за координатами x і y і радіусу, після чого видає її номер.
Використовувані зовнішні змінні: x, y - координати, rad - радіус кола.
Підпрограма procedure TForm1.redrow;
Вхідні дані: кількість міст, запис ver;
Вихідні дані: зображення на компоненті Image1;
Процес обробки: підпрограма перемальовує зображення на компоненті Image1;
Використовувані зовнішні змінні: i, j - лічильники;
Підпрограма procedure TForm1.FormCreate (Sender: TObject);
Вхідні дані: покажчик на що викликає об'єкт * Sender;
Вихідні дані: кількість міст;
Процес обробки: змінним pos і n присвоюється значення 0;
Використовувані зовнішні змінні: немає;
Підпрограма procedure TForm1.Image1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);
Вхідні дані: координат...