VbCrLf)

na = InputBox _

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

RedimA(ma,na)

RedimB(ma,na)

RedimC(ma,na)

InputMatrix(a, "a")

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

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

InputMatrix(b, "b")

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

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

InputMatrix(c, "c")

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

OutputMatrix(c, txtЖурнал)

D=0

Ifменьшее(A)>меньшее(B)

Then d=меньшее(a)

Else d=меньшее(B)

End if

Ifменьшее(C)>d

Thend= меньшее(C)

Endif

txtЖурнал.AppendText("наибольшее значение среди их минимальных элементов " &d_

VbCrLf)

endsub

endclass

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

Private Function Srednee(ByRef x(,) As Single) As Single

Dim sr as Single

Dim j,i as Integer

For i= 1 to x.GetUpperBound(0)

For j= 1 to x.GetUpperBound(1)

Sr=sr+X(I,j)

NEXT j

NEXT i

SR=SR / (x.GetUpperBound(0) * x.GetUpperBound(1))

Srednee = Sr

End Function

Private sub proga(ByRef x(,) As Single, _

ByRefMiAs Integer, ByRefMj As Integer, ByRefMmin As Single)

Dim sr as Single

Dim j,i,k, as Integer

SR = Srednee(x)

Mi=1

Mj=1

Mmini=abs(x(1,1)-SR)

For i= 1 to x.GetUpperBound(0)

For j= 1 to x.GetUpperBound(1)

If (abs(x(i,j)-sr)<Mmin) then

Mi=i

Mj=j

Mmni=abs(x(i,j)-sr)

End if

NEXT j

NEXT i

End sub

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

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

Dim A(,) As Single

Dim Mai As Integer

Dim MajAs Integer

Dim MaminAs Single

Dim B(,) As Single

Dim MbiAs Integer

Dim MbjAs Integer

Dim MbminAs Single

Proga(A, Mai, Maj, Mamin)

Proga(B, Mbi, Mbj, Mbmin)

If ((Mai+Maj) > (Mbi+Mbj)) then

Else

End If

дописать

6. Составьте функцию, проверяющую эквивалентность двух одномерных целочисленных массивов. Имеющие равное количество элементов массивы эквивалентны, если их соответствующие элементы имеют одинаковые значения. Используя эту функцию, проверьте эквивалентность трех заданных одномерных целочисленных массивов А, В и С. Если массивы эквивалентны, должно быть выведено сообщение «Объекты эквивалентны», иначе – сообщение «Объекты не эквивалентны».

PublicClass Form1

Private function ecv(byref x(,), y(,) as Single) as boolean

Dim k as Boolean

Dim I,j as Integer

K=true

While (I<x.getupperbound(0) and (j<x.getupperbound(1) and (flag=true)

Do

ifx(I,j)<>y(I,j)

Then k=false

End if

i=i+1

j=j+1

Loop

Ecv=k

End function

if (ecv(A,B)=true) and (ecv(C,B)=true) and (ecv(A,C)=true)

then

txtЖурнал.AppendText("«Объектыэквивалентны», " &vbCrLf)

else

txtЖурнал.AppendText("«Объектынеэквивалентны», " &vbCrLf)

end if

end sub

end class

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

3.Public Class Form1

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

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

Dim n, h As Integer

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

txtЖурнал.Clear()

n = InputBox _

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

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

h = InputBox _

("Задайте порог")

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

ReDim a(n), b(n)