0 / 0 / 0
Регистрация: 11.06.2012
Сообщений: 5
1

Найти среднее арифметическое отрицательных sin|m(i)|

19.06.2012, 21:30. Показов 682. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
можете помочь решить задачку ?
вычислить и округлить до 0,1 элементы массива M=(m(i)) где m(i)=9cos(i+k ) и i=(1.2....7)
найти среднеарифметическое отрицательных sin|m(i)|
заранее спасибо )))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim m(7) As Single
Dim k, S As Integer
Dim i, r, o As Integer
 
Private Sub Command1_Click()
k = CSng(txt1.Text)
S = 0
o = 0
For i = 1 To 7
m(i) = 9 * Cos(i + k)
m(i) = Round(m(i), 1)
txt2.Text = txt2.Text + "   " & m(i)
If (Sin(m(i))) < 0 Then o = o + 1
If (Sin(m(i))) < 0 Then S = (S + (Sin(Abs(m(i)))))
Next i
r = S / o
txt3 = Round(r, 3)
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2012, 21:30
Ответы с готовыми решениями:

Найти среднее арифметическое отрицательных элементов массива
народ подскажите как Вычислить среднее арифметическое отрицательных элементов массива, превышающих...

Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива
Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов...

Найти среднее арифметическое положительных элементов и произведение отрицательных элементов массива
Добрый день,просьба помочь в решении следующей задачи,заранее спасибо. В одномерном массиве А(15)...

Вычислить среднее арифметическое отрицательных элементов массива
1. Вычислить среднее арифметическое отрицательных элементов массива. 2. Поменять местами...

1
es geht mir gut
11272 / 4756 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
20.06.2012, 10:29 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim m(1 To 7) As Single
Dim k As Single, S As Single
Dim i As Integer, r As Single, o As Single
Private Sub Command1_Click()
k = CSng(Txt1.Text) 'CSng(InputBox(" K = ", , 3)) '
S = 0: o = 0: Txt2.Text = ""
    For i = 1 To 7
        m(i) = Round(9 * Cos(i + k), 1)
        Txt2.Text = Txt2.Text + "   " & m(i)
        If Sin(Abs(m(i))) < 0 Then o = o + 1: S = S + Sin(Abs(m(i)))
    Next i
    If o = 0 Then MsgBox "Отрицательных sin|m(i)| нет!": Exit Sub
    r = S / o
    Txt3 = Round(r, 3)
End Sub
0
20.06.2012, 10:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2012, 10:29
Помогаю со студенческими работами здесь

Из последовательности N чисел вычислить среднее арифметическое значение отрицательных
Вводится последовательность из N чисел. Вычислить среднеарифметическое значение отрицательных среди...

Определить среднее арифметическое отрицательных и положительных элементов матрицы
Как определить среднее арифметическое отрицательных и положительных элементов в массиве A(M,N)

Дана матрица.Определить среднее арифметическое отрицательных и положительных элементов
Помогите пожалуйста! очень срочно надо! Дана матрица А= -10 20 13 -22 11 -5 4 12 -8...

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4
1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru