Xreferat.com » Рефераты по информатике и программированию » Завдання з програмування на Visual Basic

Завдання з програмування на Visual Basic

Basic" width="152" height="42" align="LEFT" />

Завдання з програмування на Visual Basic

Завдання з програмування на Visual BasicЗавдання з програмування на Visual Basic

Завдання з програмування на Visual Basic

Завдання з програмування на Visual Basic

Завдання з програмування на Visual BasicЗавдання з програмування на Visual Basic

Завдання з програмування на Visual Basic

Завдання з програмування на Visual BasicЗавдання з програмування на Visual BasicЗавдання з програмування на Visual Basic

Завдання з програмування на Visual BasicЗавдання з програмування на Visual BasicЗавдання з програмування на Visual Basic

Завдання з програмування на Visual Basic

Завдання з програмування на Visual BasicЗавдання з програмування на Visual BasicЗавдання з програмування на 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

Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.), обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.

Поможем написать работу на аналогичную тему

Получить выполненную работу или консультацию специалиста по вашему учебному проекту
Нужна помощь в написании работы?
Мы - биржа профессиональных авторов (преподавателей и доцентов вузов). Пишем статьи РИНЦ, ВАК, Scopus. Помогаем в публикации. Правки вносим бесплатно.

Похожие рефераты: