петр васильев

здравствуйте, помогите пожалуйста составить блок-схему алгоритма...заранее спасибо


Option Explicit
Dim A() As Single
Dim i As Integer, j As Integer, m As Integer, n As Integer, b As Integer
Private Sub Кнопка_Click()
m = mrow
n = ncol
ReDim A(1 To m, 1 To n)
TabA m, n, A()
For i = 1 To m
b = Cells(i, 2): Cells(i, 2) = Cells(i, 4): Cells(i, 4) = b 'смена четвёртого и второго стлбцов
Next i
TabA m, n, A()
Cells(1, n + 3) = "i" 'название
Cells(1, n + 4) = "j" 'название
Dim l As Single 'номер строки, в которой пишеутся координаты числа от 5 до 20
l = 3
For i = 1 To m
For j = 1 To n
If A(i, j) < 0 Then 'условия, при которых записываются координаты чисел
Cells(l, n + 3) = i: Cells(l, n + 4) = j: l = l + 1 'печать коородинат чисел, увеличение номера строки на один
End If
Next j
Next i
End Sub
Function mrow() As Integer
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
mrow = i - 1
'MsgBox "m=" & mrow
End Function
Function ncol() As Integer
Dim j As Integer
j = 1
Do Until IsEmpty(Cells(1, j))
j = j + 1
Loop
ncol = j - 1
'MsgBox "n=" & ncol
End Function
Sub TabA(m As Integer, n As Integer, A() As Single)
For i = 1 To m
For j = 1 To n
A(i, j) = Cells(i, j)
Next j
Next i
End Sub

rew

петр васильев, это что за язык программирования??