4.4-2.
4.4-2
| Form1 | Name | Form1 | |
| Text | : .. | ||
| Label1 | Text | r=f(x,y,z) | |
| ImageAlign | MiddleCenter | ||
| Label2 | Text | X= | |
| ImageAlign | MiddleCenter | ||
| Label3 | Text | Y= | |
| Label4 | Text | Z= | |
| Label5 | Text | R= | |
| TextBox1 | Name | TextBox1 | |
| TextBox2 | Name | TextBox2 | |
| TextBox3 | Name | TextBox3 | |
| TextBox4 | Name | TextBox4 | |
| Button1 | Name | Button1 | |
| Text | r=f(x, y, z) | ||
| Button2 | Name | Button2 | |
| Text |
. 4.4-2.
. 4.4-2
. 4.4-3.
| Option Strict On Option Explicit On Imports System.Math Public Class Form1 ' TextBox Function vvod(ByVal T As TextBox) As Double Return Val(T.Text) End Function ' TextBox Overloads Sub vivod(ByVal Z As Double, ByVal T As TextBox) T.Text = CStr(Z) End Sub ' TextBox Overloads Sub vivod(ByVal Z As Integer, ByVal T As TextBox) T.Text = CStr(Z) End Sub Sub Razv(ByVal x As Double, ByVal y As Double, _ ByVal z As Double, ByRef r As Double, _ ByRef n As Integer) Dim r1, r2 As Double If y < x Then r1 = Sin(y): r2 = Cos(z): r = x ^ 2 If r1 < r Then r = r1 If r2 < r Then r = r2 n = 1 '1 . - Else If y <= z Then r1 = Log(z ^ 2): r2 = Exp(x + y) If r1 > r2 Then r = r1 Else r = r2 n = 2 '2 . - Else r = x + y + z n = 3 '3 . - End If End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim x, y, z, r As Double Dim n As Integer x = vvod(TextBox1) y = vvod(TextBox2) z = vvod(TextBox3) Razv(x, y, z, r, n) vivod(r, TextBox4) vivod(n, TextBox5) End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click End End Sub End Class |
. 4.4-3
-4-4- . 4.4-4.
. 4.4-4.
, , :
|
|
|
| x=2 | y=1 | z=1 | r= 0,540302305 n=1 |
| x=1 | y=2 | z=3 | r= 20,08553692 n=2 |
| x=1 | y=3 | z=2 | r= 6 n=3 |
.
1. ?
2. ?
3. ?
4. ?
5. VB?
6. VB?
7. ?
8. ?
9. ?
10. ?
11. ?
12. If If?
13. Select Case?
14. If, Select Case?
15. If?
16. Select Case?
17. ?
18. If-Then?
19. If-Then-Else?
20. If?
21. If-Then?
22. ?
23. ?
24. If?
25. If?
26. , ?
27. , ?
28. Not ((X<= 10) Or (X >= 20)) ?
29. R = NOT (a OR b OR (x> 2) AND (y< 0)) a = False, b = False, x = 3, y=2?
30. ?
31. ?
