Question

Пожалуйста, срочно помогите составить блок - схему: найти S и P равнобедренной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах)

Answer 1

Var  a, b, h, k, m, s, p, alpha:real;
begin
  read(a, b, alpha);
  k:=(a-b)/2;
  h:=tan(alpha)*k;
  m:=Sqrt(sqr(k)+sqr(h));
  p:=a+b+2*m;
  s:=(a+b)*h/2;
  writeln('Высота равна: ', h);
  writeln('Боковые стороны равны: ', m);
  writeln('Периметр равен: ', p);
  writeln('Площадь равна: ', s)
end.