Bài 6: Cho tam giác ABC vuông tại A. Biết AC=3,AB=4.Viết chương trình Pascal tính: a. Độ dài cạnh huyền BC. b. Đường cao AH c. SinB và CotanC d. Diện tích tam giác ABH
1 câu trả lời
var ab,ac,bc,ah,sinb,cotc,sabh,tanb,ans,aa,b,c:extended;
begin
ab := 4;
ac := 3;
ans := sqr(ab)+sqr(ac);
bc:= sqrt(ans);
b:=sqr(ac) / bc;
c:=sqr(ab) / bc;
aa:=b*c;
ah := sqrt(aa);
sinb:=ac/bc;
tanb:=ac/ab;
cotc := tanb;
sabh:=(ah*c) / 2;
writeln('a. do dai canh huyen = ',bc:0:2);
writeln('b. duong cao = ',ah:0:2);
writeln('c. sinb = ',sinb:0:2);
writeln('c. cotc = ',cotc:0:2);
writeln('d. dien tich tam giac ABH = ',sabh:0:2);
readln;
end.
