Написать программу на языке программирования паскаль, которая позволяет найти площадь треугольника по двум сторонам и углу между ними.Примечание: угол вводится с градусах. В программе градусы перевести в радианы, так как у функции sin(x) аргумент должен быть задан в радианах.
Написать программу на языке программирования паскаль, которая позволяет найти площадь треугольника по двум сторонам и углу между ними.Примечание: угол вводится с градусах. В программе градусы перевести в радианы, так как у функции sin(x) аргумент должен быть задан в радианах.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program TriangleArea;
var
side1, side2, angle, area: real;
function ToRadian(angle: real): real;
begin
ToRadian := angle * (pi / 180);
end;
begin
write('Enter the length of side 1: ');
readln(side1);
write('Enter the length of side 2: ');
readln(side2);
write('Enter the angle between the sides in degrees: ');
readln(angle);
angle := ToRadian(angle);
area := 0.5 side1 side2 * sin(angle);
writeln('The area of the triangle is: ', area:0:2);
end.