Определите длину третьей стороны треугольника по координатам двух сторон и углу между ними - PascalABC.NET
Формулировка задачи:
Задание:
Определите длину третьей стороны треугольника по координатам двух сторон и углу между ними (угол задается в радианах)
___
По каким формулам это нужно находить?
Решение задачи: «Определите длину третьей стороны треугольника по координатам двух сторон и углу между ними»
textual
Листинг программы
var a,b,c,uc:real;
begin
repeat
writeln('Введите 2 стороны треугольника');
readln(a,b);
until(a>0)and(b>0);
repeat
write('Введите угол между ними в градусах 0<uc<180 uc=');
readln(uc);
until(uc>0)and(uc<180);
uc:=uc*pi/180;//переведем в радианы
c:=sqrt(a*a+b*b-2*a*b*cos(uc));
writeln('Сторона С=',c:0:2);
end.