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

Задача №2

Задание: Дан двумерный массив x(n,n). Найти сумму элементов на побочной диагонали.

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

Блок-схема

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

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

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()

s = 0

For i = 1 To n

s = s + x(i, n - i + 1)

Next

Command3.Caption = "Сумма элементов на побочной диагонали равна" + Str(s)

End Sub

Private Sub Command4_Click()

End

End Sub

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

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

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

Результат