
- •«Інформатика»
- •Інструментальне середовище Visual Basic for Application
- •Створення панелі інструментів
- •Створення макросів
- •Винесення кнопок макросів на власну панель інструментів
- •Редагування малюнка піктографічної кнопки
- •Редактор Visual Basic
- •Програмування алгоритмів лінійної структури
- •Постановка задачі
- •Блок-схема
- •Текст програми
- •Текст програми
- •Результати роботи програми
- •Перевірка роботи програми
- •Висновок
- •Список використаних літературних джерел
Текст програми
Sub rozgal()
' rozgal Макрос
MsgBox ("розгалуджений алгоритм")
'оголошення змінних
Dim a As Single, b As Single, t As Single, w As Single
'уведення данних
a = InputBox("уведіть a")
b = InputBox("уведіть b")
t = InputBox("уведіть t")
'обчислення значення функції w
If t < 0.1 Then
w = Sqr(a * t ^ 2 + b * Sin(t) + 1)
Else
If t = 0.1 Then
w = a * t + b
Else
w = Sqr(a * t ^ 2 + b * Cos(t) + 1)
End If
End If
MsgBox ("значення w= " + Str(w))
End Sub
Результати роботи програми
Результати обчислення програмою за першою формулою при t=-2 (рис 3.2.):
Рис 3.2. Результати роботи програми за першою формулою
Результати обчислення програмою за другою формулою при t=0,1 (рис 3.3):
Рис 3.3. Результати роботи програми за другою формулою
Результати обчислення програмою за третьою формулою при t=2 (рис 3.4):
Рис 3.4. Результати роботи програми за третьою формулою
Перевірка роботи програми
Для перевірки результатів роботи програми використаємо Microsoft Office Excel 2003.
Висновок:
я
навчився розробляти
розгалужені алгоритми
та
створювати за їх допомогою програми
для знаходження розв’язків заданих
функцій. Також при перевірці за допомогою
Excel
я переконався у тому, що програма
правильно знаходить розв’язки функцій.
Висновок
Завдяки цій роботі я вдосконалив свої навички розв’язання задач даного типу за допомогою VBA з використанням алгоритмів лінійної та розгалуженої структури. При вирішенні кожної задачі розробив, блок-схему алгоритму, таблицю ідентифікаторів і текст програми мовою VBA. Також
Використавши Excel я переконався у тому, що програма правильно знаходить розв’язки функцій.
Виконавши свою розрахунково-графічну роботу я дійшов висновку, що за допомогою VBA можливо достатньо швидко і надійно обрахувати розв’язки даного типу задач.
Список використаних літературних джерел
ДСТУ Б А.2.4-4-99. Система проектної документації для будівництва. Основні вимоги до робочої документації. – Введений на заміну ДСТУ Б А.2.4-4-95 наказом Держбуду України № 117 від 11.05.99р.; Чинний від 01.10.99 .– Київ, 1999.– 59 с.
Глушаков C.B. Microsoft Office 2000. – Харьков: Фолио, 2002. – 432 с.
Вальдрат О.Л. Робота з Microsoft Excel 2000 / О.Л. Вальдрат, Р.Б. Чаповська. – Київ: ЦУЛ, 2002. – 186 с.
Э. Виллет Office ХР. Библия пользователя. – М.: Диалектика, 2002. – 843 с.
Дибкова Л.М. Інформатика та комп'ютерна техніка. – К.: Alma Mater, 2002. – 318 с.
Рогоза М.Є. ХР: Windows, Word, Excel для самостійного вивчення. – К.: ЦУЛ, 2003. – 294 с.
Глушаков С.В. Microsoft Office 2003 / С.В. Глушаков, А.С. Сурядний. – Харьков: Фолио, 2005. – 511 с.
Камминг, Стив. VBA для "чайников", 3-е издание.: Пер.с англ. – М.: Издательский дом "Вильямc", 2001.— 448c.
А. Васильев, А. Андреев. VBA в Office 2000. C.-Пб.: Питер, 2001. – 409c.
Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Application. М.: Телеком 2004.
Гетц К., Джилберт М. Программирование в Microsoft Office. К.: Издательская группа BHV, 1999.