Розвязання інженерних задач мовою програмування 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 = 0 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%.Програма виконана вірно.

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

Постановка задачі: Обчислити середнє геометричне елементів масиву Y , які задовольняють умові y_i >0 .

Блок схема:

Таблиця ідентифікаторів:

Змінна алгоритму	n	s	p	Y(20)	i
Ідентифікатор	n	s	p	Y(20)	i
Тип	integer	single	integer	integer	integer

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

Sub Odnovymirniy_masiv()

' Оголошення змінних

Dim Y(20) As Integer

Dim n As Integer

Dim i As Integer

Dim s As Single

Dim p As Integer

' Уведення даних

n = InputBox("Задайте кiлькiсть елементiв n=")

' Встановлення початкового значення суми

s = 1

p = 0

For i = 1 To n

Y(i) = InputBox("Задайте елемент масива Y(" + Str(i) + ")=")

If Y(i) > 0 Then

s = s * Y(i)

p = p + 1

End If

Next i

s = s ^(1/p)

MsgBox ("Середнє геометричне s=" + Str(s))

End Sub

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

Y =

Задайте кiлькiсть елементiв n=6

Задайте елемент масива Y[1]=2;

Задайте елемент масива Y[2]=-54;

Задайте елемент масива Y[3]=4;

Задайте елемент масива Y[4]=-6;

Задайте елемент масива Y[5]=4;

Задайте елемент масива Y[6]=0;

Висновок: Порівнюючи результати тестового приклада обрахованого за допомогою калькулятора та комп'ютерної програми бачимо що розходження склало 0%. Програма виконана вірно.

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

Постановка задачі:

Знайти в кожному рядку матриці F(N, M), N £20, M £10 максимальний та мінімальний елементи і розмістити їх на місці першого та останнього

елементів рядка відповідно. Матрицю надрукувати у звичайному вигляді.

Таблиця ідентифікаторів:

Змінна алгоритму	n	m	p	A(20,10)	i	j	min	max	o	k	K1
Ідентифікатор	n	m	p	A(20,10)	i	j	min	max	o	k	K1
Тип	integer	integer	integer	integer	integer	integer	integer	integer	integer	integer	integer

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

SubMatrix()

' оголошення змінних

Dim A(20, 10) As Single

Dim B(20, 10) As Single

Dim n As Integer, m As Integer

Dim i As Integer, j As Integer, p As Integer,

K1 As Integer, k As Integer, o As Integer

Dim min As Single

Dim max As Single

n = InputBox("уведіть кількість рядків n= ")

m = InputBox("уведіть кількість стовпців m= ")

For i = 1 To n

For j = 1 To m

A(i, j) = InputBox("уведіть елемент ма

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать