viết CT nhập vào 3 cạnh a,b,c kiểm tra xem nó là tam giác gì(tam giác thường,cân,đều,vuông cân, vuông)

0 bình luận về “viết CT nhập vào 3 cạnh a,b,c kiểm tra xem nó là tam giác gì(tam giác thường,cân,đều,vuông cân, vuông)”

1. uses crt;
   var a, b, c:integer;
   begin
   clrscr;
   textcolor (white);
   write (‘nhap canh thu nhat: ‘);
   readln (a);
   write (‘nhap canh thu hai: ‘);
   readln (b);
   write (‘nhap canh thu ba: ‘);
   readln (c);
   if (a+b>c) and (b+c>a) and (a+c>b) then
    begin
     textcolor (green);
     if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
      begin
       writeln (‘DAY LA TAM GIAC VUONG’);
       readln;
      end
     else
      if (a=b) or (b=c) or (c=a) then
      begin
       writeln (‘DAY LA TAM GIAC CAN’);
       readln;
      end
      else
       if (a=b) and (b=c) then
       begin
        writeln (‘DAY LA TAM GIAC DEU’);
        readln;
        end
       else
        begin
        if (a*a=b*b+c*c) and (b=c) or (b*b=a*a+c*c) and (c=a) or (c*c=a*a+b*b) and (a=b) then
        textcolor (green);
        writeln (‘DAY LA TAM GIAC VUONG CAN’);
      readln;
      readln;
     end;
     end
   else
    begin
     if (a+b>c) and (b+c>a) and (a+c>b) then
     writeln (‘DAY LA TAM GIAC THUONG’);
     begin
      textcolor (lightred);
      writeln (‘BA CANH NAY KHONG THE TAO THANH MOT TAM GIAC !!! VUI LONG NHAP LAI !!!’);
      readln;
     end;
     end;
   end.

   Bình luận

2. nếu a=b=c thì tam giác đều

   nếu hai cạnh bất kì bằng nhau thì cân

   nếu có góc vuông là tam giác vuông

   nếu hai cạnh bất kì bằng nhau và có góc vuông thì vuông cân

   Bình luận