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

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

1. Uses crt;

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

   Begin

         Clrscr;

         Write(‘Nhap a = ‘); readln(a);

         Write(‘Nhap b = ‘); readln(b);

         Write(‘Nhap c = ‘); readln(c);

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

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

         Writeln(‘Dien tich la: ‘,s:7:2);

   Readln

   End.

   Bình luận

2. program s_tam_giac;

   uses crt;

   var a, h, s :real;

   begin

   writeln(‘nhap do dai canh day va chieu cao tam giac: ‘);

   readln(a, h);

   s :=0.5*h*a;

   writeln(‘dien tich tam giac la : ‘, s:8:2, ‘m2’);

   readln;

   End.

   Bình luận