点这里查看
讨论 / 谁能说一下侦查守卫的做法?（fp版）
?号疯子（第四代） 2011-11-04 08:05:00
点我顶贴 收藏 删除
.......
#1 kidofgalaxy@2011-10-09 05:37:00
回复 删除
很简单的做法是扫描一下 因为数据不大

你也可以算

#2 ?号疯子（第四代）@2011-10-09 21:08:00
回复 删除
回复 沙发kidofgalaxy 的帖子

能具体一点吗？

#3 tym983398371@2011-10-28 06:38:00
回复 删除
模拟

用个二维数组呗

#4 落汤鸡三号@2011-11-04 06:19:00
回复 删除
LZ，你是何人？
#5 ckycky1234@2011-11-04 06:23:00
回复 删除
类似校门外的树
#6 wsl@2011-11-04 06:25:00
回复 删除
开个小数组模拟一下，进行累加追后判断
#7 二中的废柴@2011-11-04 08:05:00
回复 删除
注意样例，模拟就行

var

a:array[0..100,0..100]of 0..2;

i,j,k:longint;

x1,x2,x3,y3,x4,y4,y1,y2:longint;

t2,t1:longint;

begin

readln(x1,y1,x2,y2,x3,y3,x4,y4);

for i:=0 to 100 do

for j:=0 to 100 do a[i,j]:=0;

for i:=x1+1 to x2 do

for j:=y1+1 to y2 do a[i,j]:=a[i,j]+1;

for i:=x3+1 to x4 do

for j:=y3+1 to y4 do a[i,j]:=a[i,j]+1;

for i:=0 to 100 do

for j:=0 to 100 do

begin

if a[i,j]=1 then inc(t1);

if a[i,j]=2 then inc(t2);

end;

writeln(t2,' ',t1,' ',100*100-t1-t2);

end.

查看更多回复
提交回复