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

sl=

h и d по теореме Пифагора

s=

Решать через pascal

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.