tam giác vuông ABC (A=90) có AH là đường cao.Viết chương trình cho phép nhập BH và CH từ bàn phím rồi thực hiện
a. tính cạnh AB
b. tính diện tích tam giác ABC
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Tham khảo!
program Dien_tich_hinh_tam_giac;
uses crt;
var a,h : integer
S: real
begin:
clrscr;
Writeln(‘a= ‘); Readln(a);
Writeln(‘h= ‘); Readln(h);
S:= (a*h)/2
Writeln( Dien tich hinh tam giac co do dai 1 canh va chieu cao vua nhap la S= ‘,S);
Readln
end.
uses crt;
var a,b,c,p,s,am,bn,cp:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Day la ba canh trong mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac la: ',s:4:2);
am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;
bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;
cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;
writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);
writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);
writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
AB=21/(3+4)x3=9 cm
AC=21-9=12cm
Tự kẻ hình bạn nhé =)))
Áp dụng định lí Pitago vào tam giác ABC , có
AB^2+AC^2=BC^2
=>thay số vào, tính được BC=15cm
Áp dụng hệ thức giữa cạnh và đường cao trong tg vuông, có:
AB^2=BHxBC
=>BH=81/15=5.4cm
=>CH=15-5.4=9.6cm
AH^2=BHxCH=5.4x9.6=51.84cm
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:4:2);
readln;
end.
chỉ cần thuật toán thôi