Информатика 2011-2012 / Дополнительная информация / Пример оформ Лабор раб 1,2 сем / Задача №6

Задача №6

На главной диагонали найти максимальный элемент, на побочной – минимальный.

ПРОГРАММНЫЙ КОД:

Dim n, m, i, j As Integer, x() As Single

Private Sub Command1_Click()

n = Val(InputBox("ввести n", , "n="))

ReDim x(n, n)

For i = 1 To n

For j = 1 To n

x(i, j) = Int(Rnd * 200) - 100

Next

Next

End Sub

Private Sub Command2_Click()

For i = 1 To n

For j = 1 To n

Text1.Text = Text1.Text + Str(x(i, j)) + " "

Next: Text1.Text = Text1.Text + Chr(13) + Chr(10)

Next

End Sub

Private Sub Command3_Click()

Min = x(1, n)

For i = 1 To n

For j = 1 To n

If i + j = n + 1 And x(i, j) < Min Then Min = x(i, j)

Next

Next

Command3.Caption = "мин Эл на поб диаг равен" + Str(Min)

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Command5_Click()

Max = x(1, 1)

For i = 1 To n

For j = 1 To n

If i = j And x(i, j) > Max Then Max = x(i, j)

Next

Next

Command5.Caption = "макс Эл на глав диаг равен" + Str(Max)

End Sub

РАБОТА ПРОГРАММЫ:

1.Вводим размерность матрицы: