По заданным длинам сторон треугольника вычислить периметр, площадь, углы (в градусах) и высоты — QBasic(Бейсик)

INPUT a
INPUT b
INPUT c
PI = 3.141593
p = a + b + c
s = SQR(p / 2 * (p / 2 - a) * (p / 2 - b) * (p / 2 - c))
ha = 2 * s / a
hb = 2 * s / b
hc = 2 * s / c
cosAB = (c ^ 2 - a ^ 2 - b ^ 2) / (2 * a * b)
cosAC = (b ^ 2 - a ^ 2 - c ^ 2) / (2 * a * c)
cosBC = (a ^ 2 - b ^ 2 - c ^ 2) / (2 * b * c)
AB = ATN(SQR(1 / (cosAB ^ 2) - 1))
AC = ATN(SQR(1 / (cosAC ^ 2) - 1))
BC = ATN(SQR(1 / (cosBC ^ 2) - 1))
ABgrad = AB * 180 / PI
ACgrad = AC * 180 / PI
BCgrad = BC * 180 / PI
PRINT "perimetr"; p
PRINT "ploshad"; s
PRINT "vysoty iz a b c"; ha; " "; hb; " "; hc
PRINT "ugly AB AC BC"; ABgrad; " "; ACgrad; " "; BCgrad; " gradusov"

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment