Приклад виконання лабораторної роботи №3

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

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

б) Блок-схема алгоритму наведена на рисунку 2.

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

Змінна алгоритму	a	b	c	x	y
Ідентифікатор	a	b	c	x	y
Тип	single	single	single	single	single

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

Sub zavdannya_2

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

Dim a As Single, b As Single, c As Single, y As Single, x As Single

‘ Уведення вхiдних даних

a = InputBox ( “Уведiть a” )

b = InputBox ( “Уведiть b” )

c = InputBox ( “Уведiть c” )

x = InputBox ( “Уведiть x” )

‘ обчислення значення функції у

If x>=b then

y = exp(-a*x)*sqr(abs(x-b))+exp(c*x)

Else

y = exp(-a*x)*sqr(abs(b+x))+exp(c*x)

End If

‘ виведення результатiв

MsgBox ( “Значення y” + str(y))

End Sub

д) Контрольний приклад для тестування програми.

Обчислення за першою формулою при a=2 , b=3, c=-2, x=3.5, у=1.55668E-3.

За другою формулою при a=2 , b=3, c=-2, x=2.5, у=2.253983E-2.

Результати роботи програми на екрані монітора за першою формулою:

Уведiть a

2

Уведiть b

3

Уведiть c

-2

Уведiть x>

3.5

Значення y: 1.55668E-03

Результати роботи програми на екрані монітора за другою формулою:

Уведiть a

2

Уведiть b

3

Уведiть c

-2

Уведiть x

2.5

Значення y: 2.253983E-02

Лабораторна робота № 4 Тема: Програмування алгоритмів ітераційної циклічної структури

Мета роботи  оволодіння практичними навичками розробки та програмування обчислювального процесу розгалуженої та ітераційної циклічної структур, поліпшення навичок налагодження та тестування програм.

Завдання для самостійної підготовки

1. Вивчити засоби реалізації обчислювальних процесів циклічної структури із заданим числом повторень алгоритмічної мови VBA.

2. Побудувати алгоритм табуляції функції однієї змінної, яка задана в таблиці №2 (див. завдання до лабораторної роботи №3).

3. Скласти програму табулювання функції мовою VBA.

Приклад виконання лабораторної роботи № 4.

а) Постановка задачі. Розробити алгоритм та програму знаходження значень функції однієї змінної

,

якщо аргумент функції х належить інтервалу [х₀, x_n] та змінюється за формулою x_i=x_i-1+ x. Виконати тестування для перевірки правильності функціонування програми для значень а=2, b=3, c=-2 на інтервалі [1;4], якщо x становить 0,5.

б) Блок-схему алгоритму наведено на рис. 3.

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

Змінна алгоритму	a	b	c	x	y
Ідентифікатор	a	b	c	x	y	Xo	Xn	dx
Тип	single	single	single	single	single	single	single	single

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

Sub Zavdannya_3()

’ Об’явлення змінних

Dim a As Single, b As Single, c As Single, x As Single, y As Single

Dim x0 As Single, xn As Single, dx As Single

’Уведення вихiдних даних

a = InputBox(“Увести а”)

b = InputBox(“Увести b”)

c = InputBox(“Увести c”)

x0 = InputBox(“Увести x0”)

xn = InputBox(“Увести xn”)

dx = InputBox(“Увести dx”)

’ Початкове значення змінної x

x = x0

while x <= xn

’ Визначення значень

If x<b Then

if x-2>=0 Then

y = a*x^2 + b*cos(c*x) + sqr(x-2)

MsgBox (“x = “ + str(x) + “, y = “ + str(y))

Else

MsgBox(“x = “ + str(x) + “, y не визначена”)

End If

Else

y = sin(a*x)*(b*x-c)

MsgBox (“x = “ + str(x) + “, y = “ + str(y))

End If

x = x+dx

Wend

End Sub

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

Увести а>

2

Увести b>

3

Увести c>

-2

Увести початок iнтервалу Xo>

1

Увести кiнець iнтервалу Xn>

4

Увести крок x>

0.5

x	y
1.0000	не визначена
1.5000	не визначена
2.0000	6.039069
2.5000	14.05809
3.0000	-3.07357
3.5000	8.212333
4.0000	13.85102