Lập trình pascal Tam giác vuông ABC (Â=900) 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 của tam giác. b. Tính diện tích tam giác ABC.
1 câu trả lời
Uses crt;
Var AB,AH,BH,CH:real;
Begin
clrscr;
write('nhap so BH :');
readln(BH);
write('nhap so CH :');
readln(CH);
AB:=sqrt(BH*(BH+CH));
writeln('AB= ',AB:0:2);
AH:=sqrt(BH*CH);
writeln('S= ',AH*(BH+CH)*1/2:0:2);
readln;
End.
Câu hỏi trong lớp
Xem thêm