Нарисовать треугольник зная длины его сторон - VB

Узнай цену своей работы

Формулировка задачи:

Задача: Нарисовать треугольник зная его длины сторон. Т.е. Дано три числа A,B,C - которые являются сторонами треугольника. Как по ним можно нарисовать треугольник? Были б координаты вершин - это легче легкого. А как из длины стороны получить координаты вершин? Или есть еще варианты?

Решение задачи: «Нарисовать треугольник зная длины его сторон»

textual
Листинг программы
Dim ab As Single, bc As Single, ac As Single
Dim cugla As Single, sugla As Single, Xc As Single, Yc As Single
ab = Val(Text1.Text)
bc = Val(Text2.Text)
ac = Val(Text3.Text)
 
cugla = (-bc ^ 2 + ac ^ 2 + ab ^ 2) / (2 * ab * ac)
sugla = Sqr(1 - cugla ^ 2)
Xc = ab * cugla
Yc = ac * sugla
 
FillStyle = 0
Picture1.Cls
Picture1.CurrentX = 8
Picture1.CurrentY = 90
Picture1.Print "A"
Picture1.CurrentX = 10 + ab
Picture1.CurrentY = 90
Picture1.Print "B"
Picture1.CurrentX = 8
Picture1.CurrentY = 90
Picture1.Print "A"
Picture1.CurrentX = Xc + 10
Picture1.CurrentY = 85 - Yc
Picture1.Print "C"
 
  If (ab >= bc + ac) Or (bc >= ab + ac) Or (ac >= ab + bc) Then
    MsgBox ("Нельзя построить треугольник с такими длинами сторон")
  Else
        Picture1.Line (10, 90)-(10 + ab, 90), vbBlack
        Picture1.Line (10, 90)-(10 + Xc, 90 - Yc), vbBlack
        Picture1.Line (10 + Xc, 90 - Yc)-(10 + ab, 90), vbBlack
    End If

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

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