Re: @))10 Tin: Nothing is impossible ^0^
nhờ kiểu đấy chẳng có chút thành ý zì, cứ như bắt người ta bắt làm ý, nhưng thôi, để tớ làm hộ cho
{...}
program fuckTuan;
var
ax,ay,bx,by,cx,cy,mx,my:integer;
test:boolean;
begin
readln(ax,ay); readln(bx,by); readln(cx,cy); readln(mx,my); {Nhap tọa độ các điểm a,b,c, m }
test:=false; {Khởi tạo điểm M ko thuộc tam giác)
{Chỉ dùng lệnh IF thì hơi rắc rối nhưng tại lão Tuấn vừa ngu vừa dở hơi nên phải làm, chứ thực ra sắp xếp vao thì sẽ dễ nhìn hơn }
if ((mx>ax) and (mx<bx)) or ((mx<ax) and (mx>bx)) or ((mx>ax) and (mx<cx)) or ((mx<ax) and (mx>cx)) or ((mx>bx) and (mx<cx)) or ((mx<cx) and (mx>bx)) then
if {Copy lại dòng trên nhưng thay x=y} then test:=true;
if test then write('M thuoc tam giac') else write('M ko thuoc tam giac');
end.
{ chúc zui zẻ }