洛谷P1355 神秘大三角

题目描述

判断一个点与已知三角形的位置关系。

输入输出格式

输入格式：
前三行：每行一个坐标，表示该三角形的三个顶点

第四行：一个点的坐标，试判断该点与前三个点围成三角形的位置关系

(详见样例)

所有坐标值均为整数。

输出格式：
若点在三角形内（不含边界），输出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.