Bài 6: Phép toán, biểu thức, câu lệnh gán

RT

Lập trình nhập từ bàn phím các số thực (Xa,Ya), (Xb,Yb), (Xc,Yc) là toạ độ các đỉnh A, B, C của tam giác ABC. Tính và đưa ra màn hình diện tích tam giác theo công thức Hê- rông:S =sqrt(p-a)(p-b)(p-c) trong đó a, b,c là độ dài các cạnh tam giác và p=(a+b+c)/2

NT
18 tháng 10 2020 lúc 20:29

uses crt;
var xa,ya,xb,yb,xc,yc,p,s,ab,ac,bc:real;
begin
clrscr;
write('Nhap toa do diem A:'); readln(xa,ya);
write('Nhap toa do diem B:'); readln(xb,yb);
write('Nhap toa do diem C:'); readln(xc,yc);
ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln('Dien tich tam giac la: ',s:4:2);
readln;
end.

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

Các câu hỏi tương tự
H24
Xem chi tiết
NT
Xem chi tiết
NT
Xem chi tiết
NT
Xem chi tiết
HV
Xem chi tiết
YN
Xem chi tiết
NK
Xem chi tiết
KO
Xem chi tiết
TH
Xem chi tiết