Question

Написать программу на языке программирования паскаль, которая позволяет найти площадь треугольника по двум сторонам и углу между ними. Примечание: угол вводится с градусах. В программе градусы перевести в радианы, так как у функции sin(x) аргумент должен быть задан в радианах.​

Answer 1

Ответ:

Объяснение:

Program treugolnik;

var a,b,c,S:real;

begin

Writeln('Введите две стороны (в см) и угол (в градусах)');

Readln(a,b,c);

c:=(c*3.14)/180;

S:=a*b*sin(c);

Writeln('Площадь треугольника равна - ',S:0:2,' см');

end.

Answer 2

Конечно! Вот пример программы на языке программирования Паскаль, которая вычисляет площадь треугольника по двум сторонам и углу между ними:

pascalCopy code
program CalculateTriangleArea;
uses Math;

var
  side1, side2, angle_deg, angle_rad, area: real;

begin
  // Ввод сторон и угла
  writeln('Введите значение первой стороны треугольника: ');
  readln(side1);

  writeln('Введите значение второй стороны треугольника: ');
  readln(side2);

  writeln('Введите значение угла между сторонами (в градусах): ');
  readln(angle_deg);

  // Перевод угла из градусов в радианы
  angle_rad := DegToRad(angle_deg);

  // Вычисление площади треугольника
  area := 0.5 * side1 * side2 * Sin(angle_rad);

  // Вывод результата
  writeln('Площадь треугольника: ', area:0:2);
  readln;
end.

Программа запрашивает у пользователя значения двух сторон треугольника и угол между ними. Затем она переводит угол из градусов в радианы с помощью функции DegToRad из модуля Math. Далее программа вычисляет площадь треугольника, используя формулу 0.5 * side1 * side2 * Sin(angle_rad), где side1 и side2 - длины сторон треугольника, angle_rad - угол в радианах. Результат выводится на экран.

Обратите внимание, что в этом примере используется встроенная функция Sin из модуля Math для вычисления синуса угла.