[SGU]124. Broken line

Analysis

    判断一个点是否在一个多边形之内。这个多边形不一定是凸多边形,但是所有的边都平行于坐标轴,那么从要判断的点做一条射线,判断与多边形的交点个数是否为奇数即可。我是从该点沿y轴正方向做一条射线,判断相交时注意端点的情况。

Accepted Code

type
    point=record
        x,y:longint;
    end;

var
    p:array[1..10000,1..2] of point;
    k:point;
    count,i,n:longint;

procedure swap(var a,b:longint);
var
    tmp:longint;
begin
    tmp:=a;
    a:=b;
    b:=tmp;
end;

begin
    readln(n);
    for i:=1 to n do
    begin
        readln(p[i,1].x,p[i,1].y,p[i,2].x,p[i,2].y);
        if p[i,2].x<p[i,1].x then
            swap(p[i,1].x,p[i,2].x);
        if p[i,2].y<p[i,1].y then
            swap(p[i,1].y,p[i,2].y);
    end;
    readln(k.x,k.y);
    count:=0;
    for i:=1 to n do
    begin
        if ((p[i,1].x=k.x) and (p[i,2].x=k.x) and (p[i,1].y<=k.y) and (p[i,2].y>=k.y)) or ((p[i,1].y=k.y) and (p[i,2].y=k.y) and (p[i,1].x<=k.x) and (p[i,2].x>=k.x)) then
        begin
            writeln('BORDER');
            exit;
        end;
        if ((p[i,1].y>k.y) and (p[i,1].x<k.x) and (k.x<=p[i,2].x)) then
            inc(count);
    end;
    if count and 1>0 then
        writeln('INSIDE')
    else
        writeln('OUTSIDE');
end.


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值