2) написать программу вычисления площади треугольника, если известны длины двух сторон и величина угла между этими сторонами. ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). вычисление площади треугольника. введите (через пробел) длины двух сторон (см) треугольника = 25 17 введите величину угла между сторонами треугольника = 30 площадь треугольника: 106.25 кв.см.

👇

Ответ:

UlyanaKwon666

06.02.2023

Var
a,b,alpha,s:real;
begin
writeln('Вычисление площади треугольника');
writeln('Введите (через пробел) длины двух сторон (см) треугольника');
readln(a,b);
writeln('Введите величину угла (градус) между сторонами треугольника');
readln(alpha);
alpha:=DegToRad(alpha);
writeln('Площадь треугольника: ',0.5*a*b*sin(alpha),' кв.см.')
end.

Тестовое решение:

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
25 17
Введите величину угла (градус) между сторонами треугольника
30
Площадь треугольника: 106.25 кв.см.

Вычисление площади треугольника
Введите (через пробел) длины двух сторон (см) треугольника
11 16.3
Введите величину угла (градус) между сторонами треугольника
39
Площадь треугольника: 56.4185730576179 кв.см.

4,6(33 оценок)

Открыть все ответы

Ответ:

misskuleshova

06.02.2023

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
$\displaystyle S_1=a^2 \to a=\sqrt{S_1}; \ d=a \sqrt{2}= \sqrt{2S_1} \\ S_2=\frac{\pi D^2}{4} \to D=\sqrt{\frac{4S_2}{\pi}}; \\ d\ \textless \ D \to \sqrt{2S_1}\ \textless \ \sqrt{\frac{4S_2}{\pi}}; \ 2S_1\ \textless \ \frac{4S_2}{\pi} \ \to \ \boxed{\pi s_1\ \textless \ 2S_2}$
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

4,8(87 оценок)

Ответ: