Даны декартовы координаты вершин треугольника(в плоскости) - 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")

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы