Тема. Способи подання графів
Мета. Формування умінь представляти графи у вигляді таблиці суміжності
Завдання
Створити програму з графічним інтерфейсом для виконання наступних завдань:
1) з першого текстового поля прочитати дані про пов’язані вершини графу (у окремих рядках вказано через пробіл номери пов’язаних ребрами вершин);
2) до другого текстового поля вивести таблицю суміжності для цього графу;
3) до третього текстового поля вивести кількість вершин графу;
4) до четвертого текстового поля вивести кількість ребер графу.
Примітка: вершини графу пронумеровані по порядку від 1, граф не містить ізольованих вершин.
Приклади вхідних та вихідних даних:
Граф | Вхідні дані | Вихідні дані | ||
TextBox1.Text | TextBox2.Text | TextBox3.Text | TextBox4.Text | |
| 1 4 1 2 1 3 3 2 3 5 | 0 1 1 1 0 1 0 1 0 0 1 1 0 01 1 0 0 0 0 0 0 1 0 0 | 5 | 5 |
Розв'язання мовою VB.NET
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Оголосимо локальні змінні
Dim v, r As Integer
Dim matr(100, 100) As Integer
Dim a, b, x As Integer
'Заповнюємо матрицю суміжності та рахуємо кількість вершин
Dim s As String
For i = 0 To TextBox1.Lines.Count - 1
s = TextBox1.Lines(i)
s = s.Trim()
If s <> "" Then
x = s.IndexOf(" ")
a = Val(s.Substring(0, x))
b = Val(s.Substring(x + 1, s.Length - x - 1))
matr(a, b) = 1
matr(b, a) = 1
If a > v Then v = a
If b > v Then v = b
End If
Next
'Рахуємо кількість ребер
r = 0
For i = 1 To v
For j = 1 To v
If matr(i, j) = 1 Then r = r + 1
Next
Next
r = r / 2
'Виводимо матрицю суміжності
TextBox2.Text = ""
For i = 1 To v
For j = 1 To v
TextBox2.Text += Str(matr(i, j)) + " "
Next
TextBox2.Text += vbNewLine
Next
'Виводимо кількість вершин
TextBox3.Text = Str(v)
'Виводимо кількість ребер
TextBox4.Text = Str(r)
End Sub
End Class
Завдання для самостійного виконання
Виконати програму для заданого вашим варіантом графу:
