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

Задача №4

Задание: Дана квадратная матрица. Найти количество отрицательных элементов побочной диагонали матрицы.

Эскиз проекта

Блок-схема

Программный код

Dim n, i, j, k, col 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()

End

End Sub

Private Sub Command4_Click()

col = 0

For i = 1 To n

If x(i, n - i + 1) < 0 Then col=col+1

Next

Command4.Caption = "Количество отрицательных элементов побочной диагонали равна" + Str(col)

End Sub

Работа приложения

Ввод исходных данных

Отображение массива в Text 1