В равнобедренной трапеции большее основание a, средняя линия sl, боковая сторона c. Найти...

Question

В равнобедренной трапеции большее основание a, средняя линия sl, боковая сторона c. Найти меньшее основание b, площадь s, диагональ d, высоту h. sl= h и d по теореме Пифагора s= Решать через pascal

Answer 1

procedure trapezoid(a, sl, c: real; var b, S, h, d: real);

begin

 b := 2 * sl - a;

 h := Sqrt(c * c - Sqr((a - b) / 2));

 S := h * (a + b) / 2;

 d := Sqrt(sl * sl + h * h);

end;

begin

 var a := 10;

 var sl := 7;

 var c := 5;

 var b, S, h, d: real;

 trapezoid(a, sl, c, b, S, h, d);

 Print(b, S, h, d)

end.

Comments

PascalABC.NET