Viết chương trình nhập vào 3 cạnh của tam giác. In ra tam giác vuông, tam giác cân và tam giác đều.

0 bình luận về “Viết chương trình nhập vào 3 cạnh của tam giác. In ra tam giác vuông, tam giác cân và tam giác đều.”

1. progam ban_tu_chon;

   uses crt;

   var a,b,c :real;

   BEGIN

   clrscr;

   write(‘nhap canh a thu nhat’); Read(a);

   write(‘nhap canh b thu hai:’); Readln(b);

   write(‘nhap canh c thu ba’); Readln(c);

   if (a>=b+c) or (b>=c+a) or (c>=a+b) then write(‘ba canh tren khong phai cua mot tam giac’)

   else

   if (a=b) or (b=c) or (c=a) then write(‘tam giac tren la tam giac can’);

   else

   if a=b=c then write(‘tam giac tren la tam giac deu’)

   else

   if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write(‘tam giac tren la tam giac vuong’);

   readln;

   END.

   Bình luận

2. program ct;

   uses crt;

     var a, b, c: real;

   begin

             clrscr;

             write(‘Nhap a = ‘); readln(a);

             write(‘Nhap b = ‘); readln(b);

             write(‘Nhap c = ‘); readln(c);

             if (a+b<c) of (a+c<b) of (b+c<a) then write(‘a, b, c phai la do dai 3 canh tam giac’) else

             begin

                if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then write(‘Tam giac vuong’);

                if (a=b) and (b=c) then write(‘Tam giac deu’);

                if (a=b) or (a=c) or (b=c) then write(‘Tam giac can’);

              end;

              readln

   end.

   Bình luận