Bài 4: Bài toán và thuật toán

Nguyễn Minh Lệ

A B C D M N

Cho hình chữ nhật ABCD hay viết chương trình tính diện tích tam giác AMN. Biết AB,BC,BM tương ứng với a,b,x được nhập từ bàn phím.

Dữ liệu vào Dữ liệu ra
2 4 1 6.25

nguyễn minh
2 tháng 11 2019 lúc 21:05

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.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyen
2 tháng 11 2019 lúc 21:14

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.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Chơn Nhân
2 tháng 11 2019 lúc 21:47

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.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyen
3 tháng 11 2019 lúc 16:38

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

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Minh Lệ
2 tháng 11 2019 lúc 18:59

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)

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
2 tháng 11 2019 lúc 23:15

đâ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.

Bình luận (0)
 Khách vãng lai đã xóa
Minh Lệ
3 tháng 11 2019 lúc 8:41

A B C H M

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

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Quang Bui Thanh
Xem chi tiết
Ngưu Kim
Xem chi tiết
Quang Dũng
Xem chi tiết
Yen Phuong Duong
Xem chi tiết
39_Lê Thành Vinh
Xem chi tiết
trang
Xem chi tiết
Thảo
Xem chi tiết
Nguyễn Thị Bích Vân
Xem chi tiết
Thanh Hoá
Xem chi tiết