Тема 5. Программа с использованием процедуры Function

Результаты работы программы

Вычислить|исчисляющий| значение выражения:

,

где: a_i – одномерный массив из одиннадцати элементов.

Повторяющиеся операции вычисления суммы вида оформить как функцию пользователя.

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

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

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

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