- •Розрахунково-графічна робота №6 «Програмування алгоритмів циклічної та ітераційної структури мовою vba»
- •Завдання на розрахунково-графічну роботу № 6
- •Строки виконання ргр № 6: початок 29.10.2012 р. Закінчення 30.11.2012 р.
- •1.1 Створення файлу
- •1.2.Створення панелі інструментів
- •1.3.Створення макросів програми
- •1.4. Заповнення власної панелі інструментів піктографічними клавішами
- •2.5. Тестування програми
- •3.Програмування алгоритмів циклічної структури із заданим числом повторень
- •Список використаних літературних джерел
2.5. Тестування програми
Задаємо змінним а=1.3, b=0.2, с=-1.4, ∆x=0.25, x0=-3, xn=5. Виконуємо на калькуляторі підрахунки значень у і х згідно з формулами
Результати роботи програми у вікнах діалогу InputBox та MsgBox:
Уведіть a:
Уведіть b:
Уведіть c:
Уведіть :
Уведіть
Уведіть dx
Значення х, у
x |
y |
-3 |
2.126747E-02 |
-2.75 |
12.47402 |
-2.5 |
17.47636 |
-2.25 |
17.9572 |
-2 |
16.01898 |
-1.75 |
13.0542 |
-1.5 |
9.91495 |
-1.25 |
7.067346 |
-1 |
4.719155 |
-0.75 |
2.917959 |
-0.5 |
1.621912 |
-0.25 |
0.7475814 |
0 |
1.4 |
0.25 |
0.9443408 |
0.5 |
0.5913371 |
0.75 |
0.3349606 |
1 |
0.1602839 |
1.25 |
4.955369E-02 |
1.5 |
1.429384E-02 |
1.75 |
4.588255E-02 |
2 |
5.677956E-02 |
2.25 |
5.554606E-02 |
2.5 |
4.813026E-02 |
2.75 |
0.0383911 |
3 |
2.862639E-02 |
3.25 |
0.0200388 |
3.5 |
1.311266E-02 |
3.75 |
7.898283E-03 |
4 |
4.213225E-03 |
4.25 |
1.775803E-03 |
4.5 |
2.868613E-04 |
4.75 |
5.254069E-04 |
5 |
8.853935E-04 |
Перевірка:
3.Програмування алгоритмів циклічної структури із заданим числом повторень
3.1 Постановка задачі
Розробити алгоритм та програму знаходження значень функції
Виконати тестуання для перевірки правильності функціонування програми для значень х=0,7 n=5
3.2. Блок-схема
3.3. Таблиця ідентифікаторів
Змінна алгоритму |
n |
s |
x |
i |
Ідентифікатор |
n |
s |
x |
i |
Тип |
integer |
single |
single |
integer |
3.4. Текст програми
Sub iteracia()
' iteracia Макрос
' Автор студентка групи 202 -Б Петух Ольга
MsgBox ("алгоритм ітераційної структури")
'Об'явлення змінних
Dim x As Single, S As Single
Dim i As Integer, n As Integer
'Уведеня вхідних даних
x = InputBox("Увести x")
n = InputBox("Увести n")
'Встановлення початкових значень x та n
S = 0
For i = 1 To n
S = S + Abs((Sin(i * x)) / i ^ 2)
Next i
'Виведення результату
MsgBox ("Сума членів ряду:" + Str(S))
End Sub
3.5. Тестування програми.
Обчислення за формулою при x=0.4, n=5
Перевірка:
Висновок
У цій розрахунково-графічній роботі я створила власну панель інструментів та розташувала на ній кнопки виклику програм ітераційної та циклічної структури; також розробила алгоритм та програму циклічної структури для розрахунку значень заданих функцій згідно номера варіанта, при вирішенні кожної задачі розробила блок-схему алгоритму, таблицю ідентифікаторів та текст програми мовою VBA.
В результаті тестування програм я виявила, що похибка обрахунків за допомогою MS Excel і програми ітераційної структури становить 0,00%, а програми циклічної структури – 0,0376%, що є менше заданої точності(0,05%), а значить програми написані вірно.
Список використаних літературних джерел
1. ДСТУ Б А.2.4-4-95. Основні вимоги до проектної документації. –К. - 1997.
2. Лук’янова В. В. Комп’ютерний аналіз даних: Посібник. – К.:Видавничий центр «Академія» 2003. - 344 с. (Альма-матер)
3. Методичні вказівки до виконання лабораторних робіт на тему: «Підготовка текстового документа у редакторі Microsoft Word», О.А. Харченко, О.І. Сороковий. 2002.
4. Конспект курсу лекцій з дисципліни «Інформатика та комп’ютерна техніка» (друга частина). Укладач В.І. Клименко. Полтава ПДТУ 2000.
5. Методичні вказівки до виконання лабораторних робіт з Інформатики та комп’ютерної техніки. Укладачі Харченко О.А., Сороковий О. І. Полтава ПНТУ, 2003.