Составить рекурсивную процедуру для печати k- го элемента списка целых чисел

‘ в классе spisok

Public next_elem As spisok

Public i As Integer

Dim s As spisok

Private Function print_k (cur As spisok, ind As Integer, k As Integer) As Integer

If ind = k Then

print_k = cur.i

Else

print_k = print_k(cur.next_elem, ind + 1, k)

End If

End Function

Private Sub Command1_Click()

Caption = print_k(s, 1, 1)

End Sub

Private Sub Form_Load()

Set s = New spisok

s.i = 1

Set s.next_elem = New spisok

s.next_elem.i = 5

Set s.next_elem.next_elem = New spisok

s.next_elem.next_elem.i = 8

End Sub

2.Рабочий обслуживает 4 станка, каждый станок отказывает с интенсивностью (лямбда)=0,5 отказа/часов. Средние время ремонту=0,8 часа Все потоки событий - простые. Найти: 1) среднее относительное время простоя рабочего; 2) среднее число станков в очереди; 3) среднюю производительность группы станков с учетом им неполной надежности, если в работающем состоянии станок дает 5 единиц продукции в часу