Файл: _Программирование__на_VBA.pdf

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 23.03.2025

Просмотров: 1048

Скачиваний: 2

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

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

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

91

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

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

таблица 4.1

№

Заданная

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

Значение

функция

xнач ;

xкон ;

Дx

параметра a

1.

y

(1/ a) exp(

(x / a)

2

)

-1,5;

1,5;

0,1

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

2.

y

x

e

x / a

0;

4;

0,2

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

3.

0;

2;

0,05

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

y

1/

(1

x

2

)

2

4a

2

x

2

4.

y

x

tga

x2 / cos2 a

0;

0,5;

0,02

150;300; 450;600

5.

y

a

xa

e x / a

0;

10;

0,25

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

6.

y

e xa

sin x

0;

;

/36

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

7.

y

((x a)2/ 3

(x

a)2 / 3 ) / a

-4;

4;

0,2

1;

2; 3; 4

8.

y

a x

a a x

0;

2;

0,05

10;

8; 6;4; 2

9.

y

(1

exp(

(x / a)2 ))/ a

-2;

2;

0,1

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

10.

y

a3 /(a2

x2 )

-2;

2;

0,05

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

11.

e

x3

1;

7;

0,25

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

y

4 (a

1) x

2ax

12.

3

x2

1;

7;

0,25

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

ax

2

e

y

(a

1)x

13.

3

x 2

1;

7;

0,25

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

y

x

ae

ax

14.

ae x 2 ) /(ax2 )

1;

7;

0,25

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

y

(

x

92

15.

x 2

0;

2,5;

0,1

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

arctg (

)

y

2a

x3

a

16.

x

0;

3;

0,1

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

y

arctg (

2a

)

x2

2a

17.

y

ax

-3;

3;

0,2

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

a

3 1

x 2

18.

y

Cos 2 (2ax) /(3a)

00;

3600;

60

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

19.

y

Sin2 (ax) /(a 2)

00;

3600;

60

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

20.

y

aCos(2x) /(a 4)

00;

3600;

60

1;

2;

3; 4

21.

y

a2e x /(2

a2 )

-4;

4;

0,25

1;

2;

3; 4

22.

1;

7;

0,25

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

y

3 ax 2

e

x

ax 2

23.

a2e x 2

1;

7;

0,25

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

y

x

a

x

24.

y

(x 2

a) x 1

0;

0,8;

0,05

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

xa

25.

y

(x

4a) x

1

0;

0,8;

0,05

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

ax

26.

y

ln2

xa

2;

12;

0,5

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

a

x

27.

y

ln

ax

2;

12;

0,5

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

1

ax

28.

y

ln

x

a

1;

10;

0,5

1;

2;

3; 4

1

x2

29.

y

ax 2

-2;

2;

0,1

1;

2;

3; 4

1

ax 2

30.

y

ln

ax

1;

11;

0,5

1;

2;

3; 4

a

x

93

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

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

.2

№

Ряд

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

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

1

x

1 x2

1 3 x3

1 3 5 x4

S

-0.84; 1;

2;

y

x

1

1

...

2

2

4

2

4

6

2

4

6 8

2

S

1

x

x2

x3

...

1; 10;

-10;

1!

2!

3!

y=

3

S

(

1)

n 1 22n

1

x

2n

/6; 13

/6;

25 /6 ;

sin2 x

(2n)!

y

n

1

4

1 1 3 5 ... (2n

3)

2;

1;

0;

S

1

( 1)n

(x 4)n

y

0.5

x

n! 23n

n 1

5

S

x

x 2

x

3

...

-1;

1;

1.9;

y

x

2

x

2

2

2

2

3

6

x

1 x3

1 3 x5

1 3 5 x7

0.5;

2 / 2 ;

-1;

S

...

y

arcsin x

1

2

3

2 4 5

2 4

6 7

7

x

x3

x5

x7

;

;

1; y

arctgx

S

...

1/

3

1/

3

1

3

5

7

8

S

1

(n2

1)

xn

2;

20;

-15; y

(z2

z 1)ex ,

n

1

n! 2n

где z

x / 2

9

/4;

;

-5.5

;

S

1 sin(

n / 4)

2n

xn

y

ex sin x

n

n!

94

*см. сноску

10

S

x

(

1)

n 22n

x2n

1

/6;

;

4

;

y

x

cos 2x

n

1

(2n)!

11

x

x

3

x

5

x

7

0.5;

0.9;

0.99;

y

ln

1

x

S

2

...

1

x

1

3

5

7

12

(x

2)

n

1;

9;

-15;

y

e

x

S

e 2

1

n

1

n!

13

S

1

2

x

3 x

2

4

x

3

...

1; 9;

-11; y

(1

x)

ex

1!

2!

3!

14

S

2

x

22 x2

23

x

3

...

1/4;

-1/3;

1/2;

1

2

3

y

ln(1

2x)

S

3x

8x2

...

n(n

2)xn ...

0.2; 0.6; 0.9;

y

x(3 x)

15

(1

x)3

S

1

x ln 2

x 2 ln2 2

x 3 ln

3 2

...

2;

10;

-10;

y

2x

16

1!

2!

3!

S

1

22 x2

24 x4 2

6 x6

...

/6;

; 5

;

y

cos 2x

17

2!

4!

6!

S

1

cos(n / 4)

x

n

/6;

;

-5

;

18

n

1

n!

y

ez cos z

*см. сноску

где

z

x /

2

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

0.2;

0.6; 0.9;

19

y 1/(1 x)2

S

xn

sin(n

/ 4)

0.5; 0.8; 0.99;

x2 )

20

n

1

y

(x / 2) /(1

2

x

*см. сноску

21

S

1

cos(x)

cos(2x)

...

cos(nx)

...

/6;

-

;

10

;

1!

2!

n!

y

cos x

cos(sin x)

*см. сноску

e

95

S

(2x)2

(2x)

4

... (

1)

n (2x)2n

...

/6;

13

/6;

25

/6;

22

2!

4 !

(2n)!

y

2(cos 2 x

1)

1

x

1

2n

1

0.5;

0.1;

0.01;

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;

4

n! 2n

y

cos(x / 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 )

x3

x5

x7

x9

S

x

2

...

1/ 3 ;

1/ 3 ; 1

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)

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

n

1

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

S

4

(2

2

n

)

xn

2;

-1;

-10;

30

n 1

n!

y (1 ex )2

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

96

Смотрите также файлы