Найти произведение ряда чисел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
