C++&Pascal——NOIP2015提高组day1 t2——信息传递

题目描述

有 n 个同学（编号为1到n）正在玩一个信息传递的游戏。在游戏里每人都有一个固定的信息传递对象，其中，编号为 i 的同学的信息传递对象是编号为 Ti 的同学。

游戏开始时，每人都只知道自己的生日。之后每一轮中，所有人会同时将自己当前所知的生日信息告诉各自的信息传递对象（注意：可能有人可以从若干人那里获取信息，但是每人只会把信息告诉一个人，即自己的信息传递对象）。当有人从别人口中得知自己的生日时，游戏结束。请问该游戏一共可以进行几轮？

输入格式

输入共 2 行。
第 1 行包含 1 个正整数 n ，表示 n 个人。
第 2 行包含 n 个用空格隔开的正整数 T1 , T2 ,… , Tn ， 其中第 i 个整数 Ti 表示编号为 i 的同学的信息传递对象是编号为 Ti 的同学，Ti≤n 且 Ti≠i。
数据保证游戏一定会结束。

输出格式

输出共 1 行，包含  1 个整数，表示游戏一共可以进行多少轮。

样例数据 1

输入

5 
2 4 2 3 1

输出

3

备注

【样例1说明】

游戏的流程如图所示。当进行完第 3 轮游戏后，4 号玩家会听到 2 号玩家告诉他自己的生日，所以答案为 3 。当然，第 3 轮游戏后， 2 号玩家、3 号玩家都能从自己的消息来源得知自己的生日，同样符合游戏结束的条件。

【数据范围】 
对于 30% 的数据，n≤200；
对于 60% 的数据，n≤2500；
对于 100% 的数据，n≤200000。

#include
__int32 n,ans=0x7fffffff,tot,step,end;
__int32 to[200001];
bool vis[200001],right;
__int32 readint()
{
	__int32 i=0;
	__int8 ch;
	for(ch=getchar();ch<'0'||ch>'9';ch=getchar());
	for(;ch>='0'&&ch<='9';ch=getchar()) i=(i<<3)+(i<<1)+ch-'0';
	return i;
}
__int32 min(__int32 a,__int32 b)
{
	return a < b ? a : b;
}
void dfs(__int32 x)
{
	vis[x]=true;
	if(++tot>=ans)
	{
		right=false;
		return;
	}
	if(!vis[to[x]]) dfs(to[x]);
	else end=to[x],++step;
	if(right)
	{
		if(x!=end) ++step;
		else ans=min(ans,step);
	}
}
int main()
{
	n=readint();
	for(__int32 i=1;i<=n;++i)
		to[i]=readint();
	for(__int32 i=1;i<=n;++i)
		if(!vis[i])
		{
			right=true;
			tot=step=0;
			dfs(i);
		}
	__int32 num=0;
	__int8 c[10];
	while(ans) c[++num]=(ans%10)+48,ans/=10;
	while(num) putchar(c[num--]);
	return 0;
}

var
n,i,ans,tot,step,endd : longint;
right : boolean;
too : array [ 0..200010 ] of longint;
vis : array [ 0..200010 ] of boolean;
function min( a , b : longint): longint;
begin
        if a < b then exit ( a )
        else exit ( b );
end;
procedure dfs( x : longint );
begin
        vis[ x ] := true;
        inc ( tot );
        if tot >= ans then begin
                right := false;
                exit;
        end;
        if vis[ too[ x ] ] = false then dfs ( too[ x ] )
        else begin
                endd := too[ x ];
                inc ( step );
        end;
        if right = true then begin
                if x <> endd then inc ( step )
                else ans := min ( ans , step );
        end;
end;
begin
        read ( n ) ;
        ans := 210000000 ;
        for i := 1 to n do read ( too[ i ] );
        for i := 1 to n do
                if vis[ i ] = false then begin
                        right := true;
                        tot := 0;
                        step := 0;
                        dfs( i );
                end;
        write ( ans );
end.