Результаты работы программы. Тема 4. Цикл. |цикличной| обработка двумерных массивов

ТЕМА 4. цикл.|цикличной| обработка ДВУМЕРНЫХ массивов

Вычислить|исчисляющий| сумму положительных|положительных| и количество отрицательных элементов двумерного массива M (3,5) – 3 строки, 5 столбцов. Элементы массива вычислить по формуле:

Вывод|выводы| элементов массива и результаты расчета осуществить на форму (или в файл – по указанию преподавателя).

Блок-схема| алгоритма

|

Код программы:

Public Class Form1

Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles cmdStart.Click

Dim i, j, n, m, k As Integer: Dim s As Single, z As String

'n и m - верхние индексы элементов массива

n = Convert.ToInt32(txtn.Text): m = Convert.ToInt32(txtm.Text)

Dim a(n, m) As Single

'Вычисление и вывод элементов массива A в поле списка ListBox1

'z- строка из элементов строки массива А

For i = 1 To n: For j = 1 To m: a(i, j) = (i ^ 2 - 5) / (i + j): z = z & Format(a(i, j), " 0.00 ")

Next j: ListBox1.Items.Add(z): z = " ": Next i

'Вычисление суммы положительных и количества отрицательных

'элементов массива

s = 0: k = 0

For i = 1 To n: For j = 1 To m

If a(i, j) >= 0 Then

s = s + a(i, j)

Else

k = k + 1

End If

Next j: Next i

txts.Text = s.ToString: txtk.Text = k.ToString

End Sub

Private Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles cmdEnd.Click

End

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Button1.Click

txtn.Clear(): txtm.Clear(): txts.Clear(): txtk.Clear(): txtn.Focus()

End Sub

End Class

Дата добавления: 2014-11-06