Обчислення наближеного значення суми спадного ряду. Складання блок-схеми та програми, яка б виводила на друк сгенерований, сформований та впорядкований масиви. Використання операторів умовного переходу If - Then - Else. Розроблення програми на VBA.
Завдання з програмування на 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, а потім задаючи їхні значення. Нижче наведений текст програми Завдання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 → Выполнить. Якщо 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 Корені рівняння комплексні!.
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
