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

Rác Của Thiên Tài

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

Nguyễn Lê Phước Thịnh
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ự
Huuthuong
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
nguyễn thị cẩm tiên
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
hang viet
Xem chi tiết
Yến Ngọc
Xem chi tiết
Nguyễn Triệu Nhật Khánh
Xem chi tiết
Kiều Oanh
Xem chi tiết
trần duy hiếu
Xem chi tiết