Результаты работы программы
Тема 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
Результаты работы программы
Тема 5. ПрограммА с использованием процедурЫ function
Вычислить|исчисляющий|значение выражения:
,
где: ai– одномерный массив из одиннадцати элементов.
Повторяющиеся
операции вычисления суммы вида
оформить как функцию пользователя.
Блок-схема алгоритма
Код программы:
Public Class Form1
Function sum(ByVal n1 As Integer, ByVal n2 As Integer, ByVal k1 As Single, _
ByVal k2 As Single, ByVal k3 As Single, ByVal a() As Single) As Single
Dim s As Single, i As Integer
s = 0
For i = n1 To n2 : s = s + (k1 * a(i) + k2) ^ k3 : Next i
sum = s
End Function
Private Sub cmdVvod_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdStart.Click
Const n = 10 'Верхний индекс элементов массива
Dim a(n), r1, r2, r3, f As Single
Dim i As Integer
For i = 0 To n
a(i) = (i + 2) / 7
TextBox1.Text = TextBox1.Text & Format(a(i), "0.00 ")
Next i
r1 = sum(1, 5, 1.78, 5.4, 2, a)
r2 = sum(1, 8, 0.1, 1.25, 4, a)
r3 = sum(0, 10, 8.2, -17.02, 3, a)
f = r1 + r2 - r3
Label2.Text = "f=" & f.ToString()
End Sub
Private Sub cmdEnd_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdEnd.Click
End
End Sub
End Class