TÍnh chu vi và diện tích của tam giác ABC biết chiều dài 3 cạnh của tam giác được nhập từ bàn phím . In kết qua ra màn hình
2 câu trả lời
program tam_giac;
uses crt;
var a,b,c,p,S:real;
begin
clrscr;
write('nhap canh a:'); readln(a);
write('nhap canh b:'); readln(b);
write('nhap canh c:'); readln(c);
p:=(a+b+c)/2
S:=(p*(p-a)*(p-b)*(p-c));
writeln('chu vi hinh tam giac la:',p:10:2);
writeln('dien tich hinh tam giac la:',S:10:2);
readln;
end.
program chuvi_dientich;
uses crt;
var a,b,c:real;
begin
clrscr;
write('nhap 3 canh tam giac: ');readln(a,b,c);
write('nhap chieu cao nua: ');readln(h);
writeln('chu vu: ',a+b+c);
writeln('dien tich la: ',1/2*a*h);
readln;end.
