Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var x1, y1, x2, y2, x3, y3, a, b, c : real;
begin
clrscr;
write('Nhap toa do x1, y1 = ');
readln(x1, y1);
write('Nhap toa do x2, y2 = ');
readln(x2, y2);
write('Nhap toa do x3, y3 = ');
readln(x3, y3);
a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
b := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
c := sqrt(sqr(x3 - x1) + sqr(y3 - y1));
x1 := (a + b + c) / 2;
x2 := sqrt(x1 * (x1 - a) * (x1 - b) * (x1 - c));
write('Dien tich tam giac = ', x2 : 0 : 2);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin