Вычислить значение выражения P, включающего 10 членов - VB

Узнай цену своей работы

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

помогите плиз)

Решение задачи: «Вычислить значение выражения P, включающего 10 членов»

textual
Листинг программы 
Option Explicit
Dim P As Single
Dim i As Integer
Private Sub Command1_Click()
 For i = 3 To 11   ' Ответ будет 483,308 , но это 9 членов а с 10-ю членами(For i = 3 To 12) ответ будет 625,315
   P = P + ((1 / i) - i) ^ 2
 Next i
Print Format(P, "0.000")
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

11   голосов , оценка 4.091 из 5