Дан случайный треугольник ABC, для которого определен последующий набор отличительных
Дан случайный треугольник ABC, для которого определен следующий набор отличительных характеристик: a,b,c - стороны треугольника, альфа, бета, палитра - углы (в градусах), h - вышина, опущенная на сторону c, S - площадь, P - периметр треугольника. По заданным характеристикам: a,b,h
Задать свой вопрос
Миша Шкурихин
в школе такому не учат
Марина
слухай
Регина Лазутко
це можу зробити
Селенок
Серега
проте пзнше
Юрик Неменов
зараз не маю часу
Надежда Чулимова
Можеш дати посилання на якусь соц мережу(крм вк)
Регина Шамышева
ну как время будет напиши тут,(не сижу в соц.сетях)
Светлана Мачеркевич
ок
Ilja Skorinkin
остараюсь зробити за найближч 10-12 годин
Ванька Корчмит
превосходно
1 ответ
Dmitrij Gradopolov
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.
Тестовое решение:
Введите длины 2-ух сторон треугольника и площадь: 3 4 6
Решение треугольника
a=3, b=4, c=5.00000
Alpha=36.87, Betta=53.13, Gamma=90.00
P=12.00000, H=2.40000, S=6
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.
Тестовое решение:
Введите длины 2-ух сторон треугольника и площадь: 3 4 6
Решение треугольника
a=3, b=4, c=5.00000
Alpha=36.87, Betta=53.13, Gamma=90.00
P=12.00000, H=2.40000, S=6
Veronika Kolkina
не то
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов