2014年中山市选拔赛 投票
2017-03-28 21:34
204 查看
问题描述
有n个候选人要竞选主席,有m个人要投票。每个人只能投一票,如果某个人投了超过一票或者不投票,那么这个人的投票将视为非法。 给出m个人的投票情况,你的任务是统计投票情况,然后按照获得投票数从高到低将候选人排序,如果获得的投票数相同,则按照候选人的输入顺序从小到大排序。
输入格式
第一行一个整数n,m(2<=n<=10, 1<=m<=1000),分别表示候选人的数量和投票人的数量。 接下来n行,每行有一个字符串,表示候选人的名字,保证字符串长度不超过100,且不包含"Invalid"这个名字。 接下来m行,每行一个长度为n的字符串,表示一个人的投票情况,字符串仅包含“X”和”.”。若字符串的第i个位置为”X”,则表示这个人给第i个候选人投一票。
输出格式
一共n+1行,前n行每行的信息分别为候选人的名字以及它所获的票占总票数的百分比,名字和百分比用一个空格隔开。其中百分比要四舍五入保留两位小数。 最后一行输出非法票数占总票数的比例,非法票数的名字用"Invalid"表示,具体看请看样例输出。
输入样例:
4 7 Loudy Apples Dogman Miller .X.. X... .... ..X. ..XX ..X. ..X.
输出样例:
Dogman 42.86% Loudy 14.29% Apples 14.29% Miller 0.00% Invalid 28.57%
数据范围
100%的数据,n<=10,m<=1000
解题思路
就是一个多关键字排序,但要看清题目要求,以及Pascal的五舍六入。。。
type note=record na:string; da,x:longint; end; var a:array[0..100] of note; s:string; n,m,i,j,k,t:longint; begin readln(n,m); for i:=1 to n do begin readln(a[i].na); a[i].x:=i; end; a[n+1].na:='Invalid'; for i:=1 to m do begin readln(s); t:=n+2; for j:=1 to length(s) do if (s[j]='X') then if (t=n+2) then t:=j else t:=n+1; if (t=n+2) then t:=n+1; inc(a[t].da); end; for i:=1 to n-1 do for j:=i+1 to n do if (a[i].da<a[j].da) or ((a[i].da=a[j].da) and (a[i].x>a[j].x)) then begin a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0]; end; for i:=1 to n+1 do writeln(a[i].na,' ',trunc(a[i].da*10000/m+0.5)/100:0:2,'%'); end.
相关文章推荐
- 2014年广东省青少年信息学竞赛中山市选拔赛 投票
- SSL P2515 2014年中山市选拔赛 投票
- 2515 2014年中山市选拔赛 投票
- SSL P2516 2014年中山市选拔赛 dwarf tower
- 2014年中山市选拔赛 dwarf tower
- 2516 2014年中山市选拔赛 dwarf tower
- 2014年汕头市选拔赛普级组 数数
- 东莞市2014年市队选拔赛 分组 构造二分图最小覆盖方案
- 2014年广州市信息学尖子选拔赛 第一题
- SSL2522 2014年汕头市选拔赛普级组 约数(线性筛素数)
- CSU-ACM2014年校队选拔赛指导赛解题报告
- SSL2520 2014年汕头市选拔赛普级组 小球(math)
- 【中山市选2014】投票
- 2014年第四届“华为杯”南邮大学生程序设计竞赛之选拔赛 D演唱顺序问题
- SSL 2521 2014年汕头市选拔赛普级组 数数
- 总结(【中山市选2014】投票 【中山市选2014】dwarf tower 【中山市选2014】图 【NOIP2013提高组day2】华容道)
- 2014年年度总结
- 天下数据盘点2014年服务器大咖们的发展 2015年趋势
- 2014年安卓出货首超10亿部 占全球市场81%
- 杭州快递价格参考表,2014年更新