viết chương trình nhập 3 số a b c của một tam giác .Đưa ra màn hình chu vi và diện tích tam giác

0 bình luận về “viết chương trình nhập 3 số a b c của một tam giác .Đưa ra màn hình chu vi và diện tích tam giác”

1. uses crt;

   var a,b,c:integer;

   p:real;

   begin

   clrscr;

   write(‘nhap a:’);readln(a);

   write(‘nhap b:’);readln(b);

   write(‘nhap c:’);readln(c);

   clrscr;

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

   writeln(‘Chu vi hinh tam giac la: ‘,a+b+c);

   write(‘Dien tich hinh tam giac la: ,sqrt(p*(p-a)*(p-b)*(p-c)):0:2);

   readln;

   end.

   Bình luận

2. Program TamGiac;
   Uses crt;
   Var a, b, c, s, p: extended;

   Begin
           Clrscr;
           Write(‘Nhap do dai 3 canh: ‘); Readln(a, b, c);
           p := (a + b + c) / 2;
           s := sqrt(p * (p – a) * (p – b) * (p- c));
           Writeln(‘Chu vi = ‘,p * 2 : 0 : 2);
           Write(‘Dien tich = ‘,s :0 : 2);
           Readln
   End.

   Bình luận