Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=100). Hãy đưa ra màn hình thông báo đó có phải là số đo 3 cạnh của 1 tam giác không, nếu đó là số đo 3 cạnh của 1 tam giác thì tam giác đó là tam giác gì? (tam giác đều, tam giác cân, tam giác vuông, tam giác vuông cân, tam giác thường)
program Tam_giac;
uses crt;
var a,b,c:integer;
begin
readln(a,b,c);
if (a+b>c) and (b+c>a) and (c+a>b)
then if (a=b) and (b=c)
then writeln(‘La tam giac deu’)
else if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)
then writeln(‘La tam giac vuong can’)
else writeln(‘La tam giac vuong’)
else if (a=b) or (b=c) or (c=a)
then writeln(‘La tam giac can’)
else writeln(‘Tam giac thuong’)
else writeln(‘Khong phai la tam giac’);
readln
end.
uses crt;
var a,b,c:integer;
begin
write(‘Nhap 3 canh tam giac: ‘); readln(a,b,c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
begin
writeln(‘3 canh vua nhap la 3 canh tam giac’);
if (a=b) and (b=a) then write(‘Tam giac deu’)
else if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then write(‘Tam giac vuong’)
else if (a=b) or (b=c) or (c=a) then write(‘Tam giac can’)
else if (sqr(a)=sqr(b)+sqr(c)) and (a=b) or (sqr(b)=sqr(a)+sqr(c)) and (b=c) or (sqr(c)=sqr(a)+sqr(b)) and (c=a) then write(‘Tam giac vuong can’)
else write(‘Tam giac thuong’)
end
else begin
write(‘3 canh vua nhap khong phai 3 canh tam giac’);
end;
readln;
end.