Розвязання інженерних задач мовою програмування VBA

„
РОЗВ'ЯЗАННЯ ІНЖЕНЕРНИХ ЗАДАЧ МОВОЮ ПРОГРАМУВАННЯ VBA”

Зміст

1. Програмування алгоритмів циклічної структури із заданим числом повторень

2. Алгоритми роботи з одновимірними масивами

3. Програмування алгоритмів із структурою вкладених циклів і обробка матриць

1. Програмування алгоритмів циклічної структури із заданим числом повторень

Постановка задачі. Розробити алгоритм та програму знаходження суми
n членів ряду

/>

Виконати тестування для перевірки правильності функціонування програми для значень
n=3, x=2.

Змінна алгоритму

n

s

x

Ідентифікатор

n

s

x

Тип

integer

single

single

Текст програми:

Sub Zavdannya_5()

Dim x As Single, s As Single

Dim i As Integer, n As Integer

Dim fact As Integer

x = InputBox(«x»)

n = InputBox(«n»)

s = 0

For i = To n

s = s + ((-1) ^ n) * 1 / ((2 * n + 1) * (x ^ (2 * n + 1)))

Next i

MsgBox («сума значень» + Str(s))

End Sub

Контрольний приклад

Виконуємо обчислення для даних тестового прикладу. Результати роботи програми на екрані монітора мають виглядВиконуємо на калькуляторі підрахунки значення згідно з формулами: –0.042782738

Увести x

2

Увести n

3

Висновок: Порівнюючи результати тестового приклада обрахованого за допомогою калькулятора та комп'ютерної програми бачимо що розходження склало
– 0.042782738+0.0464286)/
0.042782738*100 = 0,0006%.Програма виконана вірно.