.


:




:

































 

 

 

 


Select Case




1. 2

.. 3

2. 4

.. 5

3. 6

.. 7

4. 8

.. 9

5. 10

.. 11

6. 12

.. 13

7. 14

7. 14

.. 15

8. 16

.. 17

9. 18

.. 18

1. . 19

2. . 26

3. VBA.. 27

4. VBA.. 30

5 .. 33

... 35


1

:

. . . 3 .

:

.1 =1,25; b=-2,49; c=8,62; d=0,7; k=-0.93; x=0,38   .2 a=-1,73; b=0,8;   .3 a=2,3; b=4,53; c=8,26; x=0,35;   .4 a=4,72; b=5,07; x=0,21;   .5 a=1,68; x=0,53;   .6 a=0,45; b=7,34; x=1,27;   .7 a=0,83; b=1,03; c=3,76; d=0,27; x=0,95;   .8 a=12,145; ;     .9 x=0,553;   .10 k=3; x=0,268;   .11 a=-4; x=0,3   .12   .13   .14   .15 Z=-2,538; x=1,6  

 


[;fgbd

fbj

 

1

:

1.

:

Z=-2,538; x=1,6

 

2 -

Sub lab1()

'

' 7, .7106, ..

z = -2.538: X = 1.6

S = ((1 + Exp(X)) / (1 - Exp(X))) * Sin(Sqr(Abs(z)) / 2)

S = Round(S, 3)

Debug.Print " Z="; z, "x="; X, "S="; S

End Sub

 

4.

Z=-2,538; x=1,6 S = -1.077


2

:

. .

.

:

  .1   .2   .3   .4   .5   .6   .7 .8   .9   .10   .11   .12   .13   .14   .15

 


 

2

:

1.

, :

 

 

2 -

 
 

 


Sub lab2()

Rem

X = InputBox(" x-")

X=val(x)

If X > 5 Then

Debug.Print " "

y = 3 * X ^ 2 - 4.25

Else

Debug.Print " "

y = Abs(3 * X ^ 3 - 5)

End If

Debug.Print "X="; X, "Y="; Y

End Sub

4.

X=6 Y= 103,75

 

X=2 Y= 19


3

:

( ). .

:

.1   .2   .3   .4   .5   .6   .7   .8   .9 .10   .11   .12   .13   .14   .15   .16   .17   .18   .19   .20  

 


 

3

:

1.

y=f(x) X, X0 Xk h.

X0=-2, Xk=2, h=0,4 y=X2-4X-2.

 
 

 


2 -

Sub lab3()

'

X0 = -2: Xk = 2: h = 0.4

For X = X0 To Xk Step h

y = X ^ 2 - 4 * X - 2

y = Round(y, 3)

Debug.Print "X="; X, "Y="; y

Next X

End Sub

4.

X=-2 Y= 10

X=-1,6 Y= 6,96

X=-1,2 Y= 4,24

X=-0,8 Y= 1,84

X=-0,4 Y=-0,24

X=0 Y=-2

X= 0,4 Y=-3,44

X= 0,8 Y=-4,56

X= 1,2 Y=-5,36

X= 1,6 Y=-5,84

X= 2 Y=-6

 


4

:

 

f(x)=0 0 .

:

: f(x)=0, f(x) [a,b]

X0 , f(X0)=0

, , , .

:

I , .

II - .

I .

: f(x) , f(x)=0 .

,

x2-2x-4=0

)

X -1      
F(x) -1 -4 -5 +8

, [1,2]

II .

.

f(X)=0, f(X) . . f(X)=0 x= (x). [a,b] x0 , x1=(x0); x2= (x1) xn= (xn-1). , |x-x0|<=e, e .

: xn xn= (xn-1) .

: x3-x-1=0 e=10-4.

1. , .. , , .. [a,b], : a=1;b=1,5.

2. x3=x+1=0 →x=(x+1)1/3. . x0=1.


:

.1 x sin x - 0,25 = 0; E= 0,0004 x0=1.1   .2 ; E = 10-4 X0 = -4   .3 X COS X = 0; E= 0,001 X0=0   .4 X 2+SIN(1/X) = 0; E= 0,0001 X0=1.2   .5 LN(X+2.5)-X= 0; E= 0,0001 X0=2   .6 e-x x=0 E= 10-6 X0=0.5   .7 -X-ARCTG(X)+6.65= 0; E= 10-5 X0=5   .8 X3+X-1= 0; E= 10-6 X0=0.9   .9 X 2 + SIN(X/2) = 0; E= 0,001 X0=0   .10 Ln(X2+1.2)-X= 0; E= 0,0001 X0=1.5  

 

