2017.03.18【NOIP 普及组】模拟赛C组蚂蚁题解

最新推荐文章于 2023-09-15 17:17:50 发布

mijoe10

最新推荐文章于 2023-09-15 17:17:50 发布

阅读量421

点赞数

分类专栏：题解

本文链接：https://blog.csdn.net/mi_joe/article/details/65635727

版权

题解专栏收录该内容

87 篇文章 1 订阅

订阅专栏

原题：

http://172.16.0.132/junior/#contest/show/1376/1

题目描述：

在二维平面坐标轴里面，有N只蚂蚁，第i只蚂蚁所在的点的坐标是(xi, yi)，坐标都是整数。所有蚂蚁的移动速度都相等，都是每秒移动1个单位。每只蚂蚁都有一个固定的移动方向，是如下4种方向之一，都是平行于坐标轴的：
l N表示向北（即朝上），则y坐标正方向。
l E表示向东（即朝右），则x坐标正方向。
l S表示向南（即向下），则y坐标负方向。
l W表示向西（即向左），则x坐标负方向。
当2只或多只蚂蚁在某个时刻碰（不一定是整数时刻）撞到一起，那么这些蚂蚁都会立即消失。例如蚂蚁A的初始位置是(0, 0)且方向是向东，蚂蚁B的初始位置是(1, 0)且方向是向西，那么0.5秒后，两只蚂蚁会在点（0.5, 0）处碰撞，两只蚂蚁瞬间都消失。当所有的碰撞结束后，还有多少只蚂蚁存在？不管蚂蚁最终移动到哪里，只要没有消失，都算是存在。

输入：

第一行，一个整数N（1 ≤ N ≤ 50）。
第二行，一个长度是N的字符串，第i个字符表示第i只蚂蚁的移动方向。
接下来有N行，每行两个整数，表示蚂蚁的横坐标x和纵坐标y。
-1000 ≤ x,y ≤ 1000。输入数据保证，一开始没有两只蚂蚁具有相同的位置。
对于50%的数据，蚂蚁的坐标范围【-100，100】。

输出：

一个整数，表示当所有的碰撞结束后，存在的蚂蚁的数量。

输入样例：

输入样例1:
4
NWNE
0 0
10 10
20 20
30 30

输入样例2:
4
NEWS
-10 0
0 -10
0 10
10 0

输入样例3:
4
EWSS
0 0
9 0
0 4
0 5

输入样例4:
9
EENWWSWSE
-1 0
1 0
0 0
-1 -1
1 -1
0 1
0 -1
-1 1
1 1

输入样例5:
5
SWNSE
-2 -1
-3 -1
-2 -3
1 3
-3 -2

输入样例6:
9
ESEWNNEWW
-1 -1
-1 0
-1 1
0 -1
0 0
0 1
1 -1
1 0
1 1

输入样例7:
4
EWEN
2 2
10 2
0 2
0 0

输入样例8:
3
NEN
2 0
0 2
1 1

输入样例9:
2
SW
-1000 1000
1000 -1000

输出样例:

输出样例1:
2

输出样例2:
0

输出样例3:
2

输出样例4:
5

输出样例5:
2

输出样例6:
4

输出样例7:
2

输出样例8:
1

输出样例9:
0

分析：

暴力，但注意每次增加0.5！！！

实现：

var
        n,i,j,ans,k:longint;
        s:string;
        x,y:array[1..50] of real;
        b,bz:array[1..50] of boolean;
begin
        assign(input,'ant.in');reset(input);
        assign(output,'ant.out');rewrite(output);
        readln(n);
        readln(s);
        for i:=1 to n do
                readln(x[i],y[i]);
        for i:=1 to 4000 do
        begin
                fillchar(bz,sizeof(bz),false);
                for j:=1 to n do
                        case s[j] of
                                'N':y[j]:=y[j]+0.5;
                                'S':y[j]:=y[j]-0.5;
                                'W':x[j]:=x[j]-0.5;
                                'E':x[j]:=x[j]+0.5;
                        end;
                for j:=1 to n-1 do
                        if not(b[j]) then
                                for k:=j+1 to n do
                                        if not(b[k]) then
                                                if (x[j]=x[k])and(y[j]=y[k]) then
                                                begin
                                                        bz[j]:=true;
                                                        bz[k]:=true;
                                                end;
                for j:=1 to n do
                        if bz[j] and not(b[j]) then
                        begin
                                b[j]:=true;
                                inc(ans);
                        end;

        end;
        writeln(n-ans);
        close(input);close(output);
end.