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