hãy viết chương trình nhập dữ liêu sau. nhập từ bàn phím 3 số thực a,b,c -yêu cầu 1:nếu a,b,c là các số dương thì kiểm tra xem 3 số a,b,c có là độ dài của 3 cạnh của một tam giác hay không -yêu cầu 2:trong trường hợp a,b,c là độ dài 3 cạnh của tam giác,chương trình cần thông báo đó là tam giác thường,cân,vuông hay đều -yêu cầu 3:trường hợp đó là tam giác vuông hoặc đều hãy tính diện tích của nó
uses crt;
var a, b, c:integer;
s:real;
begin
clrscr;
textcolor (white);
write (‘nhap canh thu nhat: ‘);
readln (a);
write (‘nhap canh thu hai: ‘);
readln (b);
write (‘nhap canh thu ba: ‘);
readln (c);
if (a+b>c) and (b+c>a) and (a+c>b) then
begin
textcolor (green);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
begin
writeln (‘DAY LA TAM GIAC VUONG’);
s:=(a*b)/2;
writeln (‘dien tich: ‘,s:1:2);
readln;
end
else
if (a=b) or (b=c) or (c=a) then
begin
writeln (‘DAY LA TAM GIAC CAN’);
readln;
end
else
if (a=b) and (b=c) then
begin
writeln (‘DAY LA TAM GIAC DEU’);
s:=a*a*(sqrt(3)/4);
writeln (‘dien tich la: ‘,s:1:2);
readln;
end
else
begin
if (a*a=b*b+c*c) and (b=c) or (b*b=a*a+c*c) and (c=a) or (c*c=a*a+b*b) and (a=b) then
textcolor (green);
writeln (‘DAY LA TAM GIAC VUONG CAN’);
readln;
readln;
end;
end
else
begin
if (a+b>c) and (b+c>a) and (a+c>b) then
writeln (‘DAY LA TAM GIAC THUONG’);
begin
textcolor (lightred);
writeln (‘BA CANH NAY KHONG THE TAO THANH MOT TAM GIAC !!!’);
readln;
end;
end;
end.
program btsydn;
uses crt;
var a, b, c, h: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
write(‘Nhap c = ‘); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write(‘a, b, c la do dai 3 canh cua 1 tam giac’);
if (a*a+b*b=c*c) or (a*a+c*c=b*c) or (b*b+c*c=a*a) then
begin
write(‘Tam giac vuong’);
write(‘Nhap chieu cao tuong ung: ‘); readln(h);
write(‘Dien tich tam giac nay la: ‘, a*h/2);
end
else
begin
if (a=b) and (a=c) then
begin
write(‘Tam giac deu’);
write(‘Dien tich tam giac nay la: ‘, a*a*((sqrt(3))/4));
end
else
begin
if (a=b) or (a=c) or (b=c) then write(‘Tam giac can’) else
write(‘Tam giac thuong’);
end;
end;
end
else write(‘a, b, c khong phai do dai 3 canh cua 1 tam giac’);
end;
readln
end.