var a,b,x,s: real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('x='); readln(x);
s:=a*b-((a*x/2)+(x*(b-x)/2)+(b*(a-x)/2));
write('dien tich tam giac AMN la:',s);
readln;
end.
var a,b,x,dientich: real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('x='); readln(x);
dientich:=a*b-((a*x/2)+(x*(b-x)/2)+(b*(a-x)/2));
write('dien tich tam giac AMN la:',dientich :2:10);
readln;
end.
var a,b,x:longint;
s:real;
begin
readln(a,b,x);
s:=a*b;
s:=s-a*x/2;
s:=s-x*(b-x)/2;
s:=s-b*(a-x)/2;
write(s:0:2);
readln;
end.
Var AB,AC,BC,AH,AM,MH,s: integer
Begin
writeln('Hay nhap AB:');
readln(AB(;
Writeln('Hay nhap BC:');
Readln(BC);
Writeln('Hay nhap AC:');
Readln(AC);
AM:=BC/2;
AH:=AC*AB/BC;
MH:=sqrt(AM^2-AH^2);
s:=AH*HM/2;
Writeln('Dien tich AMH la:',s:2:10);
readln;
end.
#Walker
Mình sẽ tặng 2GP+ thẻ điện thoại 10k cho bạn có câu trả lời đúng + tối ưu nhất . (Hạn cuối *5/11/2019)
đây mới là đúng nhất nè
uses crt;
var a,b,x,cn,cm,ad,dc,dn:integer;
nm,am,an,p,s:real;
begin
clrscr;
write('nhap do dai canh AB:'); readln(a);
write('nhap do dai canh BC:'); readln(b);
write('nhap do dai canh BM:'); readln(x);
cn:=x;
cm:=b-x;
nm:=sqrt(sqr(cm)+sqr(cn));
am:=sqrt(sqr(a)+sqr(x));
ad:=b;
dc:=a;
dn:=dc-cn;
an:=sqrt(sqr(ad)+sqr(dn));
if (an+am>nm) and (an+nm>am) and (am+nm>an) then
begin
p:=(an+am+nm)/2;
s:=sqrt(p*(p-an)*(p-am)*(p-nm));
writeln('dien tich tam giac AMN la: ',s:4:2);
end
else writeln('day khong phai la 3 canh cua tam giac AMN');
readln;
end.
Cho AM là trung tuyến của đoạn thẳng BC, (AB,BC,AC được nhập từ bàn phím). Tính diện tích của tam giác AMH