Помогите сделать программы в vba срочно!
2. Дано целое число. Если оно нечетное, то вычислить сумму
синуса и косинуса этого числа, в противном случае вычислить
модуль этого числа.
3.найти сумму двадцати членов последовательности: 0,3,6,9...
4.Дано натуральное число n. Вычислить sin x+sin^2x+...+sin^n x
Ответы
Ответ дал:
0
Dim s As Integer, sum As Single
s = 44
If s Mod 2 = 1 Then
sum = Sin(s * 3.14 / 180) + Cos(s * 3.14 / 180)
Else
sum = Abs(s)
End If
MsgBox sum
'задач 3
Dim s As Integer, sum As Integer, i As Integer, j As Integer
Do While i < 21
sum = sum + j
Cells(i + 1, 1) = i
Cells(i + 1, 2) = j
Cells(i + 1, 3) = sum
i = i + 1
j = j + 3
Loop
'задач 4
Dim x As Integer, sum As Single, i As Integer, n As Integer
x = 30
n = CInt(InputBox("Введите n"))
For i = 1 To n
sum = sum + Sin(i * x * 3.14 / 180)
Next i
MsgBox sum
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад