Pascal程序练习-谁是你的潜在朋友

谁是你的潜在朋友
时间限制: 1000ms内存限制: 65536kB
描述
“臭味相投”——这是我们描述朋友时喜欢用的词汇。两个人是朋友通常意味着他们存在着许多共同的兴趣。然而作为一个宅男，你发现自己与他人相互了解的机会并不太多。幸运的是，你意外得到了一份北大图书馆的图书借阅记录，于是你挑灯熬夜地编程，想从中发现潜在的朋友。
首先你对借阅记录进行了一番整理，把N个读者依次编号为1,2,…,N，把M本书依次编号为1,2,…,M。同时，按照“臭味相投”的原则，和你喜欢读同一本书的人，就是你的潜在朋友。你现在的任务是从这份借阅记录中计算出每个人有几个潜在朋友。
输入
第一行两个整数N,M，2 <= N ，M<= 200。接下来有N行，第i(i = 1,2,…,N)行每一行有一个数，表示读者i-1最喜欢的图书的编号P(1<=P<=M)
输出
包括N行，每行一个数，第i行的数表示读者i有几个潜在朋友。如果i和任何人都没有共同喜欢的书，则输出“BeiJu”（即悲剧，^ ^）
样例输入
4 5
2
3
2
1
样例输出
1
BeiJu
1
BeiJu
参考代码
program pig4002; var n,m,i:Integer; v:array[1..200] of Integer; c:array[1..200] of Integer; begin readln(n,m); for i := 1 to n do readln(v[i]); fillchar(c,sizeof(c),0); for i := 1 to n do inc(c[v[i]]); for i := 1 to n do if c[v[i]] > 1 then writeln(c[v[i]] - 1) else writeln('BeiJu'); end.

最后

以上就是闪闪皮皮虾为你收集整理的Pascal程序练习-谁是你的潜在朋友的全部内容，希望文章能够帮你解决Pascal程序练习-谁是你的潜在朋友所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。