Получить функцию из элементов массива - VB
Формулировка задачи:
Помогите пож-та с програмированием. Нужно только расшифровать задание, остальное сделаю сам. Имеется массив (матрица-вектор), нужно из элементов получить функцию.
Просто понять не могу, что эти буковки означают.
Решение задачи: «Получить функцию из элементов массива»
textual
Листинг программы
Private Sub Command1_Click()
Dim i%, n%
n = 10
ReDim x(n)
For i = 1 To n
x(i) = Int(Rnd * 5) + 1
Print x(i); vbTab;
Next i
Print: Print: Print "Otvet: Y="; Y(x)
End Sub
Function Y(m())
Dim p%, i%, k%
Dim S
p = UBound(m)
Y = 1
For i = 1 To p
S = 0
For k = 1 To i
S = S + m(k)
Next k
Y = Y * S
'.............
Print "S("; i; ")="; S; vbTab; "Y("; i; ")="; Y
'.............
Next i
Print:
End Function