Оператор присваивания и стандартные математические функции

1.

Лабораторная работа
№9
Оператор присваивания и стандартные математические функции
Выполнил: Кривоносов Иван, Деньщиков Павел
Группа 123

2.

Цель работы
Научиться записывать математические выражения, содержащие различные
элементарные функции и математические операции в Visual Basic

3.

Задача
Написать программу, считающие переменные по формулам, заданным
пользователем, при заданных значениях a, b, c

4.

Блок схема

5.

Скриншот экранной формы

6.

Таблица свойств объектов

7.

Public Class Form1
Dim a, b, c, aa, bb, cc, pp, R1, R2 As Single
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
a = CSng(ta.Text)
b = CSng(tb.Text)
c = CSng(tc.Text)
aa = Math.Acos((b ^ 2 + c ^ 2 - a ^ 2) / (2 * b * c))
Label5.Text = CStr(aa)
bb = Math.Acos((a ^ 2 + c ^ 2 - b ^ 2) / (2 * a * c))
Label7.Text = CStr(bb)
cc = Math.Acos((a ^ 2 + b ^ 2 - c ^ 2) / (2 * a * b))
Label9.Text = CStr(cc)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
a = CSng(ta.Text)
b = CSng(tb.Text)
c = CSng(tc.Text)
pp = (a + b + c) / 2
R1 = pp / (Math.Sin(aa) + Math.Sin(bb) + Math.Sin(cc))
Label11.Text = CStr(R1)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
a = CSng(ta.Text)
b = CSng(tb.Text)
c = CSng(tc.Text)
pp = (a + b + c) / 2
R2 = pp / (Math.Cos(aa) + Math.Cos(bb) + Math.Cos(cc))
Label13.Text = CStr(R2)
End Sub
End Class
Листинг программного кода

8.

Листинг программного кода

9.

Исходные данные и результаты

10.

Вывод
В результате выполнения лабораторной работы научился записывать
математические выражения, содержащие различные элементарные
функции и математические операции в Visual Basic