BT1: Nhập vào ba số a, b, c bất kì. Hãy viết chương trình kiểm tra xem nó có thể là độ dài ba cạnh của tam giác hay không, nếu không thì in ra màn hình 'Khong la ba canh cua mot tam giac'. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.
-Xác định bài toán vs viết thuật toán.
Mn cứu e với ạ 🆘
-Xác định bài toán vs viết thuật toán.
Mn cứu e với ạ 🆘
Quảng cáo
1 câu trả lời 640
Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;
Writeln(‘BAI TOAN TAM GIAC:’); Writeln('———————————');
Write('nhap a =');
readln(a);
Write ('nhap b =');
readln(b); Write('nhap c =');
readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Chu vi tam giac:',2*p:4:2);
Writeln('Dien tich tam giac:',s:4:2);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac') ;
Readln;
End
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86252
Gửi báo cáo thành công!
