Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Công Tuấn

Giúp em với ạ đây là trong pascal ạ

Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:12

uses crt;

var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;

begin

clrscr;

readln(xa,ya,xb,yb,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-ac)*(p-bc));

writeln(s:4:2);

readln;

end.


Các câu hỏi tương tự
Nguyễn Công Tuấn
Xem chi tiết
Đức Kiên
Xem chi tiết
Hồ Thị Huyền Trang
Xem chi tiết
Lờ Hờ Tờ
Xem chi tiết
katherine garcia
Xem chi tiết
hang viet
Xem chi tiết
Trường
Xem chi tiết
Trường
Xem chi tiết
Hoài thịnh
Xem chi tiết