Viết chương trình nhập vào ba cạnh của tam giac,kiem tra và đưa ra màn hình:tam giác thường,tam giác cân,tam giác đều,tứ giác

0 bình luận về “Viết chương trình nhập vào ba cạnh của tam giac,kiem tra và đưa ra màn hình:tam giác thường,tam giác cân,tam giác đều,tứ giác”

1. Program BTT;
   Uses crt;
   Var a,b,c: real;
   Begin
           Clrscr;
           Write(‘Nhap a,b,c: ‘); Readln(a,b,c);
           If (a+b>c) and (b+c>a) and (a+c>b) then
           Begin
                   If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then Write(‘Tam giac vuong’)
                   Else If (a=b) or (b=c) or (c=a) then Write(‘Tam giac can’)
                   Else If (a=b) and (b=c) then Write(‘Tam giac deu’)
                   Else Write(‘Tam giac thuong’);
           End

           Else Write(‘Khong phai tam giac’);
           Readln
   End.

   Bình luận