Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 1 / 1
Регистрация: 30.10.2014
Сообщений: 29
1

Вычислить среднее геометрическое sin(i-m(i))

30.10.2014, 22:40. Показов 1025. Ответов 2
Метки нет (Все метки)

Пожалуйста помогите разобраться:
Вычислить и округлить до 0,1 элементы массива M=(m(i)), где m(i)=9sin(tgi+k),а i=(1,2...7)
Найти среднее геометрическое sin(i-m(i))
С первой частью задания проблем нет, а вот вторая упорно не получается. Помогите пожалуйста найти ошибку
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Command1_Click()
Dim ks, rzs As String
Dim k, c, prz, rez As Double
Dim M(6) As Double
Dim M2(6) As Double
Dim i, n As Integer
Dim b As Boolean
    ks = Text1.Text
    k = CDbl(ks)
    n = 0
    prz = 1
    b = False
    For i = 1 To 7
        M(i - 1) = 9 * Sin(k + Tan(i))
        M(i - 1) = Round(M(i - 1), 1)
        If i = 1 Then Text3.Text = CStr(M(i - 1)) Else Text3.Text = Text3.Text + ";  " + CStr(M(i - 1))
        M2(i - 1) = Sin((i - M(i - 1)))
        If M2(i - 1) > 0 Then
        n = n + 1
            prz = ((prz * M2(i - 1))) ^ (1 / n)
            b = True
        End If
    Next i
    rez = Round(prz, 3)
    rzs = CStr(rez)
    If b Then Text2.Text = rzs Else Text2.Text = "Таких чисел нет!"
End Sub
 
 
 
Private Sub Text1_Click()
Text1.Text = ""
End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2014, 22:40
Ответы с готовыми решениями:

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

Вычислить среднее геометрическое элементов матрицы
Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали

Вычислить среднее геометрическое суммы чисел
Здравствуйте! Помогите, пожалуйста, решить задачи. 1) Дана последовательность из N положительных...

Вычислить среднее геометрическое нечетных чисел в массиве
Вычислить среднее геометрическое нечетных чисел в массиве,заданном случайным образом в интервале

__________________
2
Заблокирован
31.10.2014, 08:13 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
    For i = 1 To 7
        M(i - 1) = 9 * Sin(k + Tan(i))
        M(i - 1) = Round(M(i - 1), 1)
        If i = 1 Then Text3.Text = CStr(M(i - 1)) Else Text3.Text = Text3.Text + ";  " + CStr(M(i - 1))
        M2(i - 1) = Sin((i - M(i - 1)))
        If M2(i - 1) > 0 Then
        n = n + 1
            prz = prz * M2(i - 1)
            b = True
        End If
    Next i
    prz = prz ^ (1 / n)
2
2 / 1 / 1
Регистрация: 30.10.2014
Сообщений: 29
01.11.2014, 16:23  [ТС] 3
Спасибо Вам большое. Вы мне очень помогли
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2014, 16:23

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти среднее геометрическое массива. Максимальный элемент массива увеличить на среднее геометрическое
Добрый день! Дана задача Ввести массив A(N). Найти среднее геометрическое значение массива....

Вычислить и вывести на экран среднее геометрическое десяти введённых числовых значений
Написать программу, которая генерирует N случайных чисел в диапазоне от 1 до 10, выводит эти числа...

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

Рекурсия, вычисляющая среднее геометрическое
Составить рекурсивную функцию, вычисляющую среднее геометрическое n элементов одномерного массива.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.