Question

Дан треугольник со стороной a и прилежащими углами Y и B. Вычислить площадь треугольника, найти остальные стороны и угол между ними.
Написать в паскале

Answer 1

Var a,b,c,A1,B1,C1,S:real;
begin
write('введите угол c => ');
readln(c);
write('введите угол b => ');
readln(b);
write('введите сторону A1 => ');
readln(A1);a:=180-(b+c);
writeln('угол а =',a);
B1:=(sin(b)*A1)/sin(a);
writeln('сторона В=',B1);
C1:=sin(c)*A1/sin(a);
writeln('сторона C=',C1);
S:=0.5*B1*C1*sin(a);
writeln('площадь s=',s);
end.