Lập trình chương trình xác định loại tam giác trong Pascal

Question

Cho tam giác ABC. Lập chương trình Pascal tên là PHAN_LOAI_TG.pas sao cho sau khi nhập độ dài AB, BC, AC thì xác định loại tam giác ABC là một trong các trong tam giác ở bảng dưới đây  

Tam giác đều	Tam giác gồm có ba cạnh bằng nhau
Tam giác cân	Tam giác có hai cạnh bất kì bằng nhau
Tam giác vuông	Tam giác có bình phương một cạnh bất kì bằng tổng bình phương hai cạnh còn lại
Tam giác vuông cân	Tam giác gồm có hai cạnh góc vuông bằng nhau
Tam giác thường	Tam giác không có tính chất nào như trên (Không có góc vuông, ba cạnh có độ dài khác nhau)

 

 

Answer 1

Program PHAN_LOAI_TG;

Uses Crt;

Var AB,BC,AC: integer;

Begin

Clrscr;

Readln(AB);

Readln(BC);

Readln(AC);

If (AB=BC) and (BC=AC) and (AC=AB) then writeln('Tam giac ABC la tam giac deu');

else if (AB=BC) or (BC=AC) or (AC=AB) then writeln('Tam giac ABC la tam giac can');

else if ((AB*AB+BC*BC)=AC) or ((BC*BC+AC*AC)=AB) or ((AC*AC+AB*AB)=BC) then writeln('Tam giac ABC la tam giac vuong');

else if ((AB*AB+BC*BC)=AC) and (AB=BC) or ((BC*BC+AC*AC)=AB) and (BC=AC) or ((AC*AC+AB*AB)=BC) and (AC=AB) then writeln('Tam giac ABC la tam giac vuong can');

else writeln('Tam giac ABC la tam giac thuong');

Readln;

End.

Comments

Bạn làm rõ hơn cho mình ở phần điều kiện sau IF được không? Mình thấy chương trình hơi bị rối

Answer 2

Program PHAN_LOAI_TG;
Uses Crt;
Var AB,BC,AC: integer;
Begin
Clrscr;

Readln(AB);
Readln(BC);
Readln(AC);
If (AB=BC) and (BC=AC) and (AC=AB) then writeln('Tam giac ABC la tam giac deu');
else if (AB=BC) or (BC=AC) or (AC=AB) then writeln('Tam giac ABC la tam giac can');
else if ((AB*AB+BC*BC)=AC) or ((BC*BC+AC*AC)=AB) or ((AC*AC+AB*AB)=BC) then writeln('Tam giac ABC la tam giac vuông)
else if ((AB*AB+BC*BC)=AC) and (AB=BC) or ((BC*BC+AC*AC)=AB) and (BC=AC) or ((AC*AC+AB*AB)=BC) and (AC=AB) then writeln('Tam giac ABC la tam giac vuong can');
else writeln('Tam giac ABC la tam giac thuong');
Readln;

Comments

Bạn làm rõ hơn cho mình ở phần điều kiện sau IF được không? Mình thấy chương trình hơi bị rối