4

:

1.

f(x)=0 ( ) 0 .

 

: x3 x -1 = 0 c . =10-4

 

2. -

 
 

 


3.

 

Sub lab4()

'

E = 0.0001

X0 = 1

X = (X0 + 1) ^ (1 / 3)

While Abs(X - X0) > E

X0 = X

X = (X0 + 1) ^ (1 / 3)

Debug.Print "X="; X

Wend

Debug.Print

F = X ^ 3 - X - 1

Debug.Print " = "; X

Debug.Print "F= "; F

End

End Sub

 

4.

X= 1,31229383668329

X= 1,32235381913882

X= 1,32426874455158

X= 1,32463262525092

X= 1,32470174851036

 

= 1,32470174851036

F= -6,91232594380864E-05


5

 

:

.

:

.1 2 7 0.5; b=5.4     .2 3 8 0.5; a=6     .3 =-1, -3, -4, 1, 2, 5     .4 =0.1; 0.5; 1; 1.2; 1.8; 2 =3; b=2     .5 -1 4 0.75;     .6 -1 4 0.75;     .7 a=0.1; 0.5; 1.2; 1.8; 2 b=0.9     .8 -1 4 0.75     B.9 X=0.8; 1.2; 1.9; 2.4; 3   B.10 X= -1; -0.5; 0.5; 1; 2.4; 4; 6

 


 

5

 

:

1.

 

 

4 8 0.5

2. -

 

3.

Sub Lab5()

FOR X = 4 TO 8 STEP 0.5

IF X>=5 THEN

Y=X+Sin(X/2)

ELSE

Y=X-Sin(X/2)

END IF

DEBUG.PRINT X=;X,Y=;Y

NEXT X

End Sub

 

4.

X= 4 Y= 3,09070257317432

X= 4,5 Y= 3,72192680311208

X= 5 Y= 5,59847214410396

X= 5,5 Y= 5,88166099205233

X= 6 Y= 6,14112000805987

X= 6,5 Y= 6,39180486546989

X= 7 Y= 6,64921677231038

X= 7,5 Y= 6,92843868125766

X= 8 Y= 7,24319750469207

 

bfbfbf
6

 

: SUB

. () SUB.

:

.1   .2   .3   .4   .5   .6   .7   .8   .9     .10   .11   .12   .13   .14   .15   .16   .17   .18    

 

6

 

: SUB

1.

. () SUB.

 
 


n=1¸3

 

2. -

 

-SUB.

3.

 

SUB Lab6()

REM -SUB

FOR n=1 TO 3

Integral(n)

NEXT n

END SUB

 

SUB integral(n)

B = 1.5: A=0

H = (B-A)/1000

S=0

FOR t=A TO B STEP H

S = S + (EXP(t)*(1+SIN(t)))/(1+COS(t)*n)*H

NEXT t

DEBUG.PRINT n=; n, s=;s

 

END SUB

 

 

4.

 

n= 1 s= 4,16923301628827

n= 2 s= 3,27157585300758

n= 3 s= 2,72177268868186


7

 

: FUNCTION

 

. () FUNCTION.

:

.1   .2   .3     .4   .5   .6   .7   .8   .9   .10   .11   .12   .13   .14   .15   .16   .17   .18  

 

 


 

7

 

: FUNCTION

1.

. () FUNCTION.

 

X=1¸7

 

2. -

 
 
SUM1


-.

3.

 

SUB Lab7()

REM -

FOR X=1 TO 7

U = SUM1(X) + SUM2(X)

DEBUG.PRINT X=; X, U=;U

NEXT X

END SUB

 

FUNCTION SUM1(X)

S=0

FOR K=0 TO 5

S = S + SIN(X)/(1+k)

NEXT K

SUM1 = S

END FUNCTION

 

FUNCTION SUM2(X)

S=0

FOR K=0 TO 4

S = S + SQR(k*X)

NEXT K

SUM2 = S

END FUNCTION

 

4.

X= 1 U= 8,20786828272132

X= 2 U= 10,9199091256254

X= 3 U= 10,9913861852365

X= 4 U= 10,4383626263795

X= 5 U= 11,3941004659505

X= 6 U= 14,3706435600192

X= 7 U= 17,8711041817846


8

 

:

 

. , .

 

:

1. 10 . 2. 10 . 3. 10 2. 4. 10 . 5. 10 , [a;b]. . 6. 10 , [a;b]. . 7. 10 . 8. 10 . 9. 10 . 10. 10 . 11. 10 . 12. 10 . 13. 10 . 14. 10 100. 15. 10 . 16. 10 . 17. 10 . 18. 10 , - . 19. 10 , . 20. 10 .

 


 

