Не могу разобраться с циклами( - VB

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

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

Всем привет, помогите пожалуйста напичатать программы. Я пыталась, но у меня нечего не вышло( вот они: 1)Задать 6 произвольных значений x с клавиатуры и вычислить значения f(x): f(x)=cos(z)-6x z=c2-3b b= -3c2 c =-0.5 Посчитать сумму f(x). 2)Посчитать сумму числового ряда. Y = x/n - cos(x) + x/(n-1) - cos(2x) + .. - cos(nx). Значение x задавать с клавиатуры Если можно с пояснением, а то эти циклы вообще не могу понять((

Решение задачи: «Не могу разобраться с циклами(»

textual
Листинг программы
Private Sub Form_Load()
Dim Y As Single
Dim x As Single
Dim n As Integer
Dim i As Integer
Dim Sum As Single
n = InputBox("Input a value for n")
x = InputBox("Input a value for x")
Sum = x / 1 - Cos(x)
For i = 2 To n
    Sum = Sum + (x / (i - 1) - Cos(i * x))
Next i
MsgBox Sum
End Sub

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


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

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

10   голосов , оценка 4 из 5