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

Question

ngochuong · Answer

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.

phuongthuy · Answer

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.