Пример 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.
|
 Мы поможем в написании ваших работ! | |||
