Viết trương trình nhập 3 cạnh của một tam giác . Nếu thỏa mản , đưa ra kết quả CHU VI DIÊN TÍCH tam giác đó Biết :P=(a+b+c)/2 S=căn p(p-a)(p-b)(p-c)

0 bình luận về “Viết trương trình nhập 3 cạnh của một tam giác . Nếu thỏa mản , đưa ra kết quả CHU VI DIÊN TÍCH tam giác đó Biết :P=(a+b+c)/2 S=căn p(p-a)(p-b)(p-c)”

1. Program NN;
   Uses crt;
   Var a,b,c,p,s: extended;
   Begin
           Clrscr;
           Write(‘Nhap a,b,c: ‘); Readln(a,b,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: ‘,2*p:0:2);
                   Write(‘Dien tich: ‘,s:0:2);
           End
           Else Write(‘Khong phai do dai 3 canh tam giac’);
           Readln
   End.

   Bình luận