8

 

:

1.

10 .

 

2.

 

Sub m_VvodDannih()

Dim m(1 To 10) As Integer

Randomize Timer

For i = 1 To 10

m(i) = Int(Rnd() * 100) + 1

Next i

 

Debug.Print " "

For i = 1 To 10

Debug.Print m(i);

Next i: Debug.Print: Debug.Print

 

Call obrabotka(m())

 

End Sub

 

 

Sub obrabotka(m1() As Integer)

Max = m1(1): k = 1

For j = 2 To 10

If m1(j) > Max Then

Max = m1(j)

k = j

End If

Next j

Debug.Print "max="; Max, "k="; k

End Sub

 

3.

4 40 7 77 71 19 60 71 51 15

 

max= 77 k= 4


9

 

: .

. : , , . .

 

 

 

9

 

: .

1.

. .

 

2.

 

Sub ()

= FreeFile

Open "d:\file1.txt" For Output As

n = InputBox(" ")

For i = 1 To n

fio$ = InputBox("")

god% = InputBox(" ")

oklad = InputBox("")

Write #, fio$, god%, oklad

Next i

Close

End Sub

 

Sub ()

= FreeFile

Open "d:\file1.txt" For Input As

n = 10000

Debug.Print "", " ", ""

For i = 1 To n

If EOF() Then Exit For

Input #, fio$, god%, oklad

Debug.Print fio$, god%, oklad

Next i

Close

End Sub


1.

, .

:

1. () - .

2. - .

3. - .

4. - .

5. - .

6. - .

, . , , , , .

:

- , , , ;

- , , ( );

- , , , .

. . :

- , ;

- , ;

- , .

- - .

, . . - . , , :

 

 

, .

:

- . .

:

- ;

- ;

- ;

- ;

 

- , . , . , :

 

, , . .

- . , , , . , . . . . , .

. , , .

. . .

: , , . , , - , - . ( ), : , .

(, , ..), .

- , .

- . , .

.

() - (, , p.).

. :

- : , +; , -; , *; , /; ^;

- : , , .;

- : , <; , >; , <=; , >=; , =; , <>.

- p , "+".

, , .

- , . p : , .

- , .

:

: 7.5, 12;

: "abcde", "".

, . . , , .

- , . - , , .

, , , , , . ( , "" . .), , .

, .

. :

1. .

2. .

3. : , , - .

4. .

, . , - "" "" ( ).

, , , .

- . , , .

, , . - : . ; ; ..

, . , .

- , . , .

.

, .

, .. . , .

- , . : , , , , .

, .. , . . , , . , , .

- , , .

- , . , , , , .

, , , , .

, . :

1. , , .

2. , .

3. , .

. , , , () . Delphi, Visual C++, Visual Basic.

, . , , , .

, : ( ), ( ).

 


2.

 

BASIC
SIN X SIN(X)
COS X COS(X)
tg (X) TAN(X)
ex EXP(X) , = 2,7182...., x <= 78
ln X LOG(X) - ( ), X>0
êX ê ABS(X) X
arctg X ATN(X)
X INT(X) Y=INT(4.2) | y=4 Y=INT(-4.2) | y=-5
SQR(X) X 0

:

BASIC
êln ê ABS(LOG(Y))
ex+2 EXP(X+2)
Sin22x Sin(2*x)^2
((a+b*x)/(a*x-b))^(1/3)

 

ATN(X)
3. VBA

MsgBox

MsgBox(coo6e[, ][, ][, , ])

, , , Integer, , .

InputBox

=InputBox([, ][, ][, ][, Y ] [, , ])

, , , String, , .

 

IF

IF...THEN. : () ().

) :

if<> Then <>

) :

if<ycoue> Then

< >

End if

If...Then... Else

If <> Then

< 1>

Else

< 2>

End If

:

If...Then...ElseIf

 

if< 1>Then

< 1>

Elseif < 2> Then

< 2>

..

Elseif< n > Then

< >

Else

< Else>

End If

SELECT CASE

.

:

Select Case

Case 1

I

Case 2

2

Case 3

3

Case Else

Else

End Select

Select Case. (, , ).

- , (;).

, . :

-

- 1 T 2

- Is ( )

 

, Is>= 10

For...Next :

) For = [Step ]

Next []

) For Each <> In <>

Next []





:


: 2017-02-24; !; : 386 |


:

:

, .
==> ...

1524 - | 1314 -


© 2015-2024 lektsii.org - -

: 2.818 .