Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » pantaleone48
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Определение элементов строк матрицы
 
#
03.02.2016 22:45:45
Большое спасибо за помощь
 
Перейти    
Определение элементов строк матрицы
 
#
03.02.2016 22:28:04
Вот файл
 
Перейти    
Определение элементов строк матрицы
 
#
03.02.2016 21:55:12
Если считать данные каждой строки, все равно в наименьшее значение ничего не заносится
Код
  For i = 1 To n
        For j = 1 To m
               If A(i, j) < Min Then Min = A(i, j)
               If A(i, j) > Max Then Max = A(i, j)
               B = A(i, j) + B
        Next j
               S = Max - Min
               B = B / m
               MsgBox "Наименьшее значение " & i & " строки = " & Min & "  Среднее арифметическое " & i & " строки = " & B & "  Разность наибольшего и наименьшего " & i & " строки= " & S
Next i
Изменено: pantaleone48 - 03.02.2016 22:26:49
 
Перейти    
Определение элементов строк матрицы
 
#
03.02.2016 21:07:53
Почти решил,но почему то наименьшее значение не находит, а максимальное находит
Код
Sub Задача3()
    Dim n, m As Integer
    Dim i, j As Integer
    Dim S, B As Integer
    Dim A() As Integer
    
    n = InputBox("Введите n")
    m = InputBox("Введите m")

    ReDim A(1 To n, 1 To m)
 
    For i = 1 To n
        For j = 1 To m
            A(i, j) = 10 * Rnd + 1
        Next j
    Next i
Worksheets("Лист1").Cells(1, 1).Resize(n, m).Value = A
    For i = 1 To n
        For j = 1 To m
               If A(i, j) < Min Then Min = A(i, j)
               If A(i, j) > Max Then Max = A(i, j)
               B = A(i, j) + B           
        Next j   
Next i
S = Max - Min
B = B / (n * m)
MsgBox "Наименьшее значение = " & Min & " Среднее арифметическое = " & B & "  Разница наибольшего и наименьшего = " & S
End Sub

Кнопка оформления кода в сообщении  <...>
Изменено: pantaleone48 - 03.02.2016 21:11:33
 
Перейти    
Определение элементов строк матрицы
 
#
03.02.2016 20:21:48
"элементов строк" сбивает с толку. Получается просто нужно найти наименьшее/наибольшее, количество и сумму из всех значений матрицы?
 
Перейти    
Определение элементов строк матрицы
 
#
03.02.2016 20:07:35
Дана действительная матрица размера m х n. Определить числа b1, …, bm, равные соответственно:
a) наименьшим значениям элементов строк;
b) значениям средних арифметических элементов строк;
c) разностям наибольших и наименьших значений элементов строк.

Матрицу с вводом количества столбцов и строк заполняющиеся рандомными числами сделал, но дальше не знаю как делать. Буду благодарен, если хотя бы опишите логику или примерное решением.
Код
Sub Задача3()
Dim n As Long, m As Long    
Dim i As Long, j As Long     
Dim A() As Double         
n = InputBox("Введите n")    
m = InputBox("Введите m")       
ReDim A(1 To n, 1 To m)       
For i = 1 To n         
For j = 1 To m            
 A(i, j) = 10 * Rnd + 1         
Next j     
Next i  
End Sub

Также тема создана на форуме excel-vba
Изменено: pantaleone48 - 03.02.2016 21:09:26
 
Перейти    
Страницы: 1
Наверх