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

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

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

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

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

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

Список літератури

1) Камминг, Стив. VBA для "чайников", 3-е издание.: Пер.с англ. – М.: Издательский дом "Вильямc", 2001.— 448c.

2) А. Васильев, А. Андреев. VBA в Office 2000. C.-Пб.: Питер, 2001. – 409c.

3) Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Application. М.: Телеком 2004.

4) Гетц К., Джилберт М. Программирование в Microsoft Office. К.: Издательская группа BHV, 1999.

Зміст

Дата добавления: 2015-07-26; просмотров: 178; Нарушение авторских прав

Мы поможем в написании ваших работ!