Не могу разобраться с циклами( - 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 задавать с клавиатуры Если можно с пояснением, а то эти циклы вообще не могу понять((

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

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.000 из 5


СОХРАНИТЬ ССЫЛКУ