獎學金
問題描述
某小學最近得到了一筆贊助，打算拿出其中一部分為學習成績優秀的前5名學生發獎學金。期末，每個學生都有3門課的成績:語文、數學、英語。先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相同，那麼規定學號小的同學 排在前面，這樣，每個學生的排序是唯一確定的。
任務：先根據輸入的3門課的成績計算總分，然後按上述規則排序，最後按排名順序輸出前五名名學生的學號和總分。注意，在前5名同學中，每個人的獎學金都不相同，因此，你必須嚴格按上述規則排序。例如，在某個正確答案中，如果前兩行的輸出資料(每行輸出兩個數:學號、總分) 是:
7 279 5 279 這兩行資料的含義是:總分最高的兩個同學的學號依次是7號、5號。這兩名同學的總分都是 279 (總分等於輸入的語文、數學、英語三科成績之和) ，但學號為7的學生語文成績更高一些。如果你的前兩名的輸出資料是:
5 279 7 279 則按輸出錯誤處理，不能得分。
分析
快排不多說
時間複雜度
o（nlogn）
**
const
maxn=1000;
vara,b,c,num:array[0..maxn] of longint;
i,n:longint;
procedure qsort(l,r:longint);
vari,j,key,k1,k2:longint;
begin
if l>=r then exit;
i:=l; j:=r;
key:=c[(l+r) div 2];
k1:=a[(l+r) div 2];
k2:=num[(l+r) div 2];
repeat
while (c[i]>key) or ((c[i]=key) and (a[i]>k1)) or ((c[i]=key) and (a[i]=k1) and (num[i]k2)) do dec(j);
if i<=j then
begin
a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
num[0]:=num[i]; num[i]:=num[j]; num[j]:=num[0];
c[0]:=c[i]; c[i]:=c[j]; c[j]:=c[0];
inc(i);
dec(j);
end;
until i>j;
qsort(l,j);
qsort(i,r);
end;
begin
readln(n);
for i:=1 to n do
begin
read(a[i],b[i],c[i]);
num[i]:=i;
c[i]:=a[i]+b[i]+c[i];
end;
randomize;
qsort(1,n);
for i:=1 to 5 do
writeln(num[i],' ',c[i]);
end.
NOIP2007普及組 獎學金
我用了一種非常複雜的方式表現出來 滑稽 好了，廢話不多說，直接進正題 某小學最近得到了一筆贊助，打算拿出其中一部分為學習成績優秀的前5名學生發獎學金。期末，每個學生都有3門課的成績 語文 數學 英語。先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相...
NOIP2007 普及組 獎學金
noip2007 普及組 獎學金 時間限制 1 sec 記憶體限制 128 mb 提交 468 解決 178 提交 題解 狀態 討論版 題目描述 某小學最近得到了一筆贊助，打算拿出其中一部分為學習成績優秀的前5名學生發獎學金。期末，每個學生都有3門課的成績 語文 數學 英語。先按總分從高到低排序，如...
NOIP2007普及組第1題 獎學金
題目描述 某小學最近得到了一筆贊助，打算拿出其中一部分為學習成績優秀的前5名學生發獎學金。期末，每個學生都有3門課的成績 語文 數學 英語。先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相同，那麼規定學號小的同學排在前面，這樣，每個學生的排序是唯一...