NẾU LÀ TAM GIÁC THÌ ĐÓ CÓ PHẢI LÀ TAM GIÁC ĐỀU HAY KHÔNG.[r]
(1)1.BÀI TOÁN 1: NHẬP 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 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 dai canh tam giac’); readln;
end