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

Пример

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

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

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

 

Этап 1

Величины A, B, dx вводятся в текстовые окна TextBox 1, TextBox 2, TextBox 3, затем при нажатии на кнопку «Вычислить», таблица значений 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	x^2 – cos Пх = 0	[0; 1]
3	х = cos^2Пх	[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 · 2^x – 1 = 0	[0; 1]
15	x – cos x = 0	[0; 1]

 

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

 

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

Пример

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

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

 

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

 

Этап 1

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

Этап 2

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

Этап 3

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

Программа

 

VBA

Sub CommandButton1_Click()

K=Val (TextBox1.Text)

S!=0: N=1

 L1: S!=S!+N/(N^2+1)

  N=N+1

  IF N<=K THEN GoTo L1

  Label1.Caption=CStr(S!)

End Sub

 

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

вариант		k
1.		10;15;20
2.		5;10;20
3.		5;10;15
4.		5;15;20
5.		5;10;15
6.		5;10;20
7.		5;15;20
8.		5;10;15
9.		5;15;20
10.		5;10;15
11.		5;10;15
12.		5;10;20
13.		5;10;15
14.		5;10;15
15.		5;15;20

 

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

Тема Одномерные массивы

 

Справка

Диалоговые окна

Окна для выдачи сообщений или ведения диалога используются для отображения на экране информации пользователю и получения от него простых ответов, таких, как «да» и «нет». Далее описывается как создавать и использовать окна выдачи сообщений, создавать и использовать диалоговые окна.