cho trước 3 số dương a b và c( được nhập từ bàn phím) hãy vt chương trình tính diện tích của tam giác ( nếu nó là 3 cạnh của tam giác ) ngược lại
cho trước 3 số dương a b và c( được nhập từ bàn phím) hãy vt chương trình tính diện tích của tam giác ( nếu nó là 3 cạnh của tam giác ) ngược lại
program BT;
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);
if (a>0) and (b>0) and (c>0) then
if (a+b > c) and (b+c > a) and (a+c > b) then
begin
p:=(a+b+c)/2;
S:=p*(p−a)*(p−b)*(p−c);
write(‘Dien tich tam giac = ‘,sqrt(S):2:2);
end
else write(a:2:2,’, ‘,b:2:2,’, ‘,c:2:2,’ khong la 3 canh tam giac’);
readln
End.
Program BT;
uses CRT ;
Var a,b,c,s,p : real;
Begin
clrscr;
repeat
Write (‘Nhap A : ‘);Readln(a);
until a > 0;
repeat
Write (‘Nhap B : ‘);Readln(b);
until b > 0;
repeat
Write (‘Nhap C : ‘);Readln(c);
until c > 0;
If (a+b > c) and (b+c > a) and (a+c > b) then
Begin
p := (a+b+c)/2;
s := p*(p-a)*(p-b)*(p-c);
Write (‘Dien tich tam giac la : ‘,sqrt(s):2:4)
end
else Write (‘Ba canh ‘,a,’ , ‘,b,’ , ‘,c,’ khong la 3 canh cua 1 tamg giac’);
end.
Bài này sử dụng kiến thức về công thức Heron nha bạn (Có trên Wikipedia đấy )