Пример 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.