Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Елементи теорії множин.
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2024
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Частина тексту файла (без зображень, графіків і формул):
Лабораторна робота № 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 Виконання програми
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора