Составить 2 блок-схемы: 1. Private Sub Command1_Click() Dim i As Integer,
Составить 2 блок-схемы:
1. Private Sub Command1_Click()
Dim i As Integer, j As Integer, L As Integer, M As Integer, b As Integer, c As Integer, u As Integer
Dim R6() As Single, p As Integer
M = InputBox("Количство строк матрицы=")
L = InputBox("Количество столбцов матрицы=")
ReDim R6(M, L)
For i = 1 To M
For j = 1 To L
R6(i, j) = InputBox("Введите R6(" amp; i amp; "," amp; j amp; ")=")
Next
Next
p = R6(2, 2)
For i = 2 To M Step 2
For j = 2 To L Step 2
If p gt; R6(i, j) Then
p = R6(i, j)
b = i
c = j
u = p
End If
Next
Next
R6(1, 2) = u
MsgBox ("Малый элемент с четным индексом R6(" amp; b amp; "," amp; c amp; ")=" amp; u)
End Sub
2. Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer
Dim W() As Single, flag As Boolean
m = InputBox("Введите количество строк")
ReDim W(1 To m, 1 To m)
For i = 1 To m
For j = 1 To m
W(i, j) = InputBox("W(" amp; i amp; "," amp; j amp; ")=")
Print W(i, j);
Next
Print
Next
flag = False
Print
End Sub
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.