Найти произведение ряда чисел - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.625 из 5
Похожие ответы