著色問題 PASCAL

我不知道地圖是什麼樣子的，但你呢。

如果你不說，那麼它可能是這樣的：

.這就是所謂的人的樣子。

這還不是全部。

vark:integer;

zhi,neng,niu:array[1..1000] of integer;

f1,f2:text;

i,j,big,n:integer;

beginassign(f1,''); reset(f1);

readln(f1,k);

for i:=1 to k do read(f1,zhi[i]);

for i:=1 to k do read(f1,neng[i]);

close(f1);

for i:=1 to k do beginbig:=0;

for j:=1 to k do

if j<>i then

if (zhi[i]>zhi[j])or(neng[i]>neng[j])

then big:=big+1;

if big=k-1 then niu[i]:=1;

end;n:=0;

for i:=1 to k do

if niu[i]=1 then beginwriteln(i,'牛人');

n:=n+1;

end else writeln(i,'非牛');

writeln;

writeln(n,'乙個牛人');

assign(f2,''); rewrite(f2);

writeln(f2,n);

close(f2);

end.

這可以通過不同的選項卡和基色來完成。

製表符應為粗體，ASCII：219 223

缺點：乙個網格只能有2種顏色，而且做個exe後就不該用了（我沒試過）

Pascal 目前似乎不支援填充顏色。

10 5 太小了，廣度優先遍歷。

upgrade---

好吧，說BFS對我來說是敷衍了事。 這實際上是 spfa這個問題實際上可以看作是圖論。

var k,t,x,y,head,tail:longint;

queue,distant:array[1..100010]of longint;

hash:array[1..100010]of boolean;

beginfor i:=1 to 100010 dodistant[i]:=1000000;

readln(x,y);

distant[x]:=0;

queue[1]:=x;

hash[x]:=true;

head:=0;

tail:=1;

repeat

inc(head);

hash[head]:=false;

k:=distant[queue[head]];

if(queue[head]=y)then beginwriteln(k);

break;

end;if(queue[head]>1)then begint:=queue[head]-1;

if(distant[t]>k+1)then begindistant[t]:=k+1;

if(not hash[t])then begininc(tail);

queue[tail]:=t;

hash[t]:=true;

end;end;

end;if(queue[head]<100000)then begint:=queue[head]+1;

if(distant[t]>k+1)then begindistant[t]:=k+1;

if(not hash[t])then begininc(tail);

queue[tail]:=t;

hash[t]:=true;

end;end;

end;if(queue[head]shl 1<=100000)then begin

t:=queue[head]shl 1;

if(distant[t]>k+1)then begindistant[t]:=k+1;

if(not hash[t])then begininc(tail);

queue[tail]:=t;

hash[t]:=true;

end;end;

end;until head=tail;

end.