Найти произведение элементов последовательности - VB

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

Найти произведение: (1 + 1 /1^2)(1 + 1 / 2^2)...(1 + 1 / n^2). Подскажите где ошибка

                    Листинг программы
                
 
                        
                          
                    
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim i, p, n As Single
        n = TextBox1.Text
        p = 1
        For i = 1 To n Step 1
            p = p * (1 + (1 / (n ^ 2)))
        Next 
        TextBox2.Text = p
    End Sub

Решение задачи: «Найти произведение элементов последовательности»

textual
                            Листинг программы 
                        
Dim i As Single, p As Single, n As Single

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

6 голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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