Типовые программы обработки массивов. Поиск минимальных и максимальных элементов в одномерных массивах и матрицах.
Типовые программы обработки массивов
Одномерного:
· Ввод массива (при помощи 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
Дата добавления: 2022-04-12; просмотров: 157;