Đánh giá năng lực đầu hè miễn phí từ lớp 2 đến 9. Tham gia ngay!!
OLM Class tuyển sinh lớp zoom học hè 2026. Đăng ký ngay tại đây!!!
Ra mắt OLM Mentor - giao bài cá nhân hóa cho học sinh! Xem ngay
Ưu đãi tặng 50% gói VIP OLM đến ngày 5/6/2026. Đăng ký ngay!
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Giúp em với ạ đây là trong pascal ạ
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.
Thế còn í b ạ
Câu hỏi của bạn là gì vậy nhỉ?
❤❤
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.
Thế còn í b ạ