Даны декартовы координаты вершин треугольника(в плоскости) - VB
Формулировка задачи:
Даны декартовы координаты вершин треугольника(в плоскости).Написать программу, вычисляющую площадь и периметр этого треугольника.Написать программу, вычисляющую площадь и периметр этого треугольника.
Желательно через VBScript
Помогите пожалуйста!
Решение задачи: «Даны декартовы координаты вершин треугольника(в плоскости)»
textual
Листинг программы
Dim Pt() As Single, P As Single, S As Single, i As Long ReDim Pt(2, 1) For i = 0 To 5 Pt(i \ 2, i And 1) = Val(InputBox(Chr$(&H41 + i \ 2) & Chr$(&H78 + (i And 1)))) Next P = Sqr((Pt(1, 0) - Pt(0, 0)) ^ 2 + (Pt(1, 1) - Pt(0, 1)) ^ 2) + _ Sqr((Pt(2, 0) - Pt(0, 0)) ^ 2 + (Pt(2, 1) - Pt(0, 1)) ^ 2) + _ Sqr((Pt(2, 0) - Pt(1, 0)) ^ 2 + (Pt(2, 1) - Pt(1, 1)) ^ 2) S = Abs((Pt(1, 0) - Pt(0, 0)) * (Pt(2, 1) - Pt(0, 1)) - _ (Pt(2, 0) - Pt(0, 0)) * (Pt(1, 1) - Pt(0, 1))) / 2 MsgBox "P = " & Format(P, "0.00000") & vbNewLine & _ "S = " & Format(S, "0.00000")
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д