Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании...

0 голосов
313 просмотров

Найти площадь равнобедренной трапеции с основаниями a и b и углом α при большем основании a:
Помогите составить программу. Pascal ABC.


Информатика (15 баллов) | 313 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var a,b,q:integer;
s,h:real;
begin
clrscr;
writeln('Введите основания');
readln(a,b);
writeln('Введите угол в градусах');
readln(q);
h:=(abs(a-b)/2)*sin(q*pi/180)/cos(q*pi/180);
s:=((a+b)*h)/2;
writeln('Площадь=',s:1:2);
readkey;
readln;
end.

(840 баллов)