Viết chương trình tính diện tích tam giác có 3 cạnh là :a,b,c ( được nhập từ bàn phím )
a, hướng dẫn
-Nhập 3 cạnh c ủatam giác vào biến a,b,c
-Nửa chu vi của tam giác p=(a+b+c)/2
– diện tích của tam giác :s =Căn bậc p(p-a)(p-b)(p-c)
Viết chương trình tính diện tích tam giác có 3 cạnh là :a,b,c ( được nhập từ bàn phím )
a, hướng dẫn
-Nhập 3 cạnh c ủatam giác vào biến a,b,c
-Nửa chu vi của tam giác p=(a+b+c)/2
– diện tích của tam giác :s =Căn bậc p(p-a)(p-b)(p-c)
Uses crt;
Var a, b, c, p, s: real;
Begin
Clrscr;
Write(‘Nhap lan luot 3 canh cua tam giac: ‘); readln(a, b, c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(‘Dien tich cua tam giac la: ‘,s:8:2);
readln
end.
uses crt;
var a, b, c, p, s: 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 tam giac la: ‘, s);
readln
end.