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<stdio.h>__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;}

varn,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.