洛谷1093獎學金

某小學打算為學習成績優秀的前5名學生發獎學金。每個學生都有3門課的成績:語文、數學、英語。先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相同，那麼規定學號小的同學 排在前面，這樣，每個學生的排序是唯一確定的。

要求按排名順序輸出前五名名學生的學號和總分。

多關鍵字排序：

第一關鍵字——總分

第二關鍵字——語文

第三關鍵字——學號

資料範圍： n<=300

時間複雜度o(n log n)

var

i,j,n,x,y:longint;
a,b,c:array[1..300]of longint;
procedure
qsort
(l,r:longint);
var i,j,key1,key2,key3,p,t:longint;
begin
if l>=r then
exit;
i:=l;j:=r;
p:=random(r-l+1)+l;
key1:=a[p];
key2:=b[p];
key3:=c[p];
repeat
while ( (a[i]>key1) or ((a[i]=key1)and(b[i]>key2))
or ((a[i]=key1)and(b[i]=key2)and(c[i]and(ido inc(i);
while ( (a[j]or ((a[j]=key1)and(b[j]or ((a[j]=key1)and(b[j]=key2)and(c[j]>key3)))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;
t:=c[i];c[i]:=c[j];c[j]:=t;
inc(i);dec(j);
end;
until i>j;
qsort(i,r);
qsort(l,j);
end;
begin
readln(n);
for i:=1
to n do
begin
readln(b[i],x,y);
a[i]:=b[i]+x+y;
c[i]:=i;
end;
randomize;
qsort(1,n);
for i:=1to5
do writeln(c[i],' ',a[i]);
end.

寒假任務 洛谷1093 獎學金

問題描述 一波獎學金要給總分最高的5位同學，若總分相同則語文成績高的排前面，若兩個成績都相同就按學號從小到大排序。輸入 第1行為乙個正整數n，不超過300，表示該校參加評選的學生人數。第2到n 1行，每行有3個用空格隔開的數字，每個數字都在0到100之間。第j行的3個數字依次表示學號為j 1的學生的...

洛谷 1093 獎學金（排序Ex）

題目描述 某小學最近得到了一筆贊助，打算拿出其中一部分為學習成績優秀的前5名學生發獎學金。期末，每個學生都有3門課的成績 語文 數學 英語。先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相同，那麼規定學號小的同學 排在前面，這樣，每個學生的排序是唯...

洛谷 P1093 獎學金

某小學最近得到了一筆贊助，打算拿出其中一部分為學習成績優秀的前5名學生發獎學金。期末，每個學生都有3門課的成績 語文 數學 英語。先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相同，那麼規定學號小的同學 排在前面，這樣，每個學生的排序是唯一確定的。...