Tin

1.BÀI TOÁN 1: NHẬP 3 SỐ A,B,C VÀ KIỂM TRA XEM ĐÓ CÓ PHẢI LÀ TAM GIÁC HAY KHÔNG. NẾU LÀ TAM GIÁC THÌ ĐÓ CÓ PHẢI LÀ TAM GIÁC ĐỀU HAY KHÔNG. NẾU LÀ TAM GIÁC ĐỀU THÌ TÍNH DIỆN TÍCH TAM GIÁC.
Bài làm
Program tamgiacms;
Uses crt;
Var
A,b,c,s:real;
Begin
Clrscr;
Write(‘Nhap a,b,c lan luot bang:’);readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then
Begin
Write(a,b,c,’la do dai cua tam giac ’);
If (a=b) and (b=c) then
Begin
writeln(‘deu’);
p:=3*a/2;
s:=sqrt(p*(p-a)*(p-a)*(p-a));
write(‘DIEN TICH TAM GIAC DEU LA:’,S:6:1);
end
else write(‘ ‘);
end
else writeln(a,b,c,’khong phai do dai 3 canh tam giac’);
readln;
end.
_lưu ý_ sprt :