Не могу разобраться с циклами( - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д