2014年中山市选拔赛 投票

问题描述

有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.