Задача № 3

Вычислить и , если .

Обозначим через 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

 

Результаты счета имеют вид: