.


:




:

































 

 

 

 


4.3.4-3. .




3.4-3 . 4.3.4-9.

Option Strict On Option Explicit On Imports System.Math Public Class Form1 Function vvodSng3(ByVal T As TextBox) As Single Return CSng(Val(T.Text)) End Function Sub vivodSng3(ByVal Z As Single, ByVal T As TextBox) T.Text = CStr(Z) End Sub Sub PS(ByVal A As Single, ByVal B As Single, _ ByVal C As Single, ByRef P As Single, _ ByRef S As Single) Dim Pp As Single P = (A + B + C): Pp = P / 2 S = CSng(Sqrt(Pp * (Pp - A) * (Pp - B) * (Pp - C))) End Sub Sub PSPr(ByVal A As Single, ByVal B As Single, _ ByVal C As Single) Dim P As Single, S As Single PS(A, B, C, P, S) vivodSng3(P, TextBox4): vivodSng3(S, TextBox5) End Sub Private Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) _ Handles Button1.Click Dim A, B, C As Single A = vvodSng3(TextBox1) B = vvodSng3(TextBox2) C = vvodSng3(TextBox3) PSPr(A, B, C) 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.3.4-9. 3.4-3

 

4.3.4-4. .

: x=1,4444 b=0,318 t=2,1 a=1,3

VB:

 

. 4.3.4-10.

 

Option Strict On Option Explicit On Imports System.Math Public Class Form1 Sub Pr348(ByVal x As Single,ByVal a As Single,ByVal b As Single,_ ByVal t As Single, ByRef y As Single, ByRef z As Single) y = CSng(9 * x ^ 2 + Sin(x) * Sin(x) * Sqrt(a + b)) z = CSng((Sqrt(x^t))^(1 / 3) * (a * x ^ 3 - (x * x) / (1/2))) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) _ Handles Button1.Click Dim a, b, x, t, z, y As Single a = CSng(Val(TextBox1.Text)): b = CSng(Val(TextBox2.Text)) x = CSng(Val(TextBox4.3.Text)): t = CSng(Val(TextBox4.Text)) Pr344(x, a, b, t, y, z) TextBox5.Text = Str(y) TextBox6.Text = Str(z) End Sub End Class

 

. 4.3.4-10. 3.4-4

. 4.3.4-11.

 

 

. 4.3.4-11. 3.4-4

 

InputBox()
MsgBox() (. 4.3.4-12).

 

Option Strict On Option Explicit On Imports System.Math Public Class Form1 Sub Pr3410(ByVal x As Single,ByVal a As Single, _ ByVal b As Single, ByVal t As Single, _ ByRef y As Single, ByRef z As Single) y = CSng(9 * x ^ 2 + Sin(x) * Sin(x) * Sqrt(a + b)) z = CSng((Sqrt(x^t))^(1 / 3) * (a * x^3 - (x * x) / (1 * 2))) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) _ Handles Button1.Click Dim a, b, x, t, z, y As Single a = CSng(InputBox(" ", " 1 ")) b = CSng(InputBox(" ", " 2 ")) x = CSng(InputBox(" X", " 3 ")) t = CSng(InputBox(" T", " 4 ")) Pr3410(x, a, b, t, y, z) MsgBox(" Y = " & y, vbInformation, " ") MsgBox(" Z = " & z, vbInformation, " ") End Sub End Class

 

.4.3.4-12. InputBox() MsgBox()

 

. 4.3.4-113,
4.3.4-14.

 

     

. 4.3.4-13 Y . 4.3.4-14. Z


4.3.4-5. , : s L. , d, .

. E0 =8,85.10-12

. 4.3.4-15.

 

Option Strict On Option Explicit On Imports System.Math Public Class Form1 Private Sub Pr3413(ByRef C As Single) Dim s, L, d, E0 As Single s = CSng(InputBox(" ", _ " ")) L = CSng(InputBox(" ", _ " ")) d = CSng(InputBox(" ", _ " ")) E0 = 0.00000000000885 'E0 = 8.85E-12 C = (E0 * s) / (L - d) End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim A, B, C As Single Pr3413(C) MsgBox(" = " & C, vbInformation, "") End Sub End Class

 

. 4.3.4-15. 3.4-5

 

. 4.3.4-16. 3.4-5

s=5,7, L=0,5 d=0,001, c=1,010922E-10, . 4.3.4-14.

 

 





:


: 2016-11-18; !; : 362 |


:

:

, ; , .
==> ...

1762 - | 1519 -


© 2015-2024 lektsii.org - -

: 0.008 .