Типовые программы обработки массивов. Поиск минимальных и максимальных элементов в одномерных массивах и матрицах.

Типовые программы обработки массивов

Одномерного:

· Ввод массива (при помощи InputBox)

· Вычисление суммы элементов массива

· Нахождение наибольшего элемента массива и порядкового номера этого элемента

· Циклический сдвиг

· Вставка в последовательность заданного элемента

· Исключение заданного элемента из последовательности

· Вывод последовательности элементов массива

Двумерного:

· Ввод и вывод массива

· Определение максимального элемента матрицы и его адреса.

· Определение максимальных элементов строк матрицы

· Определение максимальных элементов столбцов матрицы

· Найти значение суммы элементов каждого столбца матрицы

· Найти сумму элементов матрицы, расположенных выше главной диагонали

· Вычеркнуть из матрицы строку с номером k

· Вставить строку между k-той и k+1-й строками матрицы

Ввод одномерного массива

Пусть имеется одномерный массив из n элементов x1,x2,…,xn.

Опишем и введем этот массив:

· Ввод при помощи текстового окна:

Dim x() As Single

Private Sub Button1_Click()

Dim n,i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(TextBox1.Text)

Next i

End Sub

· Ввод при помощи функции InputBox:

Dim x() As Single

Private Sub Button1_Click()

Dim n As Integer, i As Integer

n = CSng(InputBox("Введите n"))

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = CSng(InputBox("x(" + CStr(i) + ")", "массив аргументов"))

Next i

EndSub

Изменение размеров массива

Для этого существует оператор ReDim.

Dim MyArray() As String 'а затем в нужном месте Вашей программы объявляете уже конкретное количество элементов

ReDim MyArray(10) As String 'Данная запись оператора ReDim полностью очищает массив от содержимого и создает новый пустой массив.

Для того, чтобы добавить запись в массив, не удаляя содержимого, необходимо его переопределить с ключевым словом Preserve

ReDim Preserve MyArray(10) As String 'Новая запись добавляется в конец массива.

Сортировка

Private Sub sortVa ()

Dim 1Va (2) As String

1Va (0) = "lion"

1Va (1) = "turtle"

1 (2) = "ostrich"

Array.Sort(1Va)

End Sub

Нахождение минимума

PublicClass Form1

Dim a(10) As Integer

Dim min As Integer

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For i = 1To10

a(i) = Fix(Rnd() * 100)

Next

min = 9999999

For i = 1To10

If a(i) < min Then min = a(i)

Next

MsgBox("Минимум равен: "& min)

EndSub

EndClass

Нахождение максимума

PublicClassForm1

Dim a(10) As Integer

Dim max As Integer

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For i = 1 To 10

a(i) = Fix(Rnd() * 100)

Next

max = 0

For i = 1 To 10

If a(i) > max Then max = a(i)

Next

MsgBox("Максимум равен: "& max)

EndSub

EndClass

Нахождение наибольшего элемента массива и порядкового номера этого элемента:

Max = x(0)

For i = 0 To n-1

If x(i) > Max Then Max = x(i): nm = i