Найти произведение ряда чисел - VB
Формулировка задачи:
создать программу , которая вычисляет произведение ряда чисел.
k [1;n]
n=20
Решение задачи: «Найти произведение ряда чисел»
textual
Листинг программы
Private Sub Command1_Click() Print pr(0.1, 20, 1) End Sub Function pr#(x#, k%, p#) If k > 0 Then pr = pr(x, k - 1, p * f(x, k)) Else pr = p End If End Function Function f#(x#, k%) f = (Exp(0.6 - k) + 3) / Sqr(x ^ k + x ^ (2 * k - 1)) End Function