Viết chương trình tính chu vi và điện tích của hình thang cân có đấy nhỏ là a đấy lớn là b (a<b) và góc nhọn là alpha(độ), dữ liệu được nhập vào từ bàn phím. Tất cả đại lượng đều là số thực

uses crt;

var a,b,h,c,alpha:real; {c la canh ben cua hinh thang can}

begin

         clrscr;

         write('Nhap a va b= '); readln(a,b);

         write('Nhap goc alpha= ');readln(alpha);

         if b<=a<0 then writeln ('Khong thoa man dieu kien la hinh thang can')

         else

              begin      

               c:=((b-a)/2)/cos(alpha); {(b-a)/2 la canh ke cua goc nhon alpha}

               h:=(b-a)/2*(sin(alpha)/cos(alpha));

               writeln('Chu vi cua hinh thang can la: ',a+b+c+c:8:2);

               writeln('Dien tich cua hinh thang can la: ',((a+b)/2)*h:8:2);

               readln;

        readln;

end.