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 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 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
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.