- Ý tưởng thuật toán.

Xét các trường hợp của a, b và c:

- Nếu a>0 và b>0 và c>0 và (a+b>c) và (b+c>a) và (a+b>c) thì kết luận phương trình có vô số nghiệm

- Nếu a=0 và b <>0 thì kết luận phương trình vô nghiệm

- Nếu a<> 0 thì kết luận phương trình có nghiệm x=-b/a

- Thuật toán.

            - Bước 1: Nhập a và nhập b

            - Bước 2: Kiểm tra các trường hợp của a và b

              + Nếu a=0 và b=0 thì kết luận phương trình có vô số nghiệm

              + Nếu a=0 và b <>0 thì kết luận phương trình vô nghiệm

                        + Nếu a<> 0 thì kết luận phương trình có nghiệm x=-b/a

            - Bước 3: Đưa ra kết luận rồi kết thúc.

- Chương trình nguồn.

Program Xet_Tamgiac;

Var a,b,c:integer;

Begin

     write('nhap a,b,c:');

     readln(a,b,c);

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

        if (a=b) and (b=c) then writeln('la tam giac deu')

        else

            if (a=b) or (b=c) or (a=c) then writeln('la tam giac can')

            else writeln('la tam giac thuong')

     else writeln('khong la 3 canh cua tam giac');

     readln;

End.