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

Вывести значения средних арифметических элементов всех столбцов матрицы

25.04.2009, 18:04. Показов 3211. Ответов 3
Метки нет (Все метки)

Задача № 1. Задана матрица А(i,j). (Причем задать ее надо самому с помощью генератора случайных чисел, предварительно введя в InputBox размерность матрицы)
Вывести значения средних арифметических элементов всех столбцов матрицы .
Задача № 2. Найти все числа, каждое из которых встречается в каждой строке матрицы A(m,n). Матрица задается тем же способом, что и в задаче 1.
Помогите!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2009, 18:04
Ответы с готовыми решениями:

Найти максимальное из средних арифметических столбцов матрицы
дана матрица цел чисел найти мах сред ореф в каждом столбце #include <stdio.h> #include...

Создание одномерного массива средних арифметических столбцов матрицы
Здравствуйте. На форуме новичок.. У меня возникла проблема при написании программы. Задание такое:...

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

Дана вещественная матрица размером NxM.Определить числа B1..Bm,равные значениям средних арифметических элементов столбцов.
Дана вещественная матрица размером NxM.Определить числа B1..Bm,равные значениям средних...

3
1159 / 285 / 23
Регистрация: 28.09.2008
Сообщений: 553
27.04.2009, 18:00 2
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
Dim A() As Integer
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
Dim tmp As String, x As Integer, y As Integer, sum As Integer
tmp = InputBox("Введите i", "", 10)
If IsNumeric(tmp) = False Then MsgBox "Заданное i не является числом", vbCritical, "": Exit Sub
i = CInt(tmp)
tmp = InputBox("Введите j", "", 10)
If IsNumeric(tmp) = False Then MsgBox "Заданное j не является числом"
j = CInt(tmp)
ReDim A(1 To i, 1 To j)
Text1.Text = ""
Randomize
For x = 1 To i
    For y = 1 To j
        A(x, y) = Rnd * 99
        Text1.Text = Text1.Text & A(x, y)
        If Len(CStr(A(x, y))) = 2 Then
            Text1.Text = Text1.Text & "  "
        Else
            Text1.Text = Text1.Text & "    "
        End If
    Next y
    Text1.Text = Text1.Text & vbCrLf
Next x
For x = 1 To j
    sum = 0
    For y = 1 To i
        sum = sum + A(y, x)
     Next y
    MsgBox "Среднее арифметическое столбца №" & x & "=" & sum / i
Next x
End Sub
Добавлено через 2 минуты 56 секунд
P.S. На форме кнопка и текстбокс св-ва Multiline=True, ScrollBars=3-Both
1
1 / 1 / 0
Регистрация: 22.04.2009
Сообщений: 11
06.05.2009, 22:47  [ТС] 3
Немного подправила, то что уже писали ранее по 2 задачке. У меня теперь работает!
Добавила кнопку, чтобы проще запускать...
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
Private Sub CommandButton1_Click()
Cells.Clear
 
nCols = Val(InputBox("Введите кол-во столбцов"))
nRows = Val(InputBox("Введите кол-во строк"))
Randomize
For i = 1 To nRows
    For j = 1 To nCols
        Cells(i, j) = Int(Rnd + 1.5 * j)
    Next j
Next i
 
For i = 1 To nRows - 1
For j = 1 To nCols
sWhatFind = Cells(i, j)
nCountTrue = 0
For x = i To nRows - 1
Set rngFindRange = Range(Cells(x + 1, 1), Cells(x + 1, nCols)).Find(What:=sWhatFind, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
 
If Not (rngFindRange Is Nothing) Then
nCountTrue = nCountTrue + 1
End If
Next x
If nCountTrue = nRows - 1 Then sListOfNumbers = rngFindRange.Value & ", " & sListOfNumbers
MsgBox ("Найденные числа: " & sListOfNumbers)
 
Next j
Next i
 
 
End Sub
0
JIeXa111
15.06.2009, 13:27 4
Помогите пожалуйста сёдня надо сдать курсовую...Надо создать матрицу А действительных чисел NxM (M<=50,N<=50).Найти номера столбцов, все элементы которых положительны.Исходную матрицу и полученный результат вывести на экран.Буду очень благодарен)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2009, 13:27

Из элементов матрицы сформировать вектор средних арифметических парных элементов
Это что вообще сделать надо. Не надо писать код, просто объясните суть..

Составить одномерный массив из средних арифметических значений элементов в столбцах матрицы
Вводятся две целые матрицы размером 25х20 и 20х30. Для той матрицы, у которой сумма отрицательных...

Составить одномерный массив из средних арифметических значений элементов строк матрицы
Вводятся две вещественные матрицы размером 20х30 и 30х40. Для той матрицы, у которой сумма...

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

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

Составить одномерный массив из средних арифметических значений элементов в нечетных столбцах матрицы
вводятся две вещественные квадратные матрицы размером М*М и N*N .для той матрицы у которой сумма...


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

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

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