Лабораторная работа: Завдання з програмування на Visual Basic

Обчислити суму перших 5-ти членiв арифметичної прогресiї за формулами:

S_n = n*(a₁ + a_n )/2,

a₁ = 1,3*x² + 4,8*cos² y,

a_n = a₁ + d*(n-1),

де n = 5, y = 1,87, d = 5,83, x = e^2,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 корені рівняння

ax² + bx + c = 0.

Якщо дiйснiх коренів немає, на друк вивести повідомлення "Корені комплексні".

Розв'язок

Рішення цього повного квадратного рівняння виражаються формулою:

x_1,2 = (-b ± D^1/2 ) / 2a,

--> ЧИТАТЬ ПОЛНОСТЬЮ <--