Дана числовая последовательность - VB

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

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

дана числовая последовательность An=2cos(n) найти сумму положительных чисел среди первых ста членов последовательности.

Решение задачи: «Дана числовая последовательность»

textual
Листинг программы 
Private Sub Form_Load()
Do
b = b + 1
a = 2 * Cos(b)
If a > 0 Then
Sum = Sum + a
End If
Loop Until b = 100
MsgBox "Сумма = " & Format(Sum, "0.00"), vbOKOnly, ""
End
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 4.2 из 5
Похожие ответы