Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании b: [latex]S = \frac{b^{2} - a^{2}}{4} tg \alpha [/latex] Помогите составить программу. Pascal ABC.
Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании b:
[latex]S = \frac{b^{2} - a^{2}}{4} tg \alpha [/latex]
Помогите составить программу. Pascal ABC.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы