Question

Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании b:
$S = frac{b^{2} - a^{2}}{4} tg alpha$

Помогите составить программу. Pascal ABC.

Answer 1

Var A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('Угол при большем основании B = ');ReadLn(C);
WriteLn('S = ',(B*B-A*A)*Sin(C)/(4*Cos(C)))
End.