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

Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив Y

27.06.2012, 16:05. Просмотров 1401. Ответов 3
Метки нет (Все метки)


Помогите пожалуйста! Очень нужна ваша помощь!

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

Добавлено через 16 часов 52 минуты
Ребят, ну пожалуйста! Мне на завтра уже нужно очень срочно!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2012, 16:05
Ответы с готовыми решениями:

Переписать первые элементы каждой строки матрицы А в массив D, если в строке есть элемент больше 13
Переписать первые элементы каждой строки матрицы А(7,3) в массив D, если в строке есть элемент...

Найти наибольшие элементы каждой строки матрицы, и записать их в одномерный массив
Сформировать двумерный массив А размером 6*8 с по мощу генератора случайных чисел и вывести...

Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив Y
Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив Y. P.S. В...

Записать в одномерный массив наибольшие отрицательные элементы каждой строки матрицы под главной диагональю
Найти наибольшие отрицательные элементы каждой строки матрицы f(m,m), находящиеся под главной...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
Модератор
Эксперт Python
28427 / 15317 / 3020
Регистрация: 12.02.2012
Сообщений: 25,081
Записей в блоге: 4
27.06.2012, 16:48 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
35
36
37
Sub Task
Dim M() As Double
Dim Y() As Double
      '::: Задание размера и выделение памяти
      n%=Val(Inpubox("Введите число строк матрицы"))
      m%=Val(Inpubox("Введите число столбцов матрицы"))
      Redim M(1 to n%,1 to m%) As Double
      Redim Y(1 to n%) As Double
      '::: ВВод
      For i%=1 to n%
           For j%=1 to m%
                M(i%,j%)=Val(InputBox("М("+Cstr(i%)+","+Cstr(j%)+")="))
           Next j%
      Next i%
      '::: Контр. печать
      Debug.print "Исходная матрица:"
      Debug.print
      For i%=1 to n%
           For j%=1 to m%
                Debug.Print M(i%,j%);" ";
           Next j%
           Debug.Print 
      Next i%
      '::: Поиск максимальных и занесение
      For i%=1 to n%
           MMax#=M(i%,1)
           For j%=2 to m%
                If M(i%,j%) > MMax# then MMax#=M(i%,j%)
           Next j%
           Y(i%)=MMax#
      Next i%
      '::: Печать результатов:
      Debug.print "Максимальные элементы строк:"
      For i%=1 to n%
           Debug.Print Y(i%)
      Next i%
End Sub
2
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
27.06.2012, 17:20 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
Option Explicit
Dim MatrixA() As Single, ArrayY() As Single
Dim m  As Integer, n As Integer
Private Sub Command1_Click()
    Randomize
    m = InputBox("Введите количество строк", , 10)
    n = InputBox("Введите колицество столбцов", , 10)
    ReDim MatrixA(1 To m, 1 To n), ArrayY(1 To m)
    InputMatrixA m, n
    OutputMatrix MatrixA, m, n
    InputArrayY MatrixA, m, n
    OutputArray ArrayY, m
End Sub
 
Sub InputMatrixA(ByVal m As Integer, ByVal n As Integer)
Dim i As Long, j As Long
    For i = 1 To m
         For j = 1 To n
            ' MatrixA(i, j) = Val(InputBox("(" & Str(i) & "," & Str(j) & ")=")'Для ввода вручную раскомментируйте эту строку
             MatrixA(i, j) = Int(Rnd * 20 - 10) 'Для ввода вручную закомментируйте эту строку
         Next j
    Next i
End Sub
 
Sub InputArrayY(a() As Single, ByVal m As Integer, ByVal n As Integer)
Dim i As Long, j As Long, maxStrA As Single
    For i = 1 To m
       maxStrA = MatrixA(i, 1)
       For j = 1 To n
           If maxStrA < MatrixA(i, j) Then
              maxStrA = MatrixA(i, j)
           End If
       Next j
       ArrayY(i) = maxStrA
    Next i
End Sub
 
Sub OutputMatrix(a() As Single, ByVal m As Integer, ByVal n As Integer)
    Dim i As Long, j As Long
    Print
    Print "Исходная матрица"
    For i = 1 To m
         For j = 1 To n
             Print a(i, j); vbTab;
         Next j
         Print
    Next i
End Sub
 
Sub OutputArray(a() As Single, ByVal n As Integer)
Dim i As Long
    Print
    Print "Массив максимальных элементов строк"
    For i = 1 To n
              Print a(i); vbTab;
    Next i
End Sub
2
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 3
27.06.2012, 20:25  [ТС] 4
Большое спасибо вам ребята!!! Всегда помогаете)) Вот и друзьям, которые меня сюда пригласили помогаете!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2012, 20:25

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

Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y
Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y.

Динамические массивы. Найти наибольшие элементы каждой строки матрицы Х и записать их в массив Y
Найти наибольшие элементы каждой строки матрицы Х и записать их в массив Y. Размер Марицы вводить с...

Найти наибольшие элементы каждой строки матрицы и записать в отдельный массив. Вложенные циклы.
Дан массив А(К на К).Найти наибольшие элементы каждой строки и запомнить в отдельный...

Найти максимальные элементы каждой строки(столбца) матрицы и записать их в одномерный массив
Найти максимальные элементы каждой строки(столбца) матрицы и записать их в одномерный массив...


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

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

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