profile
Опубликовано 6 лет назад по предмету Информатика от Stas212

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

  1. Ответ
    Ответ дан iolandavalerypad353

    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.

Самые новые вопросы