Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Московский государственный индустриальный университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Лаб_VBA

.pdf

Скачиваний:

Добавлен:

29.03.2016

Размер:

3.26 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 910 / 1610 11 12 13 14 15 16 > Следующая >>>

Loop

y = Sin(x) 'Непосредственное вычисление заданной функции

'ВЫВОД РЕЗУЛЬТАТОВ

Ответ = MsgBox("Заданное значение аргумента X=" & x _

&vbLf & "Вычисленная сумма ряда S=" & s _

&vbLf & "Количество членов ряда K=" & k _

&vbLf & " Функция SIN(X)=" & y, _ vbRetryCancel, "Результат работы процедуры")

Select Case Ответ

Case vbRetry: GoTo 10

Case vbCancel: GoTo 20

End Select

20 End Sub

Работа процедуры

2.Практическая часть

Задание 1. Составить и отладить процедуру вычисления заданной в таблице 4.1 функции для каждого из заданных значений параметра a и при всех заданных значениях аргумента x. Результаты вывести в таблицу Excel и построить средствами VBA графики заданной функции.

таблица 4.1

№

Заданная

Значение аргумента

Значение

функция

xнач ;

xкон ;

Дx

параметра a

(1/ a) exp(

(x / a)

)

-1,5;

1,5;

0,1

1; 1,1; 1,2; 1,3

x / a

0,2

0,25;0,5;0,75;1,0

0,05

0,1;0,2;0,3; 0,4

)

tga

x2 / cos2 a

0,5;

0,02

150;300; 450;600

e x / a

10;

0,25

1;1,25;...2,0

e xa

sin x

;

/36

0; 0,5;...2,0

((x a)2/ 3

a)2 / 3 ) / a

-4;

0,2

2; 3; 4

a x

a a x

0,05

10;

8; 6;4; 2

exp(

(x / a)2 ))/ a

-2;

0,1

1,25; 1,5; 1,75; 2

10.

a3 /(a2

x2 )

-2;

0,05

0,5; 1,0; 1,5;2,0

11.

0,25

0,5;0,75;1,0;1,25

4 (a

1) x

2ax

12.

0,25

0,5;0,75;1,0;1,25

1)x

13.

x 2

0,25

0,5;0,75;1,0;1,25

14.

ae x 2 ) /(ax2 )

0,25

0,5;0,75;1,0;1,25

(

15.

x 2

2,5;

0,1

0,5; 1,0; 1,5; 2,0

arctg (

)

16.

0,1

0,5;0,75;1; 1,25

arctg (

)

17.

-3;

0,2

0,5; 1,0; 1,5, 2,0

3 1

x 2

18.

Cos 2 (2ax) /(3a)

00;

3600;

1; 1,25; 1,5, 2,0

19.

Sin2 (ax) /(a 2)

00;

3600;

1; 1,25; 1,5; 2,0

20.

aCos(2x) /(a 4)

00;

3600;

3; 4

21.

a2e x /(2

a2 )

-4;

0,25

3; 4

22.

0,25

0,5; 1,0; 1,5; 2,0

3 ax 2

ax 2

23.

a2e x 2

0,25

0,5; 1,0; 1,5;2,0

24.

(x 2

a) x 1

0,8;

0,05

0,5; 1,0; 1,5, 2,0

25.

4a) x

0,8;

0,05

0,5; 1,0; 1,5;2,0

26.

ln2

12;

0,5

0,5; 1,0; 1,5; 2,0

27.

12;

0,5

0,5; 1,0; 1,5; 2,0

28.

10;

0,5

3; 4

29.

ax 2

-2;

0,1

3; 4

ax 2

30.

11;

0,5

3; 4

Задание 2. Составить и отладить процедуру для приближѐнного вычисления заданной функции y=f(x) путѐм суммирования членов заданного еѐ ряда ). Суммирование членов ряда проводить включительно до члена ряда, значение которого по абсолютной величине будет меньше чем .

Вычислить значения суммы ряда при указанных в таблице 4.2 контрольных данных аргумента и сравнить полученные значения со значениями, вычисленными непосредственно с помощью функции y= f(x).

№

Ряд

Контрольные данные:

аргумент x, функция y(x)

1 x2

1 3 x3

1 3 5 x4

-0.84; 1;

...

6 8

...

1; 10;

-10;

