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.