Содержание
- 2. Задание Вычислить медиану треугольника по данным значениям сторон. Вычислить площадь треугольника. где a=3,7 b=3,7 c=3,7 где:
- 3. Таблица свойств
- 4. Эскиз электронной формы
- 5. Алгоритм 1.1
- 6. Алгоритм 1.2
- 7. Код Public Class Form1 Dim a, c, b, m, s, ygola, ygolb, ygolc, RA, r, Sk,
- 8. Код Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click x = CSng(TextBox7.Text)
- 9. Исходные данные: Результат
- 10. Выполнение в MathCad
- 12. Скачать презентацию
Слайд 2
Задание
Вычислить медиану треугольника по данным значениям сторон. Вычислить площадь треугольника.
где
Задание
Вычислить медиану треугольника по данным значениям сторон. Вычислить площадь треугольника.
где
a=3,7 b=3,7 c=3,7
где: 1) а=b=с=5, А=В=С=60°
2) а=4, b=5, с=5,4; А=46°, В=64°, С=70°
Вычислить площадь кольца:
Вычислить:
при x=2 y= -3
где: 1) а=b=с=5, А=В=С=60°
2) а=4, b=5, с=5,4; А=46°, В=64°, С=70°
Вычислить площадь кольца:
Вычислить:
при x=2 y= -3
Слайд 3
Таблица свойств
Таблица свойств
Слайд 4
Эскиз электронной формы
Эскиз электронной формы
Слайд 5
Алгоритм 1.1
Алгоритм 1.1
Слайд 6
Алгоритм 1.2
Алгоритм 1.2
Слайд 7
Код
Public Class Form1
Dim a, c, b, m, s, ygola, ygolb,
Код
Public Class Form1
Dim a, c, b, m, s, ygola, ygolb,
ygolc, RA, r, Sk, x, y, u, v As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = CSng(TextBox1.Text)
b = CSng(TextBox2.Text)
c = CSng(TextBox3.Text)
m = Math.Sqrt(2 * a * a + 2 * c * c - b * b) / 2
TextBox4.Text = TextBox4.Text + CStr(m) + vbCrLf
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
a = CSng(TextBox1.Text)
b = CSng(TextBox2.Text)
c = CSng(TextBox3.Text)
ygola = (CSng(TextBox9.Text) * Math.PI) / 180
ygolb = (CSng(TextBox10.Text) * Math.PI) / 180
ygolc = (CSng(TextBox11.Text) * Math.PI) / 180
s = (a * a * Math.Sin(ygolb) * Math.Sin(ygolc)) / (2 * Math.Sin(ygola))
TextBox4.Text = TextBox4.Text + CStr(s) + vbCrLf
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
RA = CSng(TextBox5.Text)
r = CSng(TextBox6.Text)
Sk = Math.PI * ((RA * RA) - (r * r))
TextBox4.Text = TextBox4.Text + CStr(Sk) + vbCrLf
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
x = CSng(TextBox7.Text)
y = CSng(TextBox8.Text)
u = (x * x + y * y) / (1 - x * x - y * y)
TextBox4.Text = TextBox4.Text + CStr(u) + vbCrLf
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = CSng(TextBox1.Text)
b = CSng(TextBox2.Text)
c = CSng(TextBox3.Text)
m = Math.Sqrt(2 * a * a + 2 * c * c - b * b) / 2
TextBox4.Text = TextBox4.Text + CStr(m) + vbCrLf
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
a = CSng(TextBox1.Text)
b = CSng(TextBox2.Text)
c = CSng(TextBox3.Text)
ygola = (CSng(TextBox9.Text) * Math.PI) / 180
ygolb = (CSng(TextBox10.Text) * Math.PI) / 180
ygolc = (CSng(TextBox11.Text) * Math.PI) / 180
s = (a * a * Math.Sin(ygolb) * Math.Sin(ygolc)) / (2 * Math.Sin(ygola))
TextBox4.Text = TextBox4.Text + CStr(s) + vbCrLf
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
RA = CSng(TextBox5.Text)
r = CSng(TextBox6.Text)
Sk = Math.PI * ((RA * RA) - (r * r))
TextBox4.Text = TextBox4.Text + CStr(Sk) + vbCrLf
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
x = CSng(TextBox7.Text)
y = CSng(TextBox8.Text)
u = (x * x + y * y) / (1 - x * x - y * y)
TextBox4.Text = TextBox4.Text + CStr(u) + vbCrLf
End Sub
Слайд 8
Код
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Код
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button6.Click
x = CSng(TextBox7.Text)
y = CSng(TextBox8.Text)
v = ((1 - x * (y / 2 - 1) * (y / 2 - 1)) * (1 - x * (y / 2 - 1) * (y / 2 - 1))) / (x * x)
TextBox4.Text = TextBox4.Text + CStr(v) + vbCrLf
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class
x = CSng(TextBox7.Text)
y = CSng(TextBox8.Text)
v = ((1 - x * (y / 2 - 1) * (y / 2 - 1)) * (1 - x * (y / 2 - 1) * (y / 2 - 1))) / (x * x)
TextBox4.Text = TextBox4.Text + CStr(v) + vbCrLf
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class
Слайд 9
Исходные данные: Результат
Исходные данные: Результат
Слайд 10
Выполнение в MathCad
Выполнение в MathCad
- Предыдущая
Предмет, метод и система трудового праваСледующая -
Использование указателей и ссылок