Вычислить и , если .
Обозначим через p сумму, а через s произведение. Результаты P = , будем выдавать в ячейку A1 , а значение p в ячейку B1 , запись S = в ячейку A3 , а значение s в ячейку B3 . Предложим программу вычисления суммы и произведения членов числовой последовательности в виде
Private Sub Workbook_Open()
Dim n As Integer
Dim s, p, an As Single
s = 0
p = 1
For n = -3 To 15
an = 1.33 ^ n / (n ^ 2 + 1)
s = s + an
p = p * an
Next n
Range("A1").Value = "S ="
Range("B1").Value = s
Range("A3").Value = "P ="
Range("B3").Value = p
End Sub
Результаты счета имеют вид: