- •Розрахунково-графічна робота №5
- •«Програмування алгоритмічною мовою vba»
- •Завдання на розрахунково-графічну роботу № 5
- •Строки виконання ргр № 5: початок 10.10.2011 р. Закінчення 04.11.2011 р.
- •1. Інструментальне середовище Visual Basic for Application та створення власної панелі інструментів
- •1.1 Створення документа ms Word
- •1.2 Створення панелі інструментів користувача
- •1.3 Створення макросів програми.
- •1.4. Заповнення власної панелі інструментів піктографічними клавішами.
- •1.5 Редагування піктографічних кнопок панелі інструментів.
- •2.5 Контрольний приклад для тестування програми.
- •2.6. Відносна похибка між результатами підрахунку
- •3.5 Контрольний приклад для тестування програми
- •3.6. Відносна похибка між результатами підрахунку
- •Список використаних літературних джерел
2.5 Контрольний приклад для тестування програми.
Задаємо змінним значення: a=16,5; b=3,4; x=0,61 Виконуємо на калькуляторі підрахунки значень S і Q згідно з формулами:
=
Результати роботи програми у вікнах діалогу InputBox та MsgBox:
Уведiть a
16,5
Уведiть b
3,4
Уведiть x
0,61
Значення S: Значення Q:
2.6. Відносна похибка між результатами підрахунку
Висновок: Я вивчив головне меню, робочі вікна та основні команди інструментального середовища Visual Basic for Application, ознайомився із правилами запису констант, числових і символьних змінних, типів даних, побудував алгоритм розв’язування завдання та накреслив його блок-схему оволодіння практичними навичками розроблення.
3. Програмування алгоритмів розгалуженої структури
3.1. Постановка задачі
Розробити алгоритм та програму знаходження значень функції.
x>a x=a x<a
Виконати тестування для перевірки правильності функціонування програми для значень a=2,5.
3.2. Блок-схема алгоритму
Б лок-схема алгоритму наведена на рисунку 3.2.
н
н
Рис.3.2. Блок-схема
3.3 Таблиця ідентифікаторів
Змінна алгоритму |
x |
a |
w |
Ідентифікатор |
x |
a |
w |
Тип |
Single |
Single |
Single |
3.4 Текст програми:
Sub Rozgal( )
'' автор розробник студент гр 203-Б Захарченко О. І.
' розгалужена програма
' 13.10.2011 KREST
MsgBox ("Розгалуження")
'оголошення змінних
Dim a As Single, x As Single, w As Single
'уведення вхідних даних
a = InputBox("Уведіть a")
x = InputBox("Уведіть x")
'обчислення значення функції w
If x > a Then
w = x * Sqr(x - a)
Else
If x = a Then
w = x * Sin(a * x)
Else
w = Exp((-a) * x) * Cos(a * x)
End If
End If
'виведення результатів
MsgBox ("w" + Str(w))
End Sub
3.5 Контрольний приклад для тестування програми
Результати роботи програми на екрані монітора:
Обчислення при x>a; x=5
На калькуляторі
З начення w1:
Обчислення при x=a; х=2,5
На калькуляторі
Значення w:
Обчислення при x<a; х=-3
На калькуляторі
З начення w:
3.6. Відносна похибка між результатами підрахунку
Висновок: Я вивчив засоби реалізації умовної передачі управління алгоритмічної мови VBA для обчислювального процесу розгалуженої структури, побудував алгоритм розв’язання відповідно до завдання, склав програму розв’язання завдання мовою VBA.
Список використаних літературних джерел
1. ДСТУ Б А.2.4-4-99. Система проектної документації для будівництва. Основні вимоги до робочої документації. – Введений на зміну ДСТУ Б А.2.4-4-95 наказом Держбуду України № 117 від 11.05.99 р.; Чинний від 01.10.99. – Київ, 1999. – 59 с.
2. Лук'янова В.В. Комп'ютерний аналіз даних: Посібник. - К.: Видавничий центр „Академія", 2003. - 344с. (Альма-матер).
3. Джонс 3., Саттон Д. Библия пользобателя Office 97. К.: Диалектика, 1997.
4. Методичні вказівки для виконання курсової роботи "Використання Місішой Office (текстового редактора Word 97). О.І.Корох, М.Е Рогоза. 1999.
5. Методичні вказівки до виконання лабораторних робіт на тему: «Підготовка текстового документа у редакторі МісгоБОЙ Word», О.А.Харченко, О.І.Сороковий. 2002.
6. Конспект курсу лекцій з дисципліни «Інформатика та компьютерна техніка» (друга частина). Укладач В.І.Кліменко. Полтава ПДТУ 2000.
7. Методичні вказівки до виконання лабораторних робіт з Інформатики та комп'ютерної техніки. Укладачі Харченко О.А., Сороковий 0.І., Полтава, ПНТУ, 2003.