解題思路：
先讀入資料，用快排對所有選手按照實力值排序，然後模擬，每打一場比賽就把贏的和輸的分為兩個有序陣列，再進行歸併，最後按要求輸出即可。
程式：const
maxn=100000;
vara:array[0..2*maxn,1..3] of longint;
b,c:array[0..maxn,1..3] of longint;
n:longint;
procedure qsort(l,r:longint);
vari,j,k1,k2:longint;
begin
if l>=r then exit;
i:=l; j:=r;
k1:=a[(i+j) div 2,1];
k2:=a[(i+j) div 2,3];
repeat
while (a[i,1]>k1)or(a[i,1]=k1)and(a[i,3]
while (a[j,1]k2) do dec(j);
if i<=j then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
inc(i);dec(j);
end;
until i>j;
qsort(i,r);
qsort(l,j);
end;
procedure merge;
varp,q,a1,i:longint;
begin
p:=1; q:=1; a1:=0;
while (p<=n)and(q<=n) do
if (b[p,1]>c[q,1])or(b[p,1]=c[q,1])and(b[p,3]
else begin inc(a1); a[a1]:=c[q]; inc(q); end;
for i:=p to n do
begin
inc(a1);
a[a1]:=b[i];
end;
for i:=q to n do
begin
inc(a1);
a[a1]:=c[i];
end;
end;
procedure main;
varr,q,i,j:longint;
begin
readln(n,r,q);
for i:=1 to n*2 do
read(a[i,1]);
readln;
for i:=1 to n*2 do
begin
read(a[i,2]);
a[i,3]:=i;
end;
qsort(1,n*2);
for i:=1 to r do
begin
for j:=1 to n do
if a[j*2-1,2]>a[j*2,2] then begin inc(a[j*2-1,1]); b[j]:=a[j*2-1]; c[j]:=a[j*2]; end
else begin inc(a[j*2,1]); b[j]:=a[j*2]; c[j]:=a[j*2-1]; end;
merge;
end;
writeln(a[q,3]);
end;
begin
main;
end.
版權屬於: chris
NOIP2011複賽普級組 統計單詞數
解題思路 先把讀入的字串全部轉為大寫，然後用迴圈對字串進行查詢，找到就儲存位置，並且統計次數，最後輸出，如果沒有找到就輸出 1。程式 var word,article ansistring i,p,s,len longint begin readln word readln article word...
NOIP2011普及組 瑞士輪
題目 洛谷p1309 codevs1132 vijos p1771 題目大意 要你模擬瑞士輪賽制，求出r輪後第q名選手的編號。解題思路 首先對所有選手按分數從大到小進行排序，然後模擬比賽。因為原本是排好序的，贏的加1分，輸的扣1分，所以贏的人和輸的人也是分別有序的。所以我們可以把每輪贏的人扔進乙個陣...
NOIP 2011普及組 瑞士輪
背景 在雙人對決的競技性比賽，如桌球 羽毛球 西洋棋中，最常見的賽制是淘汰賽和迴圈賽。前者的特點是比賽場數少，每場都緊張刺激，但偶然性較高。後者的特點是較為公 平，偶然性較低，但比賽過程往往十分冗長。本題中介紹的瑞士輪賽制，因最早使用於 1895 年在瑞士舉辦的西洋棋比賽而得名。它可以看作是淘汰賽與...