Question

Viết chương trình nhập vào ba số thực a b c kiểm tra xem ABC có phải chiều dài của ba cạnh tam giác không Nếu không phải thì kiểm tra A B C không phải là chiều dài của ba cạnh tam giác Nếu thỏa mãn là chiều dài 3 cảnh thì tính và thoing báo ra màn hình chu vi, diện tích của 3 tam giác ?

Answer 1

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

readln(a,b,c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then 

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi la: ',2*p:4:2);

writeln('Dien tich la: ',s:4:2);

end

else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');

readln;

end.