1: Xác định bài toán

-Input: Nhập ba cạnh của tam giác

-Output: Xác định dạng của tam giác đó

2: Viết chương trình

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

repeat  

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then    

begin      

kt:=0;      

if (a=b) and (a<>c) and (b<>c) then kt:=1;      

if (b=c) and (b<>a) and (c<>a) then kt:=1;      

if (a=c) and (a<>b) and (c<>b) then kt:=1;      

if (a=c) and (b=c) then kt:=2;      

if sqr(a)=sqr(b)+sqr(c) then kt:=3;      

if sqr(b)=sqr(a)+sqr(c) then kt:=3;      

if sqr(c)=sqr(a)+sqr(b) then kt:=3;      

if kt=0 then writeln('Day la tam giac thuong');      

if kt=1 then writeln('Day la tam giac can');      

if kt=2 then writeln('Day la tam giac deu');      

if kt=3 then writeln('Day la tam giac vuong');      

if (kt=1) and (kt=3) then writeln('Day la tam giac vuong can');    

end

else writeln('Day khong la ba canh trong mot tam giac'); readln;

end.

a = float(input("Nhap a : "))
b = float(input("Nhap b : "))
c = float(input("Nhap c : "))
if a+b>c and a+c>b and b+c>a:
    if a==b or a==c or b==c:
        if a==c==b:
            print("Day la ba canh cua tam giac deu")
        else:
            print("Day la ba canh cua tam giac can")
    elif (a**2)+(b**2)==c**2 or (a**2)+(c**2)==b**2 or (c**2)+(b**2)==a**2:
        print("Day la ba canh cua tam giac vuong")
    else:
        pass
else:
    print("Day khong phai ba canh cua tam giac")

a = float(input('Nhập cạnh thứ nhất (A): '))

b = float(input('Nhập cạnh thứ hai (B): '))

c = float(input('Nhập cạnh thứ ba (C): '))

if a == b == c:

       print('Tam giác đều')

elif a == b or b == c or c == a:

       if a*a + b*b == c*c or a*a + c*c == b*b or b*b + c*c == a*a:

              print('Tam giác vuông cân')

       else:

              print('Tam giác cân')

elif a*a + b*b == c*c or a*a + c*c == b*b or b*b + c*c == a*a:

       print('Tam giác vuông')

else:

       print('Tam giác thường')