Дан случайный треугольник АВС для которого определен следующий набор характерных параметров:
Дан произвольный треугольник АВС для которого определен последующий набор отличительных параметров: а, b, с стороны треугольника; а, b, у углы (в градусах); h вышина, опущенная на сторону с; S площадь; Р периметр треугольника. По трем данным параметрам вычислить все остальные. Различные сочетания параметров определяют варианты заданий.
Замечание: входные (начальные) и выходные значения углов представить в градусной мере.
1 ответ
Тимур Ходенкова-Прзоркевич
Var
a, b, S, c, alpha, betta, gamma, H, P: real;
x, ar, br, gr: real;alpha, beta. gamma в радианах
begin
write(Введите длины 2-ух сторон треугольника и площадь: );
readln(a, b, S);
x := 2 * S / (a * b);
if x gt; 1 then writeln(Такой треугольник невероятен)
else
begin
gr := ArcSin(x);
c := Sqrt(Sqr(a) + Sqr(b) - 2 * a * b * Cos(gr));
P := a + b + c;
ar := ArcSin(a * Sin(gr) / c);
br := Pi - (ar + gr);
H := b * Sin(ar);
alpha := ar * 180 / Pi;
betta := br * 180 / Pi;
gamma := 180 - (alpha + betta);
writeln(Решение треугольника);
writeln(a=, a, , b=, b, , c=, c:0:5);
writeln(Alpha=, alpha:0:2, , Betta=, betta:0:2, , Gamma=, gamma:0:2);
writeln(P=, P:0:5, , H=, H:0:5, , S=, S)
end
end.
a, b, S, c, alpha, betta, gamma, H, P: real;
x, ar, br, gr: real;alpha, beta. gamma в радианах
begin
write(Введите длины 2-ух сторон треугольника и площадь: );
readln(a, b, S);
x := 2 * S / (a * b);
if x gt; 1 then writeln(Такой треугольник невероятен)
else
begin
gr := ArcSin(x);
c := Sqrt(Sqr(a) + Sqr(b) - 2 * a * b * Cos(gr));
P := a + b + c;
ar := ArcSin(a * Sin(gr) / c);
br := Pi - (ar + gr);
H := b * Sin(ar);
alpha := ar * 180 / Pi;
betta := br * 180 / Pi;
gamma := 180 - (alpha + betta);
writeln(Решение треугольника);
writeln(a=, a, , b=, b, , c=, c:0:5);
writeln(Alpha=, alpha:0:2, , Betta=, betta:0:2, , Gamma=, gamma:0:2);
writeln(P=, P:0:5, , H=, H:0:5, , S=, S)
end
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов