Viết chương trình tính diện tích tam giác theo công thức sau:
S= √p(p-a)(p-b)(p-c) với p= $\frac{a+b+c}{2}$ và a,b,c là các số nguyên dương nhập từ bàn phím
Viết chương trình tính diện tích tam giác theo công thức sau: S= √p(p-a)(p-b)(p-c) với p= $\frac{a+b+c}{2}$ và a,b,c là các số nguyên dương nhập từ bà
By Jade
Program tinh_dt;
Uses crt;
Var a, b, c: byte;
S, p: real;
Begin
Writeln (Nhap 3 canh a, b, c=’);
Readln (a, b, c);
p:= (a+b+c)/2;
S:= sqrt (p*(p-a)*(p-b)*(p-c));
Writeln (‘Dien tich tam giac la:’, S:7:2);
Readln
End.
Uses crt;
Var p,a,b,c,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:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(‘Dien tich tam giac la: ‘,s:7:2);
readln
end.