Viết chương trình nhập 3 cạnh của 1 tam giác là ABC từ bàn phím. Kiểm tra và in ra kết quả đó là tam giác thường, tam giác vuông , tam giác cân hay tam giác đều
Viết chương trình nhập 3 cạnh của 1 tam giác là ABC từ bàn phím. Kiểm tra và in ra kết quả đó là tam giác thường, tam giác vuông , tam giác cân hay tam giác đều
progam ban_tu_chon;
uses crt;
var a,b,c :real;
BEGIN
clrscr;
write(‘nhap canh a thu nhat’); Read(a);
write(‘nhap canh b thu hai:’); Readln(b);
write(‘nhap canh c thu ba’); Readln(c);
if (a>=b+c) or (b>=c+a) or (c>=a+b) then write(‘ba canh tren khong phai cua mot tam giac’)
else
if (a=b) or (b=c) or (c=a) then write(‘tam giac tren la tam giac can’);
else
if a=b=c then write(‘tam giac tren la tam giac deu’)
else
if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write(‘tam giac tren la tam giac vuong’);
readln;
END.
Program Tamgiac;
Uses crt;
Var a,b,c: real;
Begin
Clrscr;
Write(‘Nhap do dai 3 canh: ‘); Readln(a,b,c);
If (a+b<=c) or (a+c<=b) or (b+c<=a) then Writeln(‘Khong phai tam giac’)
Else If (a=b) and (b=c) then Write(‘Tam giac deu’)
Else If (a=b) or (a=c) or (c=b) then Write(‘Tam giac can’)
Else If (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then Write(‘Tam giac vuong’);
Readln
End.