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

Сформировать вектор из элементов, что представляют среднее арифметическое массивов А, В, С

16.03.2013, 00:32. Просмотров 905. Ответов 3
Метки нет (Все метки)

Помоги пожалуйста сделать задание!

Сформировать вектор Р из элементов, что представляют собой среднее арифметическое массивов А, В, С соответственно. Определить длину вектора Р.

Заранее благодарна!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2013, 00:32
Ответы с готовыми решениями:

Сформировать вектор, содержащий среднее арифметическое элементов строки матрицы
Помогите! Нужно срочно написать прогу в MATLAB-e, а язык ещё незнаю, только начал изучать(( Из...

Сформировать вектор из произведения элементов столбцов и найти их среднее арифметическое
Задав двумерный массив вещественных данных (матрицу А.) Исходные данные задать самостоятельно,...

Сформировать вектор В как среднее арифметическое положительных элементов каждого столбца
ивените а тут могут помочь в описании программы написаной на языке паскаль если да то помогите...

Сформировать вектор В как среднее арифметическое положительных элементов каждого столбца
помогите люди добрые )) Тема моей кр работы: Вычисление матриц в Паскале. Задача данной...

3
Модератор
8098 / 3035 / 806
Регистрация: 22.02.2013
Сообщений: 4,326
Записей в блоге: 78
16.03.2013, 10:09 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Form_Load()
    Dim A() As Double, B() As Double, C() As Double, P() As Double, N As Long, L As Double
    Dim aA As Double, aB As Double, aC As Double
    ReDim A(9): ReDim B(9): ReDim C(9): ReDim P(2)
    For N = 0 To 9  ' Заполняем случайными значениями
        A(N) = Rnd * 100 - 50
        B(N) = Rnd * 100 - 50
        C(N) = Rnd * 100 - 50
    Next
    ' Находим среднее арифметическое массивов
    For N = 0 To 9
        aA = aA + A(N)
        aB = aB + B(N)
        aC = aC + C(N)
    Next
    aA = aA / 10: aB = aB / 10: aC = aC / 10
    P(0) = aA: P(1) = aB: P(2) = aC
    ' Находим длинну
    L = Sqr(P(0) * P(0) + P(1) * P(1) + P(2) * P(2))
    MsgBox "Длина = " & L
End Sub
0
Модератор
26519 / 13807 / 2628
Регистрация: 12.02.2012
Сообщений: 22,627
16.03.2013, 10:32 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Function avg_vect(A() As Double, B() As Double, C() As Double) As Double()
 
Dim P() As Double
 
   '::: Îïðåäåëÿåì ãðàíèöû èñõ. ìàññèâîâ
 
   na% = UBound(A, 1)
   nb% = UBound(B, 1)
   nc% = UBound(C, 1)
   
   '::: ïðåäâàðèòåëüíîå âûäåëåíèå ïàìÿòè
   
   ReDim P(1 To na% + nb% + nc%) As Double
 
   '::: ñ÷èòàåì ñðåäíèå
 
   sa# = avg(A)
   sb# = avg(B)
   sc# = avg(C)
 
   o% = 0
   
   '::: Ñáðàñûâàåì ñðåäíèå èç A -> P
   
   For i% = 1 To na%
       If Abs(sa# - A(i%)) <= 0.00000000000001 Then
          o% = o% + 1
          P(o%) = A(i%)
       End If
   Next i%
   
   '::: Ñáðàñûâàåì ñðåäíèå èç B -> P
   
   For i% = 1 To nb%
       If Abs(sb# - B(i%)) <= 0.00000000000001 Then
          o% = o% + 1
          P(o%) = B(i%)
       End If
   Next i%
   
   '::: Ñáðàñûâàåì ñðåäíèå èç C -> P
   
   For i% = 1 To nc%
       If Abs(sc# - C(i%)) <= 0.00000000000001 Then
          o% = o% + 1
          P(o%) = C(i%)
       End If
   Next i%
   
   If o% = 0 Then
   
      MsgBox "Íè îäèí ýëåìåíò èñõîäíûõ ìàññèâîâ íå ñîâïàë ñî ñðåäíèì"
      
      End
      
   Else
   
      '::: Îñâîáîæäàåì ëèøíþþ ïàìÿòü
   
      ReDim Preserve P(1 To o%) As Double
      
   End If
   
   avg_vect = P
 
End Function
 
'::: Ðàñ÷åò ñðåäíåãî çíà÷åíèÿ
 
Function avg(X() As Double) As Double
 
   n% = UBound(X, 1)
   
   s# = 0
   
   For i% = 1 To n%
       s# = s# + X(i%)
   Next i%
   
   avg = s# / n%
 
End Function
 
Sub Test()
 
Dim A(3) As Double
Dim B(3) As Double
Dim C(3) As Double
 
Dim P()  As Double
 
    A(1) = 1
    A(2) = 2
    A(3) = 3
    
    B(1) = 11
    B(2) = 22
    B(3) = 33
    
    C(1) = 111
    C(2) = 111
    C(3) = 111
 
    P = avg_vect(A, B, C)
    
    Debug.Print "Ðàçìåðíîñòü= "; UBound(P, 1)
    
    For i% = 1 To UBound(P, 1)
        Debug.Print "P("; i%; ")="; P(i%)
    Next i%
    
End Sub
Добавлено через 5 минут
А я, похоже, совсем не так понял задачу. Я думал, что нужно из трех массивов отобрать элементы, совпадающие со средним значением, и подсчитать, сколько их получится...
0
0 / 0 / 0
Регистрация: 12.03.2013
Сообщений: 18
16.03.2013, 16:28  [ТС] 4
Вот, посмотрите пожалуйста пример решения данной задачи и помогите сделать по примеру.
Только пример на украинском языке.
Очень нужно именно так.
На простой карандаш не обращайте внимания.
0
Миниатюры
Сформировать вектор из элементов, что представляют среднее арифметическое массивов А, В, С   Сформировать вектор из элементов, что представляют среднее арифметическое массивов А, В, С   Сформировать вектор из элементов, что представляют среднее арифметическое массивов А, В, С  

Сформировать вектор из элементов, что представляют среднее арифметическое массивов А, В, С  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2013, 16:28

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

Сформировать вектор из наибольших значений элементов строк и найти их среднее арифметическое
Задав двумерный массив вещественных данных (матрицу А.) Исходные данные задать самостоятельно,...

Двумерный массив. Сформировать вектор из наименьших значений элементов строк и найти их среднее арифметическое
Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в...

Сформировать вектор, элементы которого представляют собой сумму заданных элементов матрицы
Подскажите, что это значит:

найти среднее арифметическое строки матрицы А сформировать из них вектор В
найти среднее арифметическое строки матрицы А сформировать из них вектор В 1 2,5 4,3...

Сформировать вектор ., каждый элемент которого представляет собой среднее арифметическое
Очень нужно! Сзарание ОГРОМНОЕ СПАСИБО!!!Сформировать вектор D = (d1, d2 …, dk), каждый элемент...

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


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

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

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