- •Розрахунково-графічна робота №6
- •«Розв’язання інженерних задач мовою програмування vba»
- •Завдання на розрахунково-графічну роботу № 6
- •Строки виконання ргр № 6: початок 07.11.2011 р. Закінчення 02.12.2011 р.
- •1. Інструментальне середовище vba
- •1.1. Створення панелі інструментів користувача.
- •1.2. Створення макросів і піктографічних кнопок.
- •2.4. Текст програми
- •2.5. Тестування програми
- •Висновок
- •Список використаних літературних джерел
2.5. Тестування програми
За допомогою калькулятора обчислюємо значення функцій при вхідних даних: а=1,4; b=2,0; c=-1,5, на інтервалі [-4;3] , якщо ∆х=0,5.
-
х=-4; х<b
-
x=-3,5; x<b
-
x=-3; x<b
-
x=-2,5; x<b
-
x=-2;x<b
-
x=-1,5; x<b
-
x=-1;x<b
-
x=-0,5;x<b
-
x=0; x<b
-
x=0,5; x<b
-
x=1; x<b
-
x=1,5; x<b
-
x=2; x=b
-
x=2,5; x>b
-
x=3;x>b
За результатами роботи програми:
Відхилення результатів роботи програми від тесту:
х |
ут |
упр. |
∆у |
|
-4 |
-0,2457684 |
-0,2457684 |
0 |
|
-3,5 |
-0,3066764 |
-0,3066764 |
0 |
|
-3 |
-0,3733935 |
-0,3733935 |
0 |
|
-2,5 |
-0,4471458 |
-0,4471458 |
0 |
|
-2 |
-0,5295939 |
-0,5295939 |
0 |
|
-1,5 |
-0,6230659 |
-0,6230659 |
0 |
|
-1 |
-0,7309714 |
-0,7309714 |
0 |
|
-0,5 |
-0,8585965 |
-0,8585965 |
0 |
|
0 |
-1,0147997 |
-1,0147997 |
0 |
|
0,5 |
-1,216174 |
-1,216174 |
0 |
|
1 |
-1,5 |
-1,5 |
0 |
|
1,5 |
-1,985203 |
-1,985203 |
0 |
|
2 |
не визначений |
не визначений |
0 |
− |
2,5 |
-1,216174 |
-1,216174 |
0 |
|
3 |
-1,5 |
-1,5 |
0 |
Висновок: порівнюючи результати, отримані за допомогою калькулятора та комп’ютера, бачимо, що розходження в обох випадках складає 0%, що, в свою чергу, означає, що програма працює коректно.
3. Реалізація циклу за індексом мовою VBA
3.1. Постановка задачі
Розробити алгоритм та програму знаходження суми n членів ряду
Виконати тестування для перевірки правильності функціонування програми для значень x=0,3; n=3
3.2. Блок-схема алгоритму
3.3. Таблиця ідентифікаторів
Змінна алгоритму |
x |
i |
n |
s |
f |
Ідентифікатор |
x |
i |
n |
s |
f |
Тип |
Single |
Integer |
Integer |
Single |
Integer |
3.4. Текст програми
Sub Cykl_index ()
MsgBox ("Цикл за індексом")
Dim x As Single, s As Single
Dim i As Integer, n As Integer, f As Integer
x = InputBox("Уведіть x")
n = InputBox("Уведіть кількість членів ряда ")
s=0
For i = 1 To n
f = 1
For j = 1 To 2 * i
f = f*j
Next j
s = s + (((-1) ^ i) * (Sin(i * x) / f))
Next i
MsgBox ("сума" + Str(n) + "членів ряда=" + Str(s))
End Sub
3.5. Тестування програми
За допомогою калькулятора обчислюємо значення суми n членів ряду при вхідних даних: n=3,x=2
За результатами роботи програми:
Обчислюємо відхилення результатів роботи програми від тесту:
Висновок: порівнюючи результати, отримані за допомогою калькулятора та комп’ютера, бачимо, що розходження в обох випадках складає 0%, що, в свою чергу, означає, що програма працює коректно.