ЛР VBA Excel

1., ,

,

.

1		1	L	1	+...
sin1				sin1 K sin n
		sin1 sin 2

c , .

6

1., ,

–7.

2.,

.

7

1.,

, , 5.1=2; d .

y=p×(1-e-x+p) 2£x£4; h=0,4; p – .

8

1. , ,

, 3.

2. ,

n.

9

1. , ,

1, , .

2. y=sinx [0;1];

h=0,1.

10

1.1, 1+1/2, 1+1/2+1/3, …

, .

2.,

, –38,

.

61

12

1

1.. .

2.N

1, 1 , 1 , 1 , K

24 6 8

, N.

2

1.. .

2.N

1, 1 , 1 , 1 , K 3 5 7

,

N.

3

1.. .

2.N

1, 1, 3, 5, K

,

N.

4

1.. .

2.N

–2, 2, 6, 10, …

, N.

5

1.. ,

5.

2.N

-1, 2, 5, 8, 11, …

,

N.

6

62

1.. ,

.

2.N

1, 4, 7, 10, …

,

N.

7

1.. , 3.

2.N

-5, -2, 1, 4, …

, N.

8

1.. .

2.N

-1, 1, 3, 5, …

,

N.

9

1.. ,

(3; 7).

2.N

-2, -1, 0, 1, 2, …

,

N.

10

1.. ,

.

2.N

-3, 1, 5, 9, …

, N.

63

13

1

y	a 4
	(a x)2 –1£x£1; dx = 0,2.

2

y	a 2 x2	a , 2 2, dx 0,3 .
		3

	y		b3	x	, 1 x 1, dx 0,2 .
		b
		2

4

y sin x b, 0 x 1, dx 0,1.

5

	y (a	x)2	a 3		, 0 x 3, dx 0,1.
			(x	1)

6

	a 2
y		, 3 x 0, dx 0,2 .
	(a x2 )2
		7

64

y	b3		, 2 x 2, dx 0,2 .
	b2
		x

8

y 2 e x a , 1 x 2, dx 0,2 .

9

y x2 a sinx , 1 x 4, dx 0,2 . 2

10

	y a cos x	x	, 0 x 1, dx 0,1.
		3

. –

.

.

– ,

) ( ).

1 –34 8 2 6

1

2

8 -5

, .

:

65

P(1), C(5);

A(i), B(j);

·(

)

A(i*2), Q(i^j)

, .

Dim.

Dim ( ) As

Dim A (100) As Integer Dim B (50) As Byte

( .

), , 101

, – 51 .

: Dim A (1 To 100) As Integer,

.

( ).

Excel,

.

( . 4),

,

.

. 4.

66

Option Explicit
Sub PR14()
Dim A(20) As Integer
Dim i As Integer
For i = 1 To 6
A(i) = Cells(1, i)	‘
Next i	‘ Excel
End Sub

2

.

:

Randomize

For i = 1 To 10

Cells(1, i) = Int(Rnd * 100 – 50)

A(i) = Cells(1, i) ‘

Next i

Rnd 0 1.

100 ( ) 50 (

). Int ,

. ,

-50 50.

Rnd Randomize

,

.

Excel

:

For i = 1 To n
Cells(k, i) = A(i)	‘
Next i	‘	k – .

k ,

3, .

67

,

“ ”

Excel .

VBA

.

:

Worksheets( ).Select

, Worksheets(“ 1”).Select –

1”.

. , ,

“ 1”. ,

3

“ 2” .

Option Explicit
Sub PR15()
Dim A(10) As Integer, i As Integer
Worksheets(" 1").Select		‘ 1
For i = 1 To 10
A(i) = Cells(1, i)	‘
Next i
Worksheets(" 2").Select ‘ 2
For i = 1 To 10
If A(i) mod 2 = 0 Then A(i)=A(i)+3		‘
Cells(3,i) = A(i)	‘
Next i
End Sub

,

,

,

( , – ,

– ), .

, , ,

:

sum = 0

For i = 1 To 5

sum = sum + A(i)

68

Next i

MsgBox (sum)

:

pr = 1

For i = 1 To 5 pr = pr * A(i)

Next i MsgBox (pr)

:

kol = 0

For i = 1 To 5 kol = kol + 1

Next i MsgBox (kol)

,

, ,

, .

. , N .

.

Option Explicit

Sub PR16()

Dim i As Integer, S As Integer

Dim K As Integer, N As Integer

Dim PR As Double, SA As Double

Dim A(50) As Integer

N = Val(InputBox(" N"))

S = 0

PR = 1

K = 0

For i = 1 To N

A(i) = Cells(1, i)

Next i

For i = 1 To N

If A(i) mod 2 = 0 Then

S = S + A(i) ‘

69

K = K + 1 ‘
End If
If A(i) mod 2 < > 0 Then
PR = PR * A(i)		‘
End If
Next i
MsgBox("PR=" & PR)
MsgBox("S=" & S & " K=" & K)
If K < > 0 Then
SA = S / K	‘
MsgBox("SA=" & SA)
Else
MsgBox(" ")
End If
End Sub
:
Y(i),	Y(i) > Max;
Max =
Max, Y(i) £ Max.
Y(i),	Y(i) < Min;
Min =

Min, Y(i) ³ Min.

,

– ,

., , ,

Max = – 32000 Max = Y(1), Min = 32000 Min = Y(1).

1. Excel .

.

.

.

Sub PR17()

Dim A(10) As Integer

70