Тема: Програмування алгоритмів розгалуженої структури

 

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

 

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

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

2. Побудувати алгоритм розв’язання відповідно до завдання (табл. 2).

3. Скласти програму розв’язання завдання мовою VBA.

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

5. Вивчити засоби реалізації обчислювальних процесів розгалуженої структури із заданим числом повторень алгоритмічної мови Visual Basic for Application.

 

Таблиця 2 - Завдання до лабораторної роботи № 3

№ в-т	Функція	Умова	Вхідні дані	Діапазон та крок зміни аргументу
			a=-0.5 b=2
		x<1,3 x=1,3 x>1,3	a=1,5
		x<1,2 x=1,2 x>1,2	a=2,8 b=-0,3 c=4
		x<1,4 x=1,4 x>1,4	a=1,65
		x<1 x=1 1<x<2 x>2	a=2,3
		x>a x=a x<a	a=2,5
		bx<1 bx=1 bx<1	b=1,5
			-
			a=20,3
		x<0,5 x=0,5 x>0,5	t=2,2
			a=2,6 b=-0,39
			a=0,9
			a=2,1 b=1,8 c=-20,5
			a=0,3 n=10
		t<0,1 t=0,1 t>0,1	a=2,5 b=0,4
			a=1,5 b=2,3 c=-0,7	xÎ[-2,2] Dх=0,2
			a=2,1 b=-0,3 c=1,44	xÎ[-1,3] Dx=0,25
			a=1,4 b=2,0 c=-1,5	xÎ[-4,3] Dx=0,5
			a=1,3 b=0,2 c=-1,4	xÎ[-3,5] Dx=0,25
			a=1,3 b=0,2 c=-1,4	xÎ[-3,5] Dx=0,25
			a=2,3 b=3,2 c=-2,4	xÎ[-2,3] Dx=0,2
			a=1,4 b=-0,2 c=-2,4	xÎ[-2,1] Dx=0,1
			a=1,3 b=0,2 c=-1,4	xÎ[-3,1] Dx=0,2
			a=1,3 b=0,2 c=-1,4	xÎ[-6,1] Dx=0,25
			a=1,3 b=0,2 c=-1,4	xÎ[-3,5] Dx=0,25
			a=1,3 b=0,2 c=-1,4	xÎ[-2,2] Dx=0,2
			a=1,3 b=0,2 c=-1,4	xÎ[-1,5] Dx=0,5
			a=-1,3 b=2,2 c=-1,4	xÎ[-3,3] Dx=1,5
			a=1,3 b=4,2 c=-1,4	xÎ[-3,5] Dx=0,25
			a=-1,3 b=0,2 c=-1,4	xÎ[-3,1] Dx=0,5

Приклад виконання лабораторної роботи №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

Уведiть b

Уведiть c

-2

Уведiть x>

3.5

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

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

Уведiть a

Уведiть b

Уведiть c

-2

Уведiть x

2.5

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

 

 

Лабораторна робота № 4