Question

Помогите написать в Поскале ABC

Answer 1

function ParallelogramSquare(a, b, alpha: real) := a * b * Sin(alpha);

begin

 var (a, b, x) := ReadlnReal3();

 x := DegToRad(x);

 var d1 := Sqrt(a * a + b * b - 2 * a * b * Cos(x));

 var d2 := Sqrt(2 * (a * a + b * b) - d1 * d1);

 Writeln('Площадь параллелограмма: ', ParallelogramSquare(a, b, x),

         NewLine, 'd1 = ', d1,

         NewLine, 'd2 = ', d2)

end.