Viết chương trình tính diện tích tam giác

0 bình luận về “Viết chương trình tính diện tích tam giác”

1. Program Dien_tich_tam_giac;
   Uses Crt;
   Var
      a,b,c:Integer;
      p,s:Real;
   Begin
      Clrscr;
      Writeln(‘DIEN TICH TAM GIAC’);
      Writeln(‘——————‘);
      Write(‘-Nhap so thu nhat: ‘);
      Readln(a);
      Write(‘-Nhap so thu hai : ‘);
      Readln(b);
      Write(‘-Nhap so thu ba  : ‘);
      Readln(c);
      If (a+b>c) And (b+c>a) And (c+a>b) Then
    Begin
       Writeln(‘+Dung la Tam giac’);
   p:=0.5*(a+b+c);
    s:=Sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln(‘+Dien tich= ‘,s:10:2);
   End.
      Else
    Writeln(‘+Khong phai la Tam giac’);
   Writeln;
      Writeln(‘   Bam phim <Enter> de ket thuc’);
      Readln;
   End.

   Bình luận

2. Program giangtri14112007;

   Uses crt;

   Var a,h,S:real;

   Begin

   Write (‘Chieu cao la ‘);

   Readln (h);

   Write (‘Canh:’);

   Readln (a);

   S:=(1/2)*(a*h);

   Writeln (‘Dien tich tam giac’,S);

   Readln;

   End.

   Bình luận