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. -
|
-.
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 []