BÀI 6. CÂU LỆNH ĐIỀU KIỆNCÂU HỎI VÀ BÀI TẬP

10.Thuật toán:Bớc 1. Nhập ba số A, B và C. Bớc 2. Nếu A + B < C hoặc B + C < A hoặc C + A < B, thông báo A, B và Ckhông phải là ba cạnh của một tam giác và chuyển tới bớc 5. Bớc 3. Nếu A

²

+ B

²

= C hoặc B

²

+ C

²

= A

²

hoặc C

²

+ A

²

= B, thông báo A, Bvà C là ba cạnh của một tam giác vuông và chuyển tới bớc 5. Bớc 4. Nếu A = B và B = C, thông báo A, B và C là ba cạnh của một tamgiác đều; ngợc lại, nếu A = B hoặc B = C hoặc A = C, thông báo A, B và Clà ba cạnh của một tam giác cân.Bớc 5. Kết thúc thuật toán. Chơng trình Pascal:

program Sap_xep;

uses crt;

var A, B, C, X: integer;

begin

clrscr;

write('Nhap so A: '); readln(A);

write('Nhap so B: '); readln(B);

write('Nhap so C: '); readln(C);

if (A+B<C) or (B+C<A) or (A+C<B)

then writeln('Day khong la ba canh cua mot tam giac') else

if (A*A=B*B+C*C) or (B*B=A*A+C*C) or (C*C=A*A+B*B)

then writeln('Day la ba canh cua tam giac vuong') else

if (A=B) and(B=C) and (A=C)

then writeln('Day la ba canh cua tam giac deu') else

if (A=B) or (B=C) or (C=A)

then writeln('Day la ba canh cua tam giac can') else

writeln('Day chi la ba canh cua tam giac thuong');

readln;

end.