Question

Xác định input ,output của bài toán viết chương trình nhập số đo thỏa mãn tính chất ba cạnh của một tam giác cho biết đó là tam giác cân ,đều ,vuông, thường

Answer 1

1: Xác định bài toán

-Input: Nhập ba cạnh của tam giác

-Output: Xác định dạng của tam giác đó

2: Viết chương trình

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

repeat  

write('Nhap a='); readln(a);  

write('Nhap b='); readln(b);  

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

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

begin      

kt:=0;      

if (a=b) and (a<>c) and (b<>c) then kt:=1;      

if (b=c) and (b<>a) and (c<>a) then kt:=1;      

if (a=c) and (a<>b) and (c<>b) then kt:=1;      

if (a=c) and (b=c) then kt:=2;      

if sqr(a)=sqr(b)+sqr(c) then kt:=3;      

if sqr(b)=sqr(a)+sqr(c) then kt:=3;      

if sqr(c)=sqr(a)+sqr(b) then kt:=3;      

if kt=0 then writeln('Day la tam giac thuong');      

if kt=1 then writeln('Day la tam giac can');      

if kt=2 then writeln('Day la tam giac deu');      

if kt=3 then writeln('Day la tam giac vuong');      

if (kt=1) and (kt=3) then writeln('Day la tam giac vuong can');    

end

else writeln('Day khong la ba canh trong mot tam giac'); readln;

end.