Типовые программы обработки массивов. Вычисление суммы элементов массива. Ввод и вывод одномерных и двумерных массивов.
Типовые программы обработки массивов
Одномерного:
· Ввод массива (при помощи 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
Ввод и вывод двумерного массива
Public Class Form1
Dim matr(4, 3) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
For i = 0 To 3
For j = 0 To 3
matr(i, j) = InputBox("Введите (" + Str(i + 1) + "," + Str(j + 1) + " элемент массива:", "Ввод элементов массива с клавиатуры")
Next
ListBox1.Items.Add(matr(i, 0) & vbTab & matr(i, 1) & vbTab & matr(i, 2) & vbTab & matr(i, 3))
Next
End Sub
End Class
Сумма одномерного массива
S=0
For I=0 to 10
S=S+a(I)
Next I
Сумма многомерного массива
S=0
For I=0 to 10
For J=0 to 10
S=S+a(I,J)
Next J
Next I
Дата добавления: 2022-04-12; просмотров: 122;