Данно натуральное число n. Вычислить : - VB

Формулировка задачи:

(1+1/1^2)(1+1/2^2)...(1+1/n^2);

Решение задачи: «Данно натуральное число n. Вычислить :»

textual
                            Листинг программы 
                        

                            Function FUNK(K, N)
    If N >= 1 Then
        K = K * (1 + 1 / N ^ 2): FUNK = FUNK(K, N - 1)
    Else: FUNK = K
        Exit Function
    End If
End Function
                        

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

15 голосов , оценка 4.067 из 5

Похожие ответы