(

n 1 22n

/6; 13

/6;

25 /6 ;

sin2 x

(2n)!

1 1 3 5 ... (2n

( 1)n

(x 4)n

0.5

n! 23n

n 1

x 2

...

-1;

1.9;

1 x3

1 3 x5

1 3 5 x7

0.5;

2 / 2 ;

-1;

...

arcsin x

2 4 5

2 4

6 7

;

1; y

arctgx

...

(n2

20;

-15; y

(z2

z 1)ex ,

n! 2n

где z

x / 2

/4;

;

-5.5

;

1 sin(

n / 4)

ex sin x

*см. сноску

(

n 22n

x2n

/6;

;

cos 2x

(2n)!

0.5;

0.9;

0.99;

...

-15;

e 2

3 x

...

1; 9;

-11; y

22 x2

...

1/4;

-1/3;

1/2;

ln(1

2x)

8x2

...

n(n

2)xn ...

0.2; 0.6; 0.9;

x(3 x)

x)3

x ln 2

x 2 ln2 2

x 3 ln

3 2

...

10;

-10;

22 x2

24 x4 2

6 x6

...

/6;

; 5

;

cos 2x

cos(n / 4)

/6;

;

-5

;

ez cos z

*см. сноску

где

x /

S=1- 2x +3x2 - 4x3+...

0.2;

0.6; 0.9;

y 1/(1 x)2

sin(n

/ 4)

0.5; 0.8; 0.99;

x2 )

(x / 2) /(1

*см. сноску

cos(x)

cos(2x)

...

cos(nx)

...

/6;

;

cos x

cos(sin x)

*см. сноску

	S		(2x)2							(2x)				4			... (						1)			n (2x)2n					...					/6;	13				/6;			25		/6;
22	S			2!							4 !						... (						1)				(2n)!				...					y		2(cos 2 x						1)
22				2!							4 !																(2n)!									y		2(cos 2 x						1)

								1							x			1			2n			1												0.5;		0.1;						0.01;
																					2n			1
		S
																																				y			0.5 ln( x)
23				n 0 2n							1				x			1


24		S		1									cos(					2n						1		)			(x				/ 2)n		2	/3;		8		/3;				28		/3;
24
																					4										n! 2n					y			cos(x / 2)
				2
				2							n	1
		S		x							(		1)		n 1				3			5			... (2n						1)		x 2n 1			0.5;				0.9;				1;
																							2n n! (2n								1)
25									n 1																											y	ln( x						1		x2 )
25									n 1																											y	ln( x						1		x2 )

												x3						x5								x7				x9
		S		x				2				x3						x5								x7				x9			...			1/ 3 ;					1/ 3 ; 1
26		S		x				2			1 3 3 5													5 7				7 9					...		y	(1			x2 ) arctg(x) ;
26											1 3 3 5													5 7				7 9							y	(1			x2 ) arctg(x) ;
																												n (x				1)n				0.5;		6.5;					13.5;
	S	3							sin(					/ 3				n					/ 2)					n (x				1)n				0.5;		6.5;					13.5;
																																				y		sin(					x / 3)
27		2																										3		n	n!


						n	1

		S						(			1)		n	1		(1			2				n	)		xn										0.25;		0.45;						0.5;
28		S			n		1	(			1)					(1			2					)		n										y	ln(1				3x				2x2 )

	S	1				x		1								2		5 8 ... (3n												4)		(x		1)n	-1.331;					-0.729;						0;
							3																	n																3


29													n	2									3 n!														y					x
29																																					y					x

		S		4							(2					2	n	)		xn																2;		-1;					-10;
30		S		4					n 1		(2					2		)		n!																	y (1 ex )2
30									n 1											n!																	y (1 ex )2

*) для рядов, отмеченных звѐздочкой, при оценке погрешности в членах ряда не учитывать синусы и косинусы.

ЛАБОРАТОРНАЯ РАБОТА № 5 Обработка одномерных массивов

1.Краткие теоретические сведения

Массив – это множество однотипных элементов. Каждый массив имеет уникальное собственное имя. Каждый элемент данных, хранящийся в массиве, называется элементом массива. Для доступа к определенному элементу любого массива необходимо указать имя массива и некоторое число, которое называется индексом элемента массива.

Массивы в программе должны быть определены с помощью оператора Dim, синтаксис которого имеет следующий вид

		Dim VarName([Subscripts]) [As Type]
Varname	–	имя существующего массива;
Subscripts	–	измерение (или измерения) массива;
Type	–	любой допустимый тип VBA или
		тип данных, определенный пользователем.

VBA представляет программисту возможность объявлять массивы, имеющие до 60 измерений. Одномерному массиву соответствует один Subscripts (индекс); двумерному массиву – два индекса, разделенные запятой. Каждый индекс увеличивает размерность массива на единицу. Если опустить Type, все элементы массива будут иметь тип Variant.

Следующая инструкция

Dim Array(30) As String

объявляет массив Array, содержащий 30 элементов. По умолчанию, индексация массивов начинается с нуля и поэтому индекс последнего элемента массива – 29, а не – 30.

Операторы

Option Base 0	' установка по умолчанию;
	'индексы массивов начинаются с 0
Option Base 1	' индексы массивов начинаются с 1

позволяют задавать 0 или 1 число по умолчанию для индексов массива. Следует отметить, что только верхний предел массива является обязательным. В этом случае нумерация массива происходит в зависимости от установки Option Base.

Dim StrArray(1 To 100) As String

Dim NumArray(-50 To 50) As Integer

Dim ArrByte(0 To 30) As Byte

Этот оператор эквивалентен оператору

Dim ArrByte(30) As Byte

Существуют два вида массивов – статические и динамические. Cтатическими называются массивы, размерность которых известна заранее и может быть указана при их объявлении. Однако, весьма часто возникают ситуации, когда размерность массива величина неизвестная и в этом случае VBA разрешает при объявлении массива не указывать размерность, а просто определить или переопределить ее во время исполнения процедуры.

ReDim Varname(Subscripts) [As Type]

Синтаксис для оператора ReDim такой же как для оператора Dim. Включение оператора Subscripts в объявление массива создает статический массив. Следовательно, при создании динамического массива оператор Subscripts использовать нельзя, хотя круглые скобки должны присутствовать обязательно.

Оператор Subscripts имеет следующий синтаксис

[lower To] upper [,[lower To] upper] . . .

lower	–	нижний предел допустимых индексов массива
			Varname;
upper	–	верхний предел (обязательный параметр);
Примеры:
Dim A() As String			' объявляет динамический массив А
Redim A(1 To 25)			' изменяет размер массива до 25эл.
Dim A(50)			' изменяет размер массива до 50 эл.
Dim Day() As Integer			' объявляет динамический массив Day
Redim Preserve Day(1 To 20)			' изменяет размер массива до 20 эл.
			' сохраняя содержимое
Dim B As Variant			' объявляет переменную типа Variant
Redim B(50) As Byte			' создает массив из 50 переменных
			'типа Byte
			' внутри переменной типа Variant

Размерность массива может быть записана в виде арифметического выражения, значение которого должно быть положительным числом или равно нулю. Если арифметическое выражение имеет дробное значение, то оно округляется, и целая часть определяет размерность массива.

Ввод-вывод массивов

Заполнить массив, т. е. определить значения элементов массива можно следующими способами:

при помощи оператора присваивания; непосредственным вводом с клавиатуры; подготовкой и вводом данных из текстового файла; использования датчика случайных чисел;

заполнением массива при помощи стандартных функций Пример 1. Заполнить одномерный массив непосредственным

вводом с клавиатуры. Результат поместить в столбец С рабочей книги Excel.

Sub InputArray1()

'*******************************************************

' Ввод с клавиатуры

'*******************************************************

Dim A(10) As Integer

Dim Title As String

Worksheets("Лист1").Cells(1, 1) = "Массив А:"

Title = "Заполнение одномерного массива"

For i = 1 To 10

A(i) = InputBox("Введите A(" & i & "):", Title)

Worksheets("Лист1").Cells(i + 1, 1) = A(i)

Next i

End Sub

Объявляем статический массив A, содержащий 10 элементов. Метод Cells используется для ссылки на одну ячейку. Доступ к

100

<<< < Предыдущая 1 2 3 4 5 6 7 8 910 / 1610 11 12 13 14 15 16 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
10.06.201540.71 Кб10курсовая.docx
#
16.07.2019317.41 Кб3курсовая.rtf
#
16.11.2018625.66 Кб16Курсовой проект готовый по Денисовой.doc
#
13.11.201960.32 Кб10Л.2 управление финансами.docx
#
17.11.20193.87 Mб6Л.8 Финансовый контроль.doc
#
29.03.20163.26 Mб57Лаб_VBA.pdf
#
10.06.2015197.12 Кб116Лабораторная работа Химия металлов.doc
#
10.06.2015269.83 Кб52Лабораторная работа №2, Методичка Т5-22.pdf
#
13.11.201985.63 Кб6Лабораторная работа2_2011.docx
#
09.11.20193.9 Mб4Лабораторные ТИиП.doc
#
11.11.20193.44 Mб7Лабораторный практикум ТОМД.doc