InputVector(a, "a")

txtЖурнал.AppendText("Матрица a" & vbCrLf)

OutputVector(a, txtЖурнал)

InputVector(b, "b")

txtЖурнал.AppendText("Матрица b" & vbCrLf)

OutputVector(b, txtЖурнал)

Упр(a, SumA)

Упр(b, Sumb)

h = SumA - Sumb

If h <= u Then

txtЖурнал.AppendText("А и В равнозначны" & vbCrLf)

Else

txtЖурнал.AppendText("Средне арифм А " & SumA & vbCrLf)

txtЖурнал.AppendText("Средне арифм В " & Sumb & vbCrLf)

End If

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Label1.Click

End

End Sub

Private Sub Упр(ByVal x() As Single, ByRef Сумма As Single)

Dim i, Sum, kol As Integer

For i = 1 To x.GetUpperBound(0)

Sum = Sum + x(i)

kol = kol + 1

Next

Сумма = Sum / kol

End Sub

Private Sub InputMatrix(ByRef x(,) As Single, Optional _

ByVal ArrayName As String = "элемент")

Dim i, j As Integer

For i = 1 To x.GetUpperBound(0)

For j = 1 To x.GetUpperBound(1)

x(i, j) = InputBox(ArrayName & _

"(" & i & "," & j _

& ") = ?")

Next

Next

End Sub

Private Sub OutputMatrix(ByVal x(,) As Single, _

ByVal y As TextBox)

Dim i, j As Integer

For i = 1 To x.GetUpperBound(0)

For j = 1 To x.GetUpperBound(1)

y.AppendText(x(i, j) & vbTab)

Next

y.AppendText(vbCrLf)

Next

End Sub

Private Sub InputVector(ByRef x() As Single, Optional _

ByVal ArrayName As String = "элемент")

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

x(i) = InputBox(ArrayName & "(" & i & ") = ?")

Next

End Sub

Private Sub OutputVector(ByVal x() As Single, _

ByVal y As TextBox)

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

y.AppendText(x(i) & vbTab)

Next

y.AppendText(vbCrLf)

End Sub

End Class

Задача 18

Public Class Form1 Private Sub btnПуск_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnПуск.Click 1: Dim ma, na, mb, nb As Integer Dim a(,) As Single, b(,) As Single Dim Порог, sa, sb, o, u As Single Dim СигА, СигВ As Boolean 5: txtЖурнал.Clear() ma = InputBox _ ("Задайте количество строк матрицы а") na = InputBox _ ("Задайте количество столбцов матрицы а") mb = InputBox _ ("Задайте количество строк матрицы b") nb = InputBox _ ("Задайте количество столбцов матрицы b") 10: Порог = InputBox("Задайте Порог") txtЖурнал.AppendText("ma = " & ma & _ vbTab & "na = " & na & vbCrLf) txtЖурнал.AppendText("mb = " & mb & _ vbTab & "nb = " & nb & vbCrLf) txtЖурнал.AppendText("Порог = " & Порог & vbCrLf) ReDim a(ma, na) 15: ReDim b(mb, nb) InputMatrix(a, "a") txtЖурнал.AppendText("Матрица a" & vbCrLf) OutputMatrix(a, txtЖурнал) InputMatrix(b, "b") 20: txtЖурнал.AppendText("Матрица b" & vbCrLf) OutputMatrix(b, txtЖурнал) Средн(a, Порог, sa, СигА) Средн(b, Порог, sb, СигВ) If СигА = True Then o = a(1, 1) For i = 1 To a.GetUpperBound(0) For j = 1 To a.GetUpperBound(1) a(i, j) = a(i, j) + o Next Next Else : txtЖурнал.AppendText("Элементы вектора А не совпадают" _ & vbCrLf) End If If СигВ = True Then u = b(1, 1) For i = 1 To b.GetUpperBound(0) For j = 1 To b.GetUpperBound(1) b(i, j) = b(i, j) + u Next Next Else : txtЖурнал.AppendText("Элементы вектора В не совпадают" _ & vbCrLf) End If End Sub Private Sub Label1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Label1.Click End End Sub Private Sub Средн(ByVal x(,) As Single, ByVal h As _ Single, ByRef Среднее As Single, ByRef Сигнал As Boolean) 1: Dim i, j, y, t As Integer For i = 2 To x.GetUpperBound(0) For j = 2 To x.GetUpperBound(1) If i = j Then t = t + 1 5: If x(i, j) = x(1, 1) Then y = y + 1 End If End If Next 10: Next If y = t Then Сигнал = True Else 15: Сигнал = False End If End Sub Private Sub InputMatrix(ByRef x(,) As Single, Optional _ ByVal ArrayName As String = "элемент") Dim i, j As Integer For i = 1 To x.GetUpperBound(0) For j = 1 To x.GetUpperBound(1) x(i, j) = InputBox(ArrayName & _ "(" & i & "," & j _ & ") = ?") Next Next End Sub Private Sub OutputMatrix(ByVal x(,) As Single, _ ByVal y As TextBox) Dim i, j As Integer For i = 1 To x.GetUpperBound(0) For j = 1 To x.GetUpperBound(1) y.AppendText(x(i, j) & vbTab) Next y.AppendText(vbCrLf) Next End Sub End Class

Задача 11

Public Class Form1

Private Sub btnПуск_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnПуск.Click

Dim posa, posb As Boolean

Dim ia, ib, n As Integer

Dim a() As Single, b() As Single

txtЖурнал.Clear()

n = InputBox("Задайте длину массивов")

ReDim a(n)

ReDim b(n)

InputVector(a)

InputVector(b)

posa = pos(a)

posb = pos(b)

If posa = True Then

For i = 1 To n

If a(i) > 0 Then ia = ia + 1

Next

txtЖурнал.AppendText("Сумма индексов положительных элементов массива А" & ia & vbCrLf)

End If

If posa = False Then

For i = 1 To n

If a(i) < 0 Then ia = ia + a(i)

Next

txtЖурнал.AppendText("Сумма отрицательных элементов массива А" & ia & vbCrLf)

End If

If posb = True Then

For i = 1 To n

If b(i) > 0 Then ib = ib + 1

Next

txtЖурнал.AppendText("Сумма индексов положительных элементов массива B" & ib & vbCrLf)

End If

If posb = False Then

For i = 1 To n

If b(i) < 0 Then ib = ib + b(i)

Next

txtЖурнал.AppendText("Сумма отрицательных элементов массива B" & ib & vbCrLf)

End If

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Label1.Click

End

End Sub

Private Sub InputVector(ByRef x() As Single, Optional _

ByVal ArrayName As String = "элемент")

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

x(i) = InputBox(ArrayName & "(" & i & ") = ?")

Next

End Sub

Private Sub OutputVector(ByRef x() As Single, ByVal _

txtBx As TextBox)

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

txtBx.AppendText(" " & x(i))

Next

txtBx.AppendText(vbCrLf)

End Sub

Private Function pos(a() As Single) as Boolean

Dim i, kp, ko As Integer

For i = 1 To a.GetUpperBound(0)

If a(i) > 0 Then

kp = kp + 1

End If

If a(i) < 0 Then

ko = ko + 1

End If

Next

If ko < kp Then

pos = True

Else

pos = False

End If

End Function

End Class

Задача 10

Public Class Form1

Private Sub btnПуск_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnПуск.Click

Dim mp, mb, kp, kb, k As Integer

Dim p() As Single, b(), s As Single

txtЖурнал.Clear()

mp = InputBox _

("Задайте количество строк вектора p")

mb = InputBox _

("Задайте количество строк вектора b")

txtЖурнал.AppendText("количество строк вектора P = " & mp & _

txtЖурнал.AppendText("количество строк вектора B= " & mb & _

vbTab & "nb = " & nb & vbCrLf)

ReDim p(mp)

ReDim b(mb)

InputVector(p)

InputVector(b)

f1(p, kp)

f1(b, kb)

If kp = kb Then

txtЖурнал.AppendText("p(1) = " & p(1) & vbCrLf)

txtЖурнал.AppendText("b(1) = " & b(1) & vbCrLf)

End If

If kp > kb Then

For i = 1 To p.GetUpperBound(0)

s = s + p(i)

Next

s = s / p.GetUpperBound(0)

txtЖурнал.AppendText("Среднее значение элементов вектора P = " & s & vbCrLf)

Else

For i = 1 To b.GetUpperBound(0)

s = s + b(i)

Next

s = s / b.GetUpperBound(0)

txtЖурнал.AppendText("Среднее значение элементов вектора B = " & s & vbCrLf)

End If

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Label1.Click

End

End Sub

Private Sub InputVector(ByRef x() As Single, Optional _

ByVal ArrayName As String = "элемент")

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

x(i) = InputBox(ArrayName & "(" & i & ") = ?")

Next

End Sub

Private Sub OutputVector(ByRef x() As Single, ByVal _

txtBx As TextBox)

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

txtBx.AppendText(" " & x(i))

Next

txtBx.AppendText(vbCrLf)

End Sub

Public Sub f1(a() As Single, ByRef k As Integer)

Dim i As Integer

For i = 1 To a.GetUpperBound(0)

If a(i) < 0 Then k = k + 1

Next

End Sub

End Class