InputVector(a, "a")

txtЖурнал.AppendText("Вектор A" &vbCrLf)

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

InputVector(b, "b")

txtЖурнал.AppendText("ВекторB" &vbCrLf)

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

h = InputBox _

("Задайте число ")

txtЖурнал.AppendText("h = " &h& _

VbCrLf)

txtЖурнал.AppendText("векторА" &vbCrLf)

If proverka (A,h)= true

ThentxtЖурнал.AppendText("всеэлементывекторабольшезаданнойвеличины " &vbCrLf)

ElsetxtЖурнал.AppendText(" не все элементы вектора больше заданной величины " &vbCrLf)

Endif

txtЖурнал.AppendText("количество элементов вектора, которые больше заданной величины" &k&vbCrLf)

txtЖурнал.AppendText("векторB" &vbCrLf)

Ifproverka (B,h)= true

ThentxtЖурнал.AppendText("всеэлементывекторабольшезаданнойвеличины " &vbCrLf)

ElsetxtЖурнал.AppendText(" не все элементы вектора больше заданной величины " &vbCrLf)

Endif

txtЖурнал.AppendText("количество элементов вектора больше заданной величины" &k&vbCrLf)

endsub

4. Составьте функцию, вычисляющую количество элементов одномерного массива,

значение которых больше заданной величины h1, но в тоже время меньше заданной

величины h2. Используйте эту функцию для одномерных массивов А и В и

выведите имя массива, у которого количество таких элементов окажется больше.

PublicClass Form1

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

ByValArrayNameAs String = "элемент")

Dim iAs 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 AsTextBox)

Dim iAs Integer

For i = 1 To x.GetUpperBound(0)

y.AppendText(x(i) &vbTab)

Next

y.AppendText(vbCrLf)

End Sub

Private function kolichestvo (byrefx() as Single, byval h1 as Single, byval h2 as Single) as integer

Dim I as Integer

For i= 1 to <x.getupperbound(0)

If (x(i)>h1) and (x(i)<h2)

then k=k+1

end if

next

kolichestvo=k

End function

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

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

Dim A(), B(), h1, h2 as Single

Dim ma as Integer

txtЖурнал.Clear()

ma = InputBox _

("Задайтеэлементов ")

txtЖурнал.AppendText("ma = " & ma & _

vbCrLf)

RedimA(ma)

RedimB(mb)

InputVector(A, "A")

txtЖурнал.AppendText("Вектор A" &vbCrLf)

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

InputVector(b, "B")

txtЖурнал.AppendText("ВекторB" &vbCrLf)

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

txtЖурнал.AppendText("векторА" &vbCrLf)

h1 = InputBox _

("Задайтеh1 ")

txtЖурнал.AppendText("h1 = " &h1& _

vbCrLf)

h2 = InputBox _

("Задайтеh2 ")

txtЖурнал.AppendText("h2 = " &h2& _

vbCrLf)

If kolichestvo(A,h1,h2)>kolichestvo(B,h1,h2)

Then

txtЖурнал.AppendText("количество элементов в массиве А больше" &vbCrLf)

elsetxtЖурнал.AppendText("количество элементов в массиве B больше" &vbCrLf)

end if

end sub

end class

5. Составьте подпрограмму, определяющую среднее арифметическое значение

элементов одномерного массива. Если среднее арифметическое значение

элементов одномерного массива А отличается от среднего арифметического

значения элементов массива В менее чем на заданную величину ε, то выведите

сообщение "А и В равнозначны". В противном случае выведите среднее

арифметическое значение, полученное для каждого массива.

PublicClass Form1

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

ByValArrayNameAs String = "элемент")

Dim iAs 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 AsTextBox)

Dim iAs Integer

For i = 1 To x.GetUpperBound(0)

y.AppendText(x(i) &vbTab)

Next

y.AppendText(vbCrLf)

End Sub

Private function srednee (byrefx() as Single, byref ma as integer) as integer

Dim I as Integer

Dim sr as Single

Sr=0

For i= 1 to <x.getupperbound(0)

Sr=sr+x(i)

Next

Sr=sr/ma

Srednee=sr

End function

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

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

Dim A(), B(),εas Single

Dim ma as Integer

txtЖурнал.Clear()

ma = InputBox _

("Задайтеколичествоэлементов ")

txtЖурнал.AppendText("ma = " & ma & _

vbCrLf)

RedimA(ma)

RedimB(ma)

InputVector(A, "A")

txtЖурнал.AppendText("Вектор A" &vbCrLf)

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

InputVector(b, "B")

txtЖурнал.AppendText("ВекторB" &vbCrLf)

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

ε = InputBox _

("Задайтечисло ")

txtЖурнал.AppendText("ε = " &ε& _

vbCrLf)

ifABS( srednee(A,ma) – srednee(B,ma))<ε

then

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

else

txtЖурнал.AppendText(“среднееарифметическоеА ” &srednee(A,ma)&vbCrLf)

txtЖурнал.AppendText(“среднееарифметическоеB ” &srednee(B,ma)&vbCrLf)

end if

end sub

end class

7. Составьте подпрограмму для определения минимального элемента матрицы. Используя эту процедуру, для трех заданных матриц А, В, и С установите и выведите наибольшее значение среди их минимальных элементов.

Public Class Form1

Private function меньшее(byref x(,) as single) as single

Dim I, j as integer

Dim k as single

K=0

For I = 1 To x.GetUpperBound(0)

For j = 1 To x.GetUpperBound(1)

If k>x(I,j) then

K=x(I,j)

End if

Next

next

Меньшее=k

End function

Private Sub InputMatrix(ByRef x(,) _

As Single, Optional ByValArrayName _

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 AsTextBox)

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 btnПуск_Click(ByVal sender As System.Object, _

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

Dim A(), B(), C(), d as Single

Dim ma as Integer

txtЖурнал.Clear()

ma = InputBox _

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

txtЖурнал.AppendText("ma = " & ma & _