题目描述
判断一个点与已知三角形的位置关系。
输入输出格式
输入格式:
前三行:每行一个坐标,表示该三角形的三个顶点
第四行:一个点的坐标,试判断该点与前三个点围成三角形的位置关系
(详见样例)
所有坐标值均为整数。
输出格式:
若点在三角形内(不含边界),输出1;
若点在三角形外(不含边界),输出2;
若点在三角形边界上(不含顶点),输出3;
若点在三角形顶点上,输出4。
输入输出样例
输入样例#1:
(0,0)
(3,0)
(0,3)
(1,1)
输出样例#1:
1
说明
【数据规模与约定】
对于100%数据,0<=所有点的横、纵坐标<=100
做法:每个条件逐一判断就好了,判断在不在点上,在利用叉积公式同时判断在不在线段上和线段外,最后如果都不是就是线段内了,代码比较暴力纯朴。。其实可以优化一点的。。。
代码如下:
var
s1,s2,s3,s4,s:string;
x1,x2,x3,x4,y1,y2,y3,y4,i,j,b,m:longint;
function pd(x,y,x1,y1,x2,y2:longint):boolean;
var max,min:longint;
begin
if x1>x2 then begin max:=x1; min:=x2; end
else begin max:=x2; min:=x1; end;
if (x>max)or(x<min) then exit(false);
if y1>y2 then begin max:=y1; min:=y2; end
else begin max:=y2; min:=y1; end;
if (y>max)or(y<min) then exit(false);
exit(true);
end;
begin
readln(s1);
readln(s2);
readln(s3);
readln(s4);
for i:=1 to pos(',',s1) do
if s1[i] in ['0'..'9'] then s:=s+s1[i];
val(s,x1);
s:='';
for i:=pos(',',s1)+1 to length(s1) do
if s1[i] in ['0'..'9'] then s:=s+s1[i];
val(s,y1);
s:='';
for i:=1 to pos(',',s2) do
if s2[i] in ['0'..'9'] then s:=s+s2[i];
val(s,x2);
s:='';
for i:=pos(',',s2)+1 to length(s2) do
if s2[i] in ['0'..'9'] then s:=s+s2[i];
val(s,y2);
s:='';
for i:=1 to pos(',',s3) do
if s3[i] in ['0'..'9'] then s:=s+s3[i];
val(s,x3);
s:='';
for i:=pos(',',s3) to length(s3) do
if s3[i] in ['0'..'9'] then s:=s+s3[i];
val(s,y3);
s:='';
for i:=1 to pos(',',s4) do
if s4[i] in ['0'..'9'] then s:=s+s4[i];
val(s,x4);
s:='';
for i:=pos(',',s4) to length(s4) do
if s4[i] in ['0'..'9'] then s:=s+s4[i];
val(s,y4);
if (x1=x4)and(y1=y4) then begin writeln(4); halt; end;
if (x2=x4)and(y2=y4) then begin writeln(4); halt; end;
if (x3=x4)and(y3=y4) then begin writeln(4); halt; end;
if ((x4-x2)*(y1-y2)-(x1-x2)*(y4-y2)=0)and(pd(x4,y4,x1,y1,x2,y2)) then begin writeln(3); halt; end;
if ((x4-x3)*(y2-y3)-(x2-x3)*(y4-y3)=0)and(pd(x4,y4,x2,y2,x3,y3)) then begin writeln(3); halt; end;
if ((x4-x1)*(y3-y1)-(x3-x1)*(y4-y1)=0)and(pd(x4,y4,x3,y3,x1,y1)) then begin writeln(3); halt; end;
m:=(x1-x4)*(y2-y4)-(x2-x4)*(y1-y4);
if m>0 then m:=1 else m:=-1;
b:=(x2-x4)*(y3-y4)-(x3-x4)*(y2-y4);
if b>0 then b:=1 else b:=-1;
if b<>m then begin writeln(2); halt; end;
b:=(x3-x4)*(y1-y4)-(x1-x4)*(y3-y4);
if b>0 then b:=1 else b:=-1;
if b<>m then begin writeln(2); halt; end;
writeln(1);
end.