2017年10月07日普及组蚂蚁

分析
a[i]表示第i只蚂蚁是否相碰。
1.因为横纵坐标为-1000~1000，就枚举步数2000次就好了，因为他可能在某个带小数的坐标相碰，所以每一步走0.5而不能走1，这样的话步数就是4000次0.5而不是2000次1.
2.每一次把相碰的蚂蚁全部找出来，并且标记，在找的过程中用另外的数组b标记，因为正在找的过程是参照上一次经过排除后的蚂蚁来找的，这一次标记不能用上去。
3.做完以后把b数组更新后的值赋给a。

程序：

var
a,b:array[0..51]of boolean;
x,y:array[0..51]of real;
t:array[0..51,1..2]of real;
i,j,k,n,ans:longint;
s:string;
beginassign(input,'ant.in');reset(input);assign(output,'ant.out');rewrite(output);readln(n);readln(s);for i:=1 to n dobeginreadln(x[i],y[i]);a[i]:=true;b[i]:=true;if s[i]='N' then t[i,2]:=0.5 elseif s[i]='E' then t[i,1]:=0.5 elseif s[i]='S' then t[i,2]:=-0.5 elseif s[i]='W' then t[i,1]:=-0.5;end;for i:=1 to 4000 dobeginfor j:=1 to n doif a[j]=true thenbeginx[j]:=x[j]+t[j,1];y[j]:=y[j]+t[j,2];end;for j:=1 to n doif a[j]=true thenbeginfor k:=1 to n doif a[k]=true thenif (j<>k) thenif (x[k]=x[j]) and (y[k]=y[j])thenbeginb[j]:=false;b[k]:=false;a[0]:=false;end;end;a:=b;if a[0]=true then break;end;for i:=1 to n doif a[i]=true then inc(ans);writeln(ans);close(input);close(output);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500039.html

2017年10月07日普及组蚂蚁相关推荐

2017年10月07日普及组数列
分析 1.等差数列因为2个数之间的值是固定值b,若a<=u就可以直接求出a~u之间等差数列的数量(u-a) div b+1. 2.等比数列直接做就好了,因为是逐级乘法,所以速度挺快的,不过要判断 ...
2017年10月07日普及组单元格
程序: const mods:longint=1000000007; var r,c,min,max,i:longint; sum1,sum2:array[0..4001]of int64;funct ...
2017年10月08日普及组世界语
分析水题一道,提交的时候把文件夹的名字打错了,结果没了100分-- 程序 const a:array[1..10]of string=('unu','du','tri','kvar','kvin', ...
2017年10月21日普及组简单单词
分析直接依题意枚举,注意:每个单词的前缀长度并不一定相等. 程序: var n,i,j,l,k,bz:longint; a:array[0..100]of string; s:array[0..10 ...
2017年10月21日普及组排名
程序: var n,i,j,x,z,w:longint; a,b,c,d,p,y:array[0..200]of longint; beginassign(input,'sort.in');reset ...
2017年10月18日普及组文件名排序
程序: var l,n,i,j,p:longint; a,b,c,s:array[1..1000]of string; w:string; beginreadln(n);for i:=1 to n d ...
2017年10月18日普及组面积最大
程序: var r,i,j,a,b:longint; ti,tj,best,t:real; beginreadln(r);best:=0;for i:=1 to 2*r-1 dofor j:=1 to ...
2017年10月08日普及组蜡烛
程序: var n,i,j,t,k,sum:longint; a:array[0..10000] of longint; beginassign(input,'lazhu.in');reset(inp ...
2017年10月05日普及组比萨
分析其实就是求组合程序: var n,m,i,x,y,j:longint; ans:int64; s:array[0..20] of longint; f:array[0..52] of long ...

2017年10月07日普及组蚂蚁

2017年10月07日普及组蚂蚁相关推荐

最新文章

热门文章

2017年10月07日普及组 蚂蚁

2017年10月07日普及组 蚂蚁相关推荐

最新文章

热门文章

2017年10月07日普及组蚂蚁

2017年10月07日普及组蚂蚁相关推荐