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

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

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

 

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

 

 

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

 

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

 

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

 

Sub Iteraciyniy_cycl()

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

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.
Алгоритми роботи з одновимірними масивами

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

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

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

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

2. Розробити алгоритм розв’язування у відповідності із завданням.

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

4. Підготувати тест для перевірки програми.