lign="justify"> Процес обробки: створення нового графа;
Використовувані зовнішні змінні: i, j - лічильники;
Підпрограма procedure TForm1.StringGrid3KeyPress (Sender: TObject; var Key: Char);
Вхідні дані: числа;
Вихідні дані: ні;
Процес обробки: підпрограма забороняє вводити числа на головній діагоналі у матриці досяжності, а так само обмежує введення чисел, крім 0 і 1 і використання клавіш, крім Backspace.
Використовувані зовнішні змінні: немає;
Підпрограма procedure TForm1.Edit1Change (Sender: TObject)
Вхідні дані: число міст;
Вихідні дані: дані матриці суміжності, зображення на компоненті Image1;
Процес обробки: створюється матриця суміжності і матриця досяжності розміром [pos * pos], де pos - кількість міст, а також заповнення осередків матриці суміжності і матриці досяжності значенням В«0В».
Використовувані зовнішні змінні: pos, n - кількість міст, i, j-лічильники.
Підпрограма procedure TForm1.Image1MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Вхідні дані: координати місця кліка лівої клавішею миші X і Y;
Вихідні дані: зображення контекстного меню на компоненті Image1;
Процес обробки: якщо натискань не ліва клавіша миші, то показати контекстне меню.
Використовувані зовнішні змінні: немає;
Підпрограма procedure TForm1.N7Click (Sender: TObject);
Вхідні дані: ні;
Вихідні дані: ні;
Процес обробки: виклик підпрограми Button2.Click;
Використовувані зовнішні змінні: немає;
Підпрограма procedure TForm1.N8Click (Sender: TObject);
Вхідні дані: ні;
Вихідні дані: ні;
Процес обробки: виклик підпрограми Button1.Click;
Використовувані зовнішні змінні: немає;
Підпрограма procedure TForm1.N9Click (Sender: TObject);
Вхідні дані: ні;
Вихідні дані: ні;
Процес обробки: виклик підпрограми Button4.Click;
Використовувані зовнішні змінні: немає;
Підпрограма procedure TForm1.StringGrid3KeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
Вхідні дані: дані з матриці суміжності;
Вхідні дані; зображення на компоненті Image1;
Процес обробки: підпрограма викликає підпрограму redrow.