Категория
Информатика
Тип
практическая работа
Страницы
7 стр.
Дата
24.07.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
117698.zip — 53.21 kb
  • zavdannja-z-programuvannja-na-visual-basic_117698_1.rtf — 830.89 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Обычный 1;
;
Iгор Каплик С.Л.Попов
Admin
Завдання з п рограмування на VBA
200 9 рiк
Завдання 1
Обчислити суму перших 5-ти членiв арифметичної прогресiї за форм у
лами:
S n = n*(a
1 + a
n )/2,
a 1 = 1,3*x
2 + 4,8*cos
2 y,
a n = a
1 + 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 набира
є мо
Сервіс →'3e Макрос →'3e Макроси →'3e Завдання1 →'3e Выполнить, або (Alt+F8) →'3e Завдання1 →'3e Выполнить. В
результаті отримаємо таке: Sn =
1025.07072799505
Завдання 2
Задано дiйснi числа а, b, с (а ≠'3f 0). Знайти дiйснi
корені
рівняння
ax 2 + bx + c = 0.
Якщо дiйснiх коренів
немає, на друк вивести
повідомлення "
Корені
комплексні ".
Розв'язок



Ваше мнение



CAPTCHA