Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 03.11.2019
Сообщений: 1
1
Excel

Составление блок-схемы алгоритма и программы для решения задачи

03.11.2019, 21:35. Показов 840. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста, написать программу:
1) Ввести значение переменной n. Ввести значение m.Ввести матрицу А(), в которой n - количество строк, а m - количество столбцов.
2) Найти номер строки, которая содержит наибольшую сумму элементов.

Заранее благодарю)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.11.2019, 21:35
Ответы с готовыми решениями:

Блок-схемы алгоритма решения задачи по заданному условию с использованием теории алгоритмов
Здравствуйте. помогите пожалуйста решить. осталось до сессии три дня. а я девушка ни чего вообще в...

Составление блок-схемы для программы
Здравствуйте ! Возникла проблема в составлении блок-схемы к программе. Задача программы :...

Составление блок-схемы для заданной программы
#include <iostream> #include <math.h> #include <string> using namespace std; template <class...

Составление программы через оператор FOR для решения задачи
Помогите пожалуйста,запутался и не могу разобраться,заранее огромное спасибо. Используя оператор...

2
31 / 27 / 5
Регистрация: 21.08.2015
Сообщений: 102
04.11.2019, 16:15 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
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
113
114
115
116
117
118
119
120
121
122
123
Sub Matrix_Row_Sum_Max()
 
  Показать _
    Номер_Строки_Сумма_Макс( _
    Матрицу_на_Лист( _
    Матрицу_Заполнить( _
    Матрицу_Создать( _
      Столбцов, Строк _
    ))))
    
End Sub
 
Function Показать( _
  lVar As Long) 
 
  MsgBox "номер строки, которая содержит наибольшую сумму элементов: " & _
    lVar
    
End Function
 
Function Номер_Строки_Сумма_Макс( _
  a2() As Variant) _
  As Long
 
  Dim lRow As Long, _
    lSum As Long, _
    lSum_Max As Long, _
    lSum_Max_Row As Long
 
  lSum = a2(LBound(a2), LBound(a2, 2))
  lSum_Max = lSum
  lSum_Max_Row = LBound(a2)
 
  For lRow = LBound(a2) To UBound(a2)
    
    lSum = A2_Сумма_Строки(a2, lRow)
    
    If lSum_Max < lSum Then
      
      lSum_Max = lSum
    
      lSum_Max_Row = lRow
    
    End If
  Next lRow
  
  Номер_Строки_Сумма_Макс = lSum_Max_Row
  
End Function
 
Function A2_Сумма_Строки( _
  a2() As Variant, _
  lRow As Long) _
  As String
  ' сумма строки матрицы
 
  Dim row_Sum As Long, _
    lCol As Long
 
  For lCol = LBound(a2, 2) To UBound(a2, 2)
    
    row_Sum = row_Sum + a2(lRow, lCol)
 
  Next lCol
  
  A2_Сумма_Строки = row_Sum
  
End Function
 
Function Матрицу_на_Лист( _
  a2() As Variant) _
  As Variant()
 
  ActiveSheet.Cells(1, 1).Resize(UBound(a2), UBound(a2, 2)) = a2
  
  Матрицу_на_Лист = a2
  
End Function
 
Function Матрицу_Заполнить( _
  a2() As Variant) _
  As Variant()
 
  Dim lRow As Long, lCol As Long
        
  For lRow = LBound(a2) To UBound(a2)
                    
    For lCol = LBound(a2, 2) To UBound(a2, 2)
                                        
      a2(lRow, lCol) = WorksheetFunction.RandBetween(1, 9)
                                                            
    Next lCol
  Next lRow
                                                                        
  Матрицу_Заполнить = a2
 
End Function
 
Function Матрицу_Создать( _
  lCols As Long, _
  lRows As Long) _
  As Variant()
 
  Dim a2() As Variant
  ReDim a2(1 To lRows, 1 To lCols)
 
  Матрицу_Создать = a2
 
End Function
 
Function Столбцов() _
  As Long
 
  Столбцов = InputBox("m - количество столбцов")
 
End Function
 
Function Строк() _
  As Long
 
  Строк = InputBox("n - количество строк")
 
End Function
Вложения
Тип файла: xls Матрица InExSu.xls (43.5 Кб, 3 просмотров)
0
31 / 27 / 5
Регистрация: 21.08.2015
Сообщений: 102
04.11.2019, 16:55 3
Visual Basic
1
2
3
4
Function A2_Сумма_Строки( _
  a2() As Variant, _
  lRow As Long) _
  As String
нужно заменить на

Visual Basic
1
2
3
4
Function A2_Сумма_Строки( _
  a2() As Variant, _
  lRow As Long) _
  As Long
Добавлено через 32 минуты
Блок-схема.
Вставьте код
Кликните здесь для просмотра всего текста
C
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
@startuml
 
start
:Запросить строки;
:Запросить столбцы;
:Матрицу создать;
:Матрицу заполнить;
 
while (Проход по строке)
while (Проход по столбцу)
:a2(lRow, lCol) = WorksheetFunction.RandBetween(1, 9);
endwhile
endwhile
 
:Матрицу на лист;
 
while (Проход по строке)
:lSum = A2_Сумма_Строки(a2, lRow);
    If (lSum_Max < lSum) Then 
      :lSum_Max = lSum;
      :lSum_Max_Row = lRow;
    EndIf
endwhile
 
:Показать;
stop
 
start
note right: A2_Сумма_Строки
while (Проход по строке)
:Сумма_Строки = Сумма_Строки + a2(lRow, lCol);
endwhile
stop
@enduml

на страницу
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2019, 16:55

Составление программы для примера и построение к ней блок схемы
При a=16,5 ; b=3,4 ; x=0,61. Заранее благодарен.

Составление блок-схемы и программы для вычисления значения функции
Дорогие форумчане, помогите решить первое задание, заранее благодарен :)

Не могу разобраться с алгоритмом(блок схемы) для решения простой задачи
Вводятся числа a и b. Найти количество чисел в диапазоне , у которых последняя цифра равна 7. Вот...

Составление блок-схемы к программе решения квадратного уравнения
Если код имеет такой вид: #include &quot;stdafx.h&quot; #include &lt;iostream&gt; using namespace std; int...

Составление блок-схемы программы c++
Помогите пожалуйста составить алгоритм программы, пожалуйста #include &lt;iostream.h&gt;...

Составление блок-схемы по тексту программы
Имеется &quot;программа&quot;, и нужно составить по ней блок-схему, но не понимаю как это делается. Прошу...


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

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

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