Е. А. Рябухина, О. А. Гущина, Д. А. Губанов, Д. В. Емельянов

• Название: Е. А. Рябухина, О. А. Гущина, Д. А. Губанов, Д. В. Емельянов
• Дата: 17.05.2023
• Размер: 3.08 Mb.
• Имя файла: VBA.doc
• Тип: Документы; #1138184
• страница: 6 из 11

ЛАБОРАТОРНАЯ РАБОТА №2.

«Программирование разветвляющихся алгоритмов»
Цель работы: получение практических навыков разработки, программирования вычислительного процесса разветвляющейся структуры.
Задания:

Задание 1. Составить программу для вычисления значений функции z = x + y. Функции x и y приведены в табл. 8.

Таблица 8

Вариант	x	y	Константы
1			t = 24,683; s = -15000
2			a = 1,03; b = 1,735; r = 0,28
3			a = 14,534; r = -5,12
4			a = 1; r = 7
5			d = 1,243; r = 0,946
6			= 3,1415926; t = 2,347
7			= 3,1415926; t = -17,244; s = 5,12
8			a = 1,238; b = 1,237; r = 2,48
9			d = 1,243; a = 2,653; b = 3,751
10			t = -0,248; s = 0,262

Задание 2. Составить программу для определения попадания точки, координаты которой вводятся с клавиатуры, в заштрихованную область, включая ее границы (табл. 9).

Таблица 9

Вариант	Область		Вариант	Область
1	2		3	4
1			6
2			7
3			8

Окончание табл. 9
1	2		3	4
4			9
5			10

Пример выполнения задания

Условие: составить программу для вычисления значений функции z = x + y, где


Программный код:

SUBLabText()

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

a = 6.78: b = 13.65

If a < b

Then x = a + b ^ 2

Else

If a = b

Then x = a ^ 3 - 4 * b

Else x = Sqr(a + b)

If x >= 9 Then y = Log(x + 7) Else y = Sin(x) ^ 2

z = x + y

Range("a1:c1").Select

With Selection

.Merge

.HorizontalAlignment = xlCenter

.Font.Size = 14

.Font.Bold = True

.Font.Italic = True

.Font.Color = 30

.Font.Name = "Times New Roman"

.Borders.Color = RGB(100, 0, 100)

End With

Selection = "Z=" & Format(z, "00.00")

End SUB
ЛАБОРАТОРНАЯ РАБОТА №3.

«Программирование итерационных циклов»
Цель работы: получение практических навыков разработки, программирования вычислительного процесса циклических структур, в частности – итерационных циклов.
Задание: составить программу для вычисления значений функции y= -e^x+u+v, где x изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении y. Функции u, v и шаг h приведены в табл. 10.

Таблица 10

Вариант	u	v	Константы
1		123,5	a = 0,1; h = 0,2
2			d = 1,243; r = 0,946; h = 0,5
3		2x2 + 3x + 0,1u4	a = 12,14; h = 0,5
4		 – u3	= 3,1415926; t = 2,347; a = 2,143; h = 0,2
5	a – x2 + x + s		a = 11,2; s = 0,247; b = -0,13; h = 0,5
6			d = 1,243; a = 2,653; b = 3,751; h = 0,2
7			a = 1,03; b = 1,735; r = 0,28; h = 0,5
8	2,3x + a		a = 0,13; h = 0,5
9			a = 14,534; r = -5,12; h = 0,2
10		14,248	a = 17,5; b = 17; h = 1

Пример выполнения задания

Условие: составить программу для вычисления значений функции y= -e^x + u+ v, где x изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении y.

a = 1,35; b = 2,4; h = 0,5.

Программныйкод:

SUB Lab3()

ActiveSheet.Cells.Clear

Dim a As Single, b As Single, x As Single, y As Single, h As Single, u As Single, v As Single

h = 0.5

a = 1.35

b = 2.4

i = 1

x = 0

y = 8

Do While y >= 0

If a > y

Then u = Sqr(x)

Else

If a = x Then u = Sin(x)^2 Else u = x^2

If u > 3 * x Then v = 5 Else v = 3

y = -Exp(x) + u + v

Cells(i, 1) = Format(y, "00.000")

Cells(i, 2) = Format(x, "00.0")

i = i + 1

x = x + h

Loop

End SUB
ЛАБОРАТОРНАЯ РАБОТА № 4.

«Программирование алгоритмов вычисления суммы и количества»
Цель работы: изучение стандартных алгоритмов суммы и количества.
Задание: составить программу для вычисления значения функции y= f(x) при изменении x от 0 до 1 с шагом h. Подсчитать количество положительных, отрицательных и нулевых значений функции. Данные приведены в табл. 11.

Таблица 11

Вар-т	f(x)	Константы		Вар-т	f(x)	Константы
1	x3 – 0,6x 2 + 0,006	h = 0,1		6		a = 0,3; h = 0,1
2		s = 5,12; h = 0,2		7		= 3,1415; h = 0,1
3		b = 17; h = 0,1		8		a = 3; h = 0,2; w = 1; s = -4; d = 0,4; h = 0,1
4		a = 14,534; h = 0,2		9	ax3 – x2 + x + a2	a = 1,3; h = 0,2
5		d = 1,3; h = 0,1		10		a = 0,4; b = 0,5; h = 0,2

Пример выполнения задания

Условие: составить программу для вычисления значения функции y=f(x)=x²+4x-e^x при изменении x от 0 до 1 с шагом h. Подсчитать количество положительных, отрицательных и нулевых значений функции.
Программный код:

SUBlab4()

Dim k1 As Byte, k2 As Byte, k3 As Byte, i As Byte

Dim f As Single, x As Single, h As Single

k1=0

k2=0

k3=0

I=1

For x=0 To 1 Step h

f=x^2+4*x-exp(x)

If f>0

Then k1=k1+1

Else

If f=0 Then k2=k2+1 Else k3=k3+1

Cells(I,1)=Format(f,”00.00”)

i=i+1

Next x

ActiveSheet.range(“C1:E1”).select

With selection

.merge

.Font.bold=true

.Font.italic=true

.font.size=14

.font.name=”Times New Roman”

.borders.color=RGB(100,0,100)

End With

Selection=”K1=”&str(k1)

ActiveSheet.range(“C2:E2”).select

With selection

.merge

.Font.bold=true

.Font.italic=true

.font.size=14

.font.name=”Times New Roman”

.borders.color=RGB(70,50,100)

End With

Selection=”K2=”&str(k2)

ActiveSheet.range(“C3:E3”).select

With selection

.merge

.Font.bold=true

.Font.italic=true

.font.size=14

.font.name=”Times New Roman”

.borders.color=RGB(0,100,100)

End With

Selection=”K3=”&str(k3)

EndSUB