Viết chương trình tính diện tích tam giác theo công thức sau: S= √p(p-a)(p-b)(p-c) với p= $\frac{a+b+c}{2}$ và a,b,c là các số nguyên dương nhập từ bà

0 bình luận về “Viết chương trình tính diện tích tam giác theo công thức sau: S= √p(p-a)(p-b)(p-c) với p= $\frac{a+b+c}{2}$ và a,b,c là các số nguyên dương nhập từ bà”

1. Program tinh_dt;

   Uses crt;

   Var a, b, c: byte;

          S, p: real;

   Begin 

   Writeln (Nhap 3 canh a, b, c=’); 

   Readln (a, b, c);

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

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

   Writeln (‘Dien tich tam giac la:’, S:7:2);

   Readln 

   End.

   Bình luận

2. Uses crt;
   Var p,a,b,c,s: real;
   Begin
   Clrscr;
   Write(‘Nhap canh a = ‘); readln(a);
   Write(‘Nhap canh b = ‘); readln(b);
   Write(‘Nhap canh c = ‘); readln(c);
   p:=(a+b+c)/2;
   s:=sqrt(p*(p-a)*(p-b)*(p-c));
   Writeln(‘Dien tich tam giac la: ‘,s:7:2);
   readln
   end.

   Bình luận