Приклад виконання лабораторної роботи № 5

а) Постановка задачі. Розробити алгоритм та програму знаходження суми n членів ряду

Виконати тестування для перевірки правильності функціонування програми для значень n=3, x=2.

б) Блок-схему алгоритму наведено на рис. 4.

в) Таблиця ідентифікаторів:

Змінна алгоритму	n	s	x	i
Ідентифікатор	n	s	x	i
Тип	integer	single	single	integer

г ) Текст програми:

Sub Zavdannya_4()

‘ Об’явлення змінних

Dim x AS Single, s AS Single

Dim i As Integer, n As Integer

Dim fact As Integer

’ Уведення вихiдних даних

x = InputBox (“Увести x”)

n = InputBox (“Увести n”)

’ Встановлення початкових значень x і n

s = 0

fact = 1

For i = 1 to n

fact = fact * i

s = s+(2*i+1)*cos(i*x)/fact

Next I

’ Виведення результату

MsgBox (“Сума членiв ряду: “ + str(s))

End Sub

д) Контрольний приклад. Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають вигляд

Увести x

Увести n

Сума членів ряду –1.762351

Лабораторна робота № 6. Алгоритми роботи з одновимірними масивами

Мета роботи - оволодіння практичними навичками роботи з масивами, особливостями їх введення та виведення, набуття подальших навичок організації програм циклічної структури з використанням прийомів програмування.

Завдання для самостійної підготовки

Вивчити: - способи опису розмірів масивів мовою програмування VBA; - способи вводу і виводу масивів; - реалізацію прийомів накопичення суми або добутку, запам’ятовування результатів,

- знаходження найбільшого і найменшого елементів.

Розробити алгоритм розв’язування у відповідності із завданням.
Скласти програму розв’язання задачі (див. завдання до лабораторної роботи ).
Підготувати тест для перевірки програми.

Завдання до лабораторної роботи № 8

Обчислити суму та кількість елементів масиву Х(10), що задовільняють умові .
Обчислити середнє арифметичне значення елементів масиву А(8), що задовільняють умові .
Переписати елементи масиву Х, які задовільняють умові у масив Y та підрахувати їх кількість,.
Визначити максимальний елемент серед елементів масиву В, які задовільняють умові , та його порядковий номер.
Обчислити мінімальний елемент масиву С,який задовільняє умові, та його порядковий номер.
Знайти максимальний та мінімальний елементи масиву D та поміняти їх місцями.
Обчислити середнє геометричне елементів масиву Y, які задовільняють умові y_i>0.
Розташувати в масиві R спочатку додатні, а потім відємні елементи масиву Z.
Визначити суму елементів масиву N, які кратні трьом, .
Визначити суму та кількість елементів масиву X(N), x_i>0, N30.
Знайти середнє геометричне елементів масиву A(N), a_i>0, N50.
Переписати підряд у масив Y додатні елементи масиву X(N), N40.
Переписати підряд у масив Y додатні, а в масив Z - відємні елементи масиву X(N), N40.
Визначити максимальний елемент масиву B(K), x_i<0, K40.
Визначити мінімальний елемент масиву C(K), -1x_i1, K20 та його порядковий номер.
Знайти кількість елементів масива A={a[i]}, що задовільняють умові: с <= a[i] <= d.
Знайти добуток елементів массива A={a[i]}, що задовільняють умові: с <= a[i] <= d.
Знайти кількість від’ємних елементів массива A={a[i]}, що задовільняють умові: с <= a[i] <= d.
Знайти суму кубів всіх від’ємних елементів масива A={a[i]}.
Знайти, кількість додатних елементів масива A={a[i]}, що задовільняють умові: с <= a[i] <= d.
Знайти суму квадратів всіх додатних елементів масива A={a[i]}.
Знайти добуток квадратів елементів масива A={a[i]}, що задовільняють умові: a[i] >= c.
Знайти кількість додатних, від’ємних та нульвих елементів у масиві A={a[i]}.
Знайти добуток квадратів елементів масива A={a[i]}, що задовільняють умові: a[i] >= c.
Знайти добуток останніх L від’ємних елементів в масиві A={a[i]}.
Знайти суму перших K елементів масива A={a[i]},: що задовільняють умові: с <= a[i] <= d.
Знайти кількість однакових елементів w масива A={a[i]}.
Знайти суму елементів массива A={a[i]}, що задовільняють умові: с <= a[i] <= d.
Знайти добуток останніх L додатних елементів в масиві A={a[i]}.
Знайти добуток додатних елементів масива A={a[i]}, що задовільняють умові: с <= a[i] <= d.
Знайти добуток від’ємних елементів масива A={a[i]}, що задовільняють умові: с <= a[i] <= d.
Знайти суму кубів всіх додатних елементів масива A={a[i]}.
Знайти суму квадратів всіх від’ємних елементів масива A={a[i]}.
Знайти добуток квадратів всіх додатних елементів масива A={a[i]}.
Знайти добуток квадратів всіх від’ємних елементів масива A={a[i]}.