Nguyễn Kim
Hỏi từ APP VIETJACK
Hãy tính chu vi và diện tích của hình tam giác việc tính toán chỉ được tiến hành khi đã kiểm tra input có giá trị dương
Quảng cáo
1 câu trả lời 442
Program Hotboy ;
Uses crt;
Var a,b,c,p,S: real;
Begin
clrscr;
Write('Nhap canh a:');
readln(a);
Write('Nhap canh b:');
readln(b);
Write('Nhap canh c:');
readln(c);
if ( (a>0) and (b>0) and (c>0)) then
begin
p:=(a+b+c)/2;
S:= sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Dien tich hinh tam giac la',s:5:3);
Writeln('chu vi cua hinh tam giac la',p*2 :5:3);
end
else
Write('3 canh vua nhap khong phai 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
55463 -
Đã trả lời bởi chuyên gia
31395 -
Đã trả lời bởi chuyên gia
29941
Gửi báo cáo thành công!
