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

Базовые программы обработки одномерного массива

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

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

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

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

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(TextBox1.Text)

Next i

End Sub

b) Ввод при помощи функции 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

End Sub

2) Вычисление суммы элементов массива:

s = 0

For i = 0 To n-1

s = s + x(i)

Next i

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

Max = x(0)

For i = 0 To n-1

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

Next i

4) Вывод последовательности элементов одномерного массива

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

Dim x() As Single

Private Sub Button1_Click()

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

ReDim x(0 To n-1)

For i = 0 To n-1

TextBox1.text= TextBox1.text +CStr(x(i))+vbCrLf

Next i

End Sub

b) Вывод при помощи функции MsgBox:

Dim x() As Single

Private Sub Button1_Click()

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

ReDim x(0 To n-1)

For i = 0 To n-1

x(i) = MsgBox(CStr(x(i)), , "x(" & CStr(i) & ")")

Next i

End Sub

Базовые программы обработки двумерного массива

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

Dim a(,) As Single

Private Sub Button1_Click()

Dim n As Integer, m as Integer

Dim i As Integer, j as Integer

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

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

ReDim a(0 To n-1, 0 To m-1)

For i = 0 To n-1

For j = 0 To m-1

a(i,j)=Csng(InputBox("a(" + Cstr(i) + "," + Cstr(j) + ")"))

Next j,i

2. Нахождение суммы элементов каждого столбца матрицы

For j=0 To m-1

S(j)=0

For i=0 To n-1

S(j)=S(j)+x(i,j)

Next i Textbox1.Text=Textbox1.Text+”s(“+CStr(j)+")="+CStr(S(j))+vbCrLf

Next j

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

For i=0 To n-1

max(i)=x(i,1)

For j=0 To m-1

If x(i,j)>max(i) Then max(i) =x(i,j)

Next j

Textbox1.Text=Textbox1.Text+"max(“+CStr(i)+")="+CStr(max(i))+vbCrLf

Next i

4. Вывод двумерного массива

For i = 0 To n-1

For j = 0 To m-1

TextBox1.Text = TextBox1.Text + CStr(x(i, j)) + “ “

Next j

TextBox1.Text = TextBox1.Text + vbCrLf Next i