Завдання з програмування на VBA
2009 рiк
Завдання 1
Обчислити суму перших 5-ти членiв арифметичної прогресiї за формулами:
Sn = n*(a1 + an)/2,
a1 = 1,3*x2 + 4,8*cos2y,
an = a1 + d*(n-1),
де n = 5, y = 1,87, d = 5,83, x = e2,5.
Розв'язок
Програмуємо вiдповiдну програму на VBA, спочатку декларуючи потрiбнi змiннi, а потім задаючи їхні значення. Далi програмуємо задані розрахункові формули. Для виводу результату розрахунку в документ Word застосовуємо оператор WordBasic.Insert. Нижче наведений текст програми Завдання1, скопійований з редактора Visual Basic for Application.
Attribute VB_Name = "Модуль1"
'Iгор Каплик - жовтень, 2006 р.
Sub Завдання1()
Dim S, a1, an, x, y, d
Dim n
n = 5
d = 5.83
y = 1.87
x = Exp(2.5)
a1 = 1.3 * x ^ 2 + 4.8 * Cos(y) ^ 2
an = a1 + d * (n - 1)
S = n * (a1 + an) / 2
WordBasic.Insert "Sn = "
WordBasic.Insert Str(S)
End Sub
Для виклику цієї програми на виконання iз середовища Word набираємо Сервіс → Макрос → Макроси → Завдання1 → Выполнить, або (Alt+F8) → Завдання1 → Выполнить. В результаті отримаємо таке: Sn = 1025.07072799505
Завдання 2
Задано дiйснi числа а, b, с (а ≠ 0). Знайти дiйснi корені рівняння
ax2 + bx + c = 0.
Якщо дiйснiх коренів немає, на друк вивести повідомлення "Корені комплексні".
Розв'язок
Рішення цього повного квадратного рівняння виражаються формулою:
x1,2 = (-b ± D1/2) / 2a,
де D = b2 – 4ac — детермінант. Якщо D < 0, то рівняння не має дійсних коренів.
У вiдповiдностi з цим i програмуємо це завдання з використанням операторів умовного переходу If... Then... Else. Оскільки в умові завдання не сказано про конкретні значення коефiцiєнтiв рівняння, будемо задавати їх всередині програми довільно.
Текст програми Завдання2 наведений нижче.
Attribute VB_Name = "Модуль2"
'Iгор Каплик - жовтень, 2006 р.
Sub Завдання2()
Dim X1, X2, D, a, b, c
a = 5
b = 7
c = -10
D = b ^ 2 - 4 * a * c
If D >= 0 Then
X1 = -b + Sqr(D): X2 = -b - Sqr(D)
WordBasic.Insert "X1 = "
WordBasic.Insert Str(X1)
WordBasic.ParaDown
WordBasic.Insert "X2 = "
WordBasic.Insert Str(X2)
Else: WordBasic.Insert "Корені рівняння комплексні!"
End If
End Sub
Задаючи значення a = 5, b = 7, c = -10, отримаємо таку вiдповiдь:
X1 = 8.7797338380595
X2 = -22.7797338380595
Якщо ж задати значення a = 5, b = 7, c = 10 отримаємо вiдповiдь:
Корені рівняння комплексні!
Завдання 3
Скласти блок-схему та програму для обчислення вiдповiдних кожному варіанту виразів. Завдання виконати для таких варiантiв:
а) Змінна у при повтореннях циклу змінюється вiд початкового значення у = 1 до кінцевого у = 9 з кроком 1.
б) Змінна у, що змінюється при повтореннях циклу, є одновимірним масивом у = {1,5; 3; 0,6; 0,9}.
Вивести початкові дані та результати обчислень у вигляді таблиці значень X, P, Z, де:
X = (ln y + a*cos c) / (ey – tg a – sin2 c)
sin X + |X – y|1/2 * sin2 b при X > у
P = 1,35 * X2 при X = у
ln |X + 1,45y| * tg (bc) при X < у
Z = P + 0,5b2 + cos (P – a)
а = 4,32; b = 6,89; c = 171/2
Розв'язок
Не дивлячись на те, що варіанти а) i б) представляють собою два окремих завдання, ми їх поєднаємо в одній програмі. Для цього нам буде потрібно ввести такі допомiжнi змiннi:
n — кiлькiсть повторень циклу: для а) n = 9, для б) n = 4;
t(n) — масив значень змінної у;
i — лічильник: для а) i = 1, 2, ..., 9, для б) i = 1, 2, 3, 4;
var$ — строкова константа, яка може приймати значення "а)" або "б)" в залежності вiд вибраного варіанту розрахунків.
Блок-схема програми Завдання3 наведена на рисунку.
Масив t(n) заповнюється в залежності вiд значення константи var$, яке вводиться у вiкнi InputBox "Номер варіанта розрахунку", показаному на рисунку нижче.
Нижче наведений текст програми Завдання3.
Attribute VB_Name = "Модуль3"
'Iгор Каплик - жовтень, 2006 р.
Sub Завдання3()
Dim x, z, p, a, b, c, y, t(9), var$
Dim n, i
a = 4.32
b = 6.89
c = Sqr(17)
var$ = InputBox("Введiть значення а) чи б) для номера варіанта" & var$,
"Номер варiанта розрахунку")
If var$ = "" Then GoTo EndSub
WordBasic.Insert "a =" & Str(a): WordBasic.InsertPara
WordBasic.Insert "b =" & Str(b): WordBasic.InsertPara
WordBasic.Insert "c =" & Str(c): WordBasic.InsertPara
If var$ = "a)" Then n = 9
For i = 1 To n t(i) = i
Next
End If
If var$ = "б)" Then n = 4
t(1) = 1.5: t(2) = 3: t(3) = 0.6: t(4) = 0.9
End If
WordBasic.Insert "Варiант - " & var$ & "; n =" & Str(n)
WordBasic.InsertPara: WordBasic.Insert "y = "
For i = 1 To n
WordBasic.Insert Str(t(i)) & "; "
Next
WordBasic.InsertPara: WordBasic.InsertPara
WordBasic.Insert "| y | x | p | z |"
WordBasic.InsertPara
For i = 1 To n
y = t(i)
x = (Log(y) + a * Cos(c)) / (Exp(y) - Tan(a) - Sin(c) ^ 2)
If x > y Then p = Sin(x) + Sqr(Abs(x - y)) * Sin(b) ^ 2
If x = y Then p = 1.35 * x ^ 2
If x < y Then p = Log(Abs(x + 1.45 * y)) * Tan(b * c)
z = p + 0.5 * b ^ 2 + Cos(p - a)
WordBasic.Insert Str(y) & "|" & Str(x) & "|" & Str(p) & "|" _
& Str(z) & "|"
WordBasic.InsertPara
Next
End Sub
При виборі варіанта а) отримаємо такий результат:
a = 4.32
b = 6.89
c = 4.12310562561766
Варіант - a); n = 9
y = 1; 2; 3; 4; 5; 6; 7; 8; 9;
y| x | p | z |
1| 6.16921036251777 | .625618747883335| 23.5106051035047|
2|-.398860206108572 | .123457564548993| 23.3662361501907|
3|-7.67044472021885E-02| .195591633792759| 23.3769597339635|
4|-1.97047675076656E-02| .236271096733771| 23.3842595618880|
5|-5.44692028846779E-03| .266678755930375| 23.3903486513538|
6|-1.52164514501239E-03| .291309521209447| 23.3956949504055|
7|-4.16081978834523E-04| .312086912073758| 23.4005023378817|
8|-1.07952008248923E-04| .330073751199657| 23.4048895849838|
9|-2.51459877725051E-05| .345936497380926| 23.4089361125556|
При виборі варіанта б) розрахунку результат буде іншим:
a = 4.32
b = 6.89
c = 4.12310562561766
Варіант - б); n = 4
y = 1.5; 3; .6; .9;
y | x | p | z |
1.5|-1.45204156144273 |-.04368718002541 | 23.3506847944415|
3 |-7.67044472021885E-02| .195591633792759| 23.3769597339635|
.6 | 2.26534231611546 | 1.18799513455253| 23.9240910970412|
.9 | 3.86856538687228 |-.104324993260116| 23.3476284888521|
Завдання 4
Обчислити наближене значення суми спадного ряду
S(t) = Σ hn(t), n = 1 ÷ ∞,
hn(t) = [(n-1)/(n+1)]n(n-1)*(t2-1,6)1/2/(4,8c2+cos d)
з точністю ε = 10-5 для значень параметру t0 ≤ t ≤ t1 iз кроком Δt.
Точність обчислень визначається умовою R = |hn(t)| ≤ ε. ............
