Лабораторна робота № 1 Тема. Елементи теорії множин. Мета. Ознайомитись з алгоритмізацією операцій над множинами. Програма написана на мові Visual Basic Програма має віконний інтерфейс Програма передбачає ввід квадратної матриці будь-якої розмірності Результат виводиться на екран Варіант № 9 Розробити процедуру перевірки, чи є задана матриця матрицею відношення повного порядку. Тіло програми Form 1 Private Sub Command1_Click() If (CDbl(Text1.Text) < 19) And (IsNumeric(Text1.Text)) Then Load Form2 Form1.Visible = False Form2.Visible = True Else Text1.Text = "" Label1.Caption = "Введіть число менше 19" Text1.SetFocus End If End Sub Private Sub Command2_Click() End End Sub Form 2 Private Sub Cmp_Click() Dim n, m As Integer Text1.Visible = True n = Form1.Text1.Text r = "Перевірку закінчено: " Text1.Text = r Dim z, j, i As Integer For z = 0 To n - 1 For j = 0 To n - 1 For i = 0 To n - 1 If (IsNumeric(Matr(j * n + i)) = False) Or (Matr(j * n + i) = "") Then Text1.Text = Text1.Text + "введено не число або пропущено комірку" GoTo nec End If If Matr(i * n + i) <> 1 Then Text1.Text = Text1.Text + "Матриця не рефлексивна" GoTo dne End If If Matr(i * n + j) = Matr(j * n + i) And i <> j Then If Matr(i * n + j) = 1 Then Text1.Text = Text1.Text + "Матриця не антисиметрична" GoTo dne Else Text1.Text = Text1.Text + "Матриця не є матирицею відношення повного порядку" GoTo dne End If End If If Matr(j * n + z) = 1 And Matr(z * n + i) = 1 And Matr(j * n + i) <> 1 Then Text1.Text = Text1.Text + "Матриця не є транзитивна" GoTo dne End If Next i Next j Next z If Text1.Text = r Then Text1.Text = r + " Матриця є матирицею відношення повного порядку " nec: dne: Cmp.Visible = False Command1.Visible = True End Sub Private Sub Command1_Click() Form2.Visible = False Form1.Text1.Text = "" Form1.Visible = True Form1.Text1.SetFocus ' = True Unload Form2 End Sub Private Sub Command2_Click() Form3.Visible = True Unload Form2 End Sub Private Sub Form_Load() Dim n, m As Integer Matr(0).Visible = True n = Form1.Text1.Text For j = 0 To n - 1 If j <> 0 Then Load Matr(j * n) Matr(j * n).Top = Matr(n * (j - 1)).Top + 500 Matr(j * n).Left = Matr(n * (j - 1)).Left Matr(j * n).Visible = True End If For i = 1 To n - 1 m = j * n + i Load Matr(m) Matr(m).Top = Matr(m - 1).Top Matr(m).Left = Matr(m - 1).Left + 500 Matr(m).Visible = True Next i Next j End Sub Form 3 Private Sub Command1_Click() End End Sub Висновок: на даній лабораторній роботі я ознайомився з алгоритмізацією операцій над множинами Мал. 1 Запуск програми Мал.2 Виконання програми