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 dientichtamgiac;

   var a,h,s:real;

   begin

   write (‘nhap canh day la:’);readln (a);

   write (‘nhap chieu cao la:’);readln (h);

   s:=a*h/2;

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

   readln;

   end.

   Bình luận

2. use crt;

   var a,b,c,p,S:real;

   begin

           clrscr;

           write(‘Nhap do dai ba canh cua tam giac= ‘);readln(a,b,c);

           p:=a+b+c;

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

          writeln(‘Dien tich cua tam giac la: ‘,S:5:2);

          readln;

   end.

   Bình luận