II. Практическая часть. Public Sub listing(prep As String, day As String)

Public Type struct

predmet As String * 1

prep As String * 1

group As String * 1

day As String * 1

para As String * 1

auditoria As String * 1

End Type

Public Sub listing(prep As String, day As String)

Dim sved As struct

Open App.Path & "\db.txt" For Random As #1 Len = Len(t(1))

c = LOF(1) / Len(t(1))

k = 0

For i = 1 To c

Get #1, i, sved

If sved.prep = prep And sved.day = day Then k = k + 1: t(k) = sved

Next i

For i = 1 To k - 1

min = CInt(t(i).para)

ind_min = i

For i2 = i + 1 To k

If (CInt(t(i2).para) < min) Then

min = CInt(t(i2).para)

ind_min = i2

End If

Next i2

sved = t(i)

t(i) = t(ind_min)

t(ind_min) = sved

Next i

For i = 1 To k

Print t(i).para & " " & t(i).predmet & " " & t(i).group & " " & t(i).auditoria

Next i

End Sub

Private Sub Command1_Click()

listing "A", "1"

End Sub

2. Пусть имеется множество экспертов , среди которых есть зависимые между собой. Возможно ли собрать коллектив ’’ независимых ’’ экспертов из m человек?

Дано n = 7, m = 3 и попарно зависимые эксперты:

Возможные комбинации

6 4 1

6 4 2

6 4 7