viết ct tích và đưa ra màn hình diện tích hình tam giác . biết 3 cạnh a, b và c là số nguyên được nhập từ bp

0 bình luận về “viết ct tích và đưa ra màn hình diện tích hình tam giác . biết 3 cạnh a, b và c là số nguyên được nhập từ bp”

1. Program STG;
   Uses crt;
   Var a,b,c: real;
       p,s: extended;
   Begin
           Clrscr;
           Write(‘Nhap do dai 3 canh a, b, c: ‘); Readln(a,b,c);
           p:=(a+b+c)/2;
           S:=sqrt(p*(p-a)*(p-b)*(p-c));
           Write(‘Dien tich tam giac la: ‘,s:10:2);
           Readln
   End.

   Bình luận

2. Uses crt;

   Var a,b,c,p,s:longint;

   Begin

   Clrscr; read(a,b,c);

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

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

   Write(‘Dien tich tam giac la : ‘,s);

   Readln;

   End.

   Bình luận