Составить 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

Задать свой вопрос
1 ответ
У меня такая блок-схема ко второму вышла 
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт