Similar presentations:
Оператор присваивания и стандартные математические функции
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