Question

Viết chương trình nhập ba cạnh a,b,c kiểu số thực. Kiển tra xem có phải là độ dài ba cạnh của Tam giác đều ko.

Cần best Tin Học chỉ mai em thi r cảm ơn ạ

Answer 1

Var a,b,c,cv,dt,p:real;
Begin
write(' Nhap a=');readln(a);
write(' Nhap b=');readln(b);
write(' Nhap c=');readln(c);
if (a+b)<=c or (a+c)<=b or (b+c)>a then
write(' A,b,c khong phai 3 canh tam giac')
else write('a,b,c la 3 canh tam giac');
cv:=a+b+c;
p:=cv/2;
dt:sqrt((P*(P-a)*(P-b)*(P-c));
write(' Dien tich tam giac',Dt:7:3);
write(' Chu vi tam giac:', Cv:7:3);
readln;
End.

NẾU TAM GIÁC CÓ ĐỘ DÀI LẦN LƯỢT LÀ 1 2 3 THI LÀ TAM GIAC VUÔNG
XEM CÔNG THỨC MÀ TÍNH

Gõ vào rồi kiểm tra kết quả xem ha. Chúc thành công!

Answer 2

Program bai1;

uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c: ');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
write('3 canh vua nhap la tam giac');

writeln;
if(a=b)and(b=c) then
write('tam giac deu ');

writeln;
end
else
write('3 canh vua nhap ko phai la tam giac');
readln;
end.