2515 2014年中山市选拔赛 投票

题目

有n个候选人要竞选主席，有m个人要投票。每个人只能投一票，如果某个人投了超过一票或者不投票，那么这个人的投票将视为非法。
给出m个人的投票情况，你的任务是统计投票情况，然后按照获得投票数从高到低将候选人排序，如果获得的投票数相同，则按照候选人的输入顺序从小到大排序。

题解

模拟，然后排序
四舍五入代码：
trunc((x*100)+0.5)/100

代码

var
  n,m,i,j,k:longint;
  a,b:array[0..10]of longint;
  c:array[1..10]of string;
  s:string;

procedure qsort(l,r:longint);
var
  i,j,key,key2,k,t:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;
  k:=l+random(r-l+1);
  key:=a[k];
  key2:=b[k];
  repeat
    while (a[i]>key)or((a[i]=key)and(b[i]<key2))and(i<r) do inc(i);
    while (a[j]<key)or((a[j]=key)and(b[j]>key2))and(j>l) do dec(j);
    if i<=j then
      begin
        t:=a[i];a[i]:=a[j];a[j]:=t;
        t:=b[i];b[i]:=b[j];b[j]:=t;
        inc(i);dec(j);
      end;
  until i>j;
  qsort(i,r);
  qsort(l,j);
end;

begin
  readln(n,m);
  for i:=1 to n do
    begin
      readln(c[i]);
      b[i]:=i;
    end;
  for i:=1 to m do
    begin
      readln(s);
      j:=pos('X',s);
      if j=0 then begin inc(a[0]);continue;end;
      delete(s,j,1);
      if pos('X',s)=0 then inc(a[j])
                      else inc(a[0]);
    end;
  randomize;
  qsort(1,n);
  for i:=1 to n do
    writeln(c[b[i]],' ',(trunc(((a[i]/m)*10000)+0.5)/100):0:2,'%');
  writeln('Invalid ',(trunc(((a[0]/m)*10000)+0.5)/100):0:2,'%');
end.