Private Sub CommandButton1_Click()

A!=Val (TextBox1.Text)

B!=Val (TextBox2.Text)

DX!=Val (TextBox3.Text)

ListBox1.Clear

X!=A!

L1: Y!=X!^2

ListBox1.AddItem CStr(X!) & " " & CStr(Y!)

X!=X!+DX!

IF X! <=B! Then GOTO L1

End Sub

Варианты заданий

Вариант	а	в	f(x)
1	0.5	1.5
2	0	1.5
3	0.2	1.6	5cosx-x
4	1.6	3.2	sinx-0.2x
5	0	1.5	cosx-x2
6	1.5	3	x-cosx-2
7	0.1	1.5
8	1	2
9	1	2.5
10	0	1.5	xsinx-1
11	0	1	1.7x-2cos2x
12	1	2.5	sin0.4x-3lnx
13	0	1	ex+x-2
14	0.2	1.2	x3-sinx
15	0.1	2.1

dx=0.1

Практическая работа № 5

 

Тема: Решение уравнения методом табулирования

Пример

Программа «Решение уравнения» производит вычисление значения заданной функции   (уравнение ) на заданном интервале [a, b] с заданным шагом dx. Задано уравнение 0=x^2-3*cos(x), a=1, b=2, dx=0.1 для первого этапа, dx = 0.01 для второго этапа.

Интерфейс программы реализован в виде формы UserForm1 (Рисунок 5.1).

Рисунок 5.1 – Интерфейс программы «Решение уравнения»

 

Этап 1

Величины A, B, dx вводятся в текстовые окна TextBox1, TextBox2, TextBox3, затем при нажатии на кнопку «Вычислить», таблица значений f(x) отобразится в списке.

Необходимо выписать две строки, где происходит смена знака функции y с «-» на «+» или наоборот. Затем

a ₁=x_n b₁= x_n +1, где x_n   -y_n

                                                             x_n+1 + y_n+1

Этап 2

Величины A1, B2, dх=0.01 ввeдите в текстовые окна, произведите вычисления, спишите две строки, где происходит смена знака функции.

Этап 3

X_* =

 

Программа

VBA

Sub CommandButton1_Click1()

A!=Val(Text Box1.Text)

B!=Val (TextBox2.Text)

Dx! = Val (TextBox3.Text)

ListBox1.Clear

For x!=A! TO B! STEP Dx!

y!=x!^2-3*COS(x!)

ListBox1.AddItem CStr (x!) & “ “ & Cstr (y!)

Next x!

End Sub

Варианты заданий

№ варианта	Уравнение	Отрезок
1	ln x +  = 0	[ 0.1; 1.1]
2	x2 – cos Пх = 0	[0; 1]
3	х = cos2Пх	[0; 1]
4	(х-1) = ех	[0; 1]
5	(х-1)2 = е-х	[1; 2]
6	= 2 ln x	[1; 2]
7	е-х  = 2 – х2	[-1; 0]
8	2 – х = lg x	[1; 2]
9	2	[0; 1]
10	3 – x	[0.8; 1.8]
11	= 0	[0.1; 1]
12	2x + ln (2x + 3) = 1	[0; 1]
13	ln x + (x+1)3 = 0	[0.1; 1.1]
14	x · 2x – 1 = 0	[0; 1]
15	x – cos x = 0	[0; 1]

 

Практическая работа №6

 

Тема: Суммирование членов последовательности

Пример

Программа «Суммирование» производит вычисление суммы членов заданной последовательности. Последовательность задана формулой общего члена  при  Где -количество членов последовательности, которые нужно просуммировать.

Интерфейс с пользователем реализован в виде формы UserForm1 (Рисунок 6.1).

 

Рисунок 6.1 – Интерфейс программы «Суммирование»

 

Этап 1

Величина К=5 вводится в окно TextBox1 затем при нажатии на кнопку «Вычислить» сумма пяти членов последовательности отображается на месте метки Label3. S = Результат.

Этап 2

Величина К=10 вводится в текстовое поле TextBox1. Затем вычисляется S = Результат.

Этап 3

Величина К=15 вводится в текстовое окно TextBox1, затем вычисляется S =Результат.

Программа

 

VBA