Завдання з програмування на Visual Basic
Програма буде складатися з алгоритму вибору з масиву Y елементів yk, менших А, i обчислення їх середнього арифметичного С за формулою:
С = Σ yk / n, k = 1ч n,
де n — кiлькiсть елементів масиву Y, менших А.
Блок-схема програми Завдання7 наведена на рисунку вище.
Текст програми Завдання7 наведено нижче.
Attribute VB_Name = "Модуль7"
'Iгор Каплик - жовтень, 2006 р.
Sub Завдання7()
Dim y!(8), a!, c!, i, j, k
y!(1) = -2: y!(2) = 15: y!(3) = 3: y!(4) = -9
y!(5) = 7: y!(6) = -6: y!(7) = 14: y!(8) = -13
n = 8: a! = 5
k = 0: c! = 0
For i = 1 To n
If y!(i) < a! Then c! = c! + y!(i): k = k + 1
End If
Next c! = c! / k
WordBasic.Insert "Середнє арифметичне С = " & Str(c!)
WordBasic.Insert ", k =" & Str(k)
End Sub
Після виклику програми на виконання отримаємо такий результат:
Середнє арифметичне С = -5.4, k = 5