Viết chương trình tính chu vi và diện tích của hình thang

0 bình luận về “Viết chương trình tính chu vi và diện tích của hình thang”

1. Là 24 chia 42 từ đó tự tính vote sao đi mấy sao cũng dc

   Bình luận

2. Program CVDT;
   Uses crt;
   Var a,b,c,d,e: real;  k:byte;
   Begin
           Clrscr;
           Write(‘Nhap k (1-2): ‘); Readln(k);
           If k=1 then
           Begin
                   Write(‘Nhap do dai 2 day: ‘); Readln(a,b);
                   Write(‘Nhap do dai 2 canh ben: ‘); Readln(c,d);
                   Write(‘Nhap chieu cao: ‘); Readln(e);
                   Write(‘Chu vi la: ‘,a+b+c+d:5:2);
                   Writeln;
                   Write(‘Dien tich la: ‘,(a+b)*e/2:5:2);
           End
           Else
           Begin
                   Write(‘Nhap do dai ban kinh: ‘); Readln(a);
                   Write(‘Chu vi la: ‘,a*2*3.14:5:2);
                   Writeln;
                   Write(‘Dien tich la: ‘,a*a*3.14:5:2);
           End;
           Readln
   End.

   Bình luận