ДАН Алгоритм (нуно составить блок-схему)!!!

[sanya123]

1)Private Sub Command1_Click()
Const n = 100, m = 100
Dim A(1 To n, 1 To m), B(1 To n), C(1 To n), i, j As Integer, S As Single, st As String
mf = Int(Text1.Text)
nf = Int(Text2.Text)
For i = 1 To mf
For j = 1 To nf
st = "Введите А( " + Str(i) + " , " + Str(j) + " )"
A(i, j) = Val(InputBox(st))
Next j
Next i
For i = 1 To mf
For j = 1 To nf
MSFlexGrid1.Col = j
MSFlexGrid1.Row = i
MSFlexGrid1.Text = A(i, j)
Next j
Next i
For i = 1 To mf
S = 0
For j = 1 To nf
S = S + A(i, j)
Next j
B(i) = S
Next i
MSFlexGrid2.Col = 0
For i = 1 To mf
MSFlexGrid2.Row = i - 1
MSFlexGrid2.Text = Str(B(i))
Next i
For j = 1 To nf
S = 0
For i = 1 To mf
S = S + A(i, j)
Next i
C(j) = S
Next j
MSFlexGrid3.Row = 0
For i = 1 To mf
MSFlexGrid3.Col = i - 1
MSFlexGrid3.Text = Str(C(i))
Next i
End Sub

2)Private Sub Command1_Click()
Const n = 100, m = 100
Dim A(1 To n, 1 To m), B(1 To n), C(1 To n), i, j As Integer, S As Single, st As String
mf = Int(Text1.Text)
nf = Int(Text2.Text)
For i = 1 To mf
For j = 1 To nf
st = "Введите А( " + Str(i) + " , " + Str(j) + " )"
A(i, j) = Val(InputBox(st))
Next j
Next i
For i = 1 To mf
For j = 1 To nf
MSFlexGrid1.Col = j
MSFlexGrid1.Row = i
MSFlexGrid1.Text = A(i, j)
Next j
Next i
For i = 1 To mf
S = 0
For j = 1 To nf
If A(i, j) < 0 Then
S = S + A(i, j)
End If
Next j
B(i) = S
Next i
MSFlexGrid2.Col = 0
For i = 1 To mf
MSFlexGrid2.Row = i - 1
MSFlexGrid2.Text = Str(B(i))
Next i
For j = 1 To nf
S = 0
For i = 1 To mf
If A(i, j) < 0 Then
S = S + A(i, j)
End If
Next i
C(j) = S
Next j
MSFlexGrid3.Row = 0
For i = 1 To mf
MSFlexGrid3.Col = i - 1
MSFlexGrid3.Text = Str(C(i))
Next i
End Sub

3)Private Sub Command1_Click()
Const n = 100, m = 100
Dim A(1 To n, 1 To m), R(1 To n, 1 To m), i, j As Integer, st As String, l As Single
mf = Int(Text1.Text)
nf = Int(Text2.Text)
l = Int(Text3.Text)
For i = 1 To mf
For j = 1 To nf
st = "Введите А( " + Str(i) + " , " + Str(j) + " )"
A(i, j) = Val(InputBox(st))
Next j
Next i
For i = 1 To mf
For j = 1 To nf
MSFlexGrid1.Col = j
MSFlexGrid1.Row = i
MSFlexGrid1.Text = A(i, j)
Next j
Next i
For i = 1 To mf
For j = 1 To nf
R(i, j) = l * A(i, j)
Next j
Next i
For i = 1 To mf
For j = 1 To nf
MSFlexGrid2.Col = j
MSFlexGrid2.Row = i
MSFlexGrid2.Text = R(i, j)
Next j
Next i
End Sub

4)Private Sub Command1_Click()
Const n = 100, m = 100
Dim A(1 To n, 1 To m), R(1 To n, 1 To m), B(1 To n, 1 To m), i, j As Integer, st As String
mf = Int(Text1.Text)
nf = Int(Text2.Text)
For i = 1 To mf
For j = 1 To nf
st = "Введите А( " + Str(i) + " , " + Str(j) + " )"
A(i, j) = Val(InputBox(st))
Next j
Next i
For i = 1 To mf
For j = 1 To nf
MSFlexGrid1.Col = j
MSFlexGrid1.Row = i
MSFlexGrid1.Text = A(i, j)
Next j
Next i
For i = 1 To mf
For j = 1 To nf
st = "Введите B( " + Str(i) + " , " + Str(j) + " )"
B(i, j) = Val(InputBox(st))
Next j
Next i
For i = 1 To mf
For j = 1 To nf
MSFlexGrid2.Col = j
MSFlexGrid2.Row = i
MSFlexGrid2.Text = B(i, j)
Next j
Next i
For i = 1 To mf
For j = 1 To nf
R(i, j) = A(i, j) + B(i, j)
Next j
Next i
For i = 1 To mf
For j = 1 To nf
MSFlexGrid3.Col = j
MSFlexGrid3.Row = i
MSFlexGrid3.Text = R(i, j)
Next j
Next i
End Sub

!!!СПАСИБО ВСЕМ!!!