Информатика. Индришенок В.И - 9 стр.

UptoLike

-9-
9
x
ea
x
Y ++=
3
2
<
>+
<
+
+
=
)
2
( определено не
)5.2( 1
2.5)x
2
( 5
)
22
(-
2sin
4
2
π
π
π
π
x
xx
x
x
x
a
10
x
ax
xaY
+
++=
3
8.2
+
+
=
xостальных для 85.1
)5.2( 5.24
x
xx
a
11
xaaY ++=
2
5.2
+
<
=
)3( 85.1
)3( 5
xx
x
a
12
a
x
aY
2
=
<
=
)4( 5
)4( 5.3
xx
xx
a
13
4
3
2
2
a
x
x
Y +
+
+
=
<+
<
=
xостальных для определено не
)6(-12 13
)3(-6 7.3
2
xxx
xx
a
14
xa
x
x
Y 3
2
3
+
+
=
<+
<
=
xостальных для определено не
)8(-3 33
)3(-6 7.3
2
xxx
xx
a
Пример программного кода для варианта 1:
Private Sub Командная_кн_Click()
Dim Y As Double
Dim x As Double, a As Double
Dim strA As String, str1 As String, var1 As String, _
var2 As String, var3 As String
strA = "A=?"
var1 = "x+1.5x^3+e^(x+1)"
var2 = "4.5x+1.5"
var3 = "x+1"
x = Val(TxtX)
If x >= -2 And x <= 5 Then
                                 -9-

                                   ⎧ 2          4         π       π
                                   ⎪   x  +            (-   ≤ x ≤   )
                                            sin x + 2     2       2
                                   ⎪
           2                       ⎪⎪5 ( π < x ≤ 2.5)
 9   Y =     + a3 + ex        a=⎨            2
           x                        ⎪ x + 1 ( x > 2.5)
                                    ⎪
                                    ⎪не определено ( x < − π )
                                    ⎪⎩                          2
                      x+a          ⎧4 x + 2.5 ( x ≤ 2.5)
 10 Y = a + 2.8 x +           a=⎨
                      3− x         ⎩1.5 x + 8 для остальных x
                                     ⎧5 ( x < 3)
 11 Y = 2.5a 2 + a + x        a=⎨
                                     ⎩1.5 x + 8 ( x ≥ 3)
              x2                   ⎧3.5 x ( x < 4)
 12 Y = a −                   a=⎨
              a                    ⎩ x − 5 ( x ≥ 4)
                                 ⎧3.7 x (-6 < x ≤ −3)
        2 + x3                   ⎪
 13 Y =        + a4          a = ⎨ x 2 + 3 x − 1 (-12 < x ≤ −6)
         x+2                     ⎪не определено для остальных x
                                 ⎩
                                 ⎧3.7 x (-6 < x ≤ −3)
           2+ x                  ⎪
 14 Y =         + a 3 − 3x   a = ⎨ x 2 + 3x − 3 (-3 < x ≤ 8)
            x                    ⎪не определено для остальных x
                                 ⎩

Пример программного кода для варианта 1:
Private Sub Командная_кн_Click()
Dim Y As Double
Dim x As Double, a As Double
Dim strA As String, str1 As String, var1 As String, _
var2 As String, var3 As String
strA = "A=?"
var1 = "x+1.5x^3+e^(x+1)"
var2 = "4.5x+1.5"
var3 = "x+1"
x = Val(TxtX)
If x >= -2 And x <= 5 Then