Предмет: Информатика,
автор: Holop111
Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании b:
Помогите составить программу. Pascal ABC.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: faridaaaaa06
Предмет: Математика,
автор: asimovaa09
Предмет: Русский язык,
автор: armenakvardanyan222
Предмет: Геометрия,
автор: avdeevaKaty
Предмет: Алгебра,
автор: ArinkaPa