- •Із дисципліни «Інформатика» на тему:
- •Завдання на розрахунково-графічну роботу № 3 „Програмування алгоритмічною мовою vba” Строки виконання ргр № 3: початок 27.09.2010 р. Закінчення 29.10.2010 р.
- •1.Створення панелі користувача і кнопок макросів.
- •1.1. Створення панелі інструментів
- •1.2. Створення макросів
- •1.3. Cтворення кнопок панелі інструментів
- •2.5. Контрольний приклад тестування програми
- •3.5 Контрольний приклад тестування програми
- •Список використаних літературних джерел
2.5. Контрольний приклад тестування програми
Задаємо змінним значення: a=3,2 b=17,5 x=-4,8. Виконуємо на калькуляторі підрахунки значень y і d згідно з формулами: y= 2265,051
і d= 0,283074
Результати роботи програми у вікнах діалогу InputBox та MsgBox:
Уведiть a=3,2
Уведiть b=17,5
Уведiть x=-4,8
Значення y: 2265,051 (рис. 2.2)
Значення d: 0,283074 (рис. 2.3)
∆у=
∆у=
∆d=
Висновок. Оскільки похибка не перевищує 0,05%, то програма лінійної структури працює коректно.
3. Розробка алгоритму та програми розгалуженої структури для розрахунку значень заданої функції
3.1. Постановка задачі
Розробити алгоритм та програму знаходження значень функції
|
x<0,5 x=0,5 x>0,5 |
t=2,2 |
Виконати тестування для перевірки правильності функціонування програми .
3.2. Блок-схема алгоритму
3.3. Таблиця ідентифікатора
Змінна |
x |
z |
t |
|
Ідентифікація |
x |
z |
t |
|
Тип змінної |
Single |
3.4. Текст програми
Sub Rozgal()
' оголошення змінних
Dim x As Single, z As Single, t As Single
'назва програми
MsgBox ("Розгалуджена")
'Уведення вхiдних даних
x = InputBox("Уведiть x")
t = InputBox("Уведiть t")
' обчислення значення функції z
If x < 0.5 Then
z = (((Log(x) / Log(10)) ^ 3) + (x ^ 2)) / ((x + t) ^ (1 / 2))
Else
If x = 0.5 Then
z=((x+t)^1/2)+1/x
Else
z=cos(x)+t*(sin(x))^2
End If
End If
' виведення результатів
MsgBox ("z=" + Str(z))
End Sub
3.5 Контрольний приклад тестування програми
Тестування програми виконуємо за допомогою вхідних даних
Введіть х
х = 0.4
Введіть t
t= 2.2
розрахунки за допомогою калькулятора: 0,0601467
тестування програми: 0.061467(рис.3.2)
Введіть х
х = 0.5
Введіть t
t=2.2
розрахунки за допомогою калькулятора: 3,643168
тестування програми : 3,643168 (рис.3.3)
Введіть х
х = 0.5
Введіть t
t=2.2
розрахунки за допомогою калькулятора: 2,098064
тестування програми : 2.098064 (рис.3.4)
∆z=
∆z1=
∆z2=
∆z3=
Висновок. Оскільки похибка не перевищує 0,05%, то програма розгалудженої структури працює коректно.
Список використаних літературних джерел
-
ДСТУ Б А.2.4-4-99. Система проектної документації для будівництва. Основні вимоги до робочої документації. – Введений на заміну ДСТУ Б А.2.4-4-95 наказом Держбуду України № 117 від 11.05 99 р.; Чинний від 01.10.99. – Київ, 1999. – 59с.
-
А. Васильев, А. Андреев. VBA в Office 2000. C.-Пб.: Питер, 2001. – 409c.
-
Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Application. М.: Телеком 2004.
-
Гетц К., Джилберт М. Программирование в Microsoft Office. К.: Издательская группа BHV, 1999
-
Харченко О.А., Сороковий О.І., Методичні вказівки до виконання лабораторних робіт на тему : «Підготовка текстового документа у редакторі Microsoft Word».-.2002.-35с.
-
Рогоза М.Є. XP: Windows, Excel, Word для самостійного вивчення, - К.: ЦУЛ, 2003
-
Камминг, Стив. VBA для "чайников", 3-е издание.: Пер.с англ. – М.: Издательский дом "Вильямc", 2001.— 448c.
-
Брайан Сайлер, Джефф Споттс. Использование Visual Basic 6. Специальное издание.: Пер.с англ. – С.-Пб.: Издательский дом "Вильямc", 2007.- 832с.
-
Серебряников А.Н. «Программирование в VBA в примерах. – Санкт-Петербург: Питер, 1997. – 336 с.
-
Конспект лекцій