Pascal题解奖学金

奖学金

时间限制: 1 Sec内存限制: 128 MB
提交: 6解决: 5
[提交][状态][讨论版]

题目描述

Yemaster的小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。

任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数:学号、总分) 是:

7 279

5 279

这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:

5 279

7 279

则按输出错误处理，不能得分。

输入

输入文件scholar.in包含n+1行:

第1行为一个正整数n，表示该校参加评选的学生人数。

第2到n+1行，每行有3个用空格隔开的数字，每个数字都在O到100之间z第1行的3个数 字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为l~n(恰好是输入数据的行号减1)。

输出

输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。

样例输入

6
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98

样例输出

6 265
4 264
3 258
2 244
1 237

数据规模

50%的数据满足:各学生的总成绩各不相同 100%的数据满足: 6<=n<=300

分析

此题就是一个三级排序：

1，先按总分从大到小排序

2，如果总分一样，按照语文成绩从大到小排序

3，如果总分和语文成绩都一样，则按学号从小到大排序

三级排序

procedure

qsort(l,r:

longint

); //三级排序

var

i,j,m,t,m1,m2:

longint

;

begin

i:=l;

j:=r;

m:=d[(l+r)

div

2

];

m1:=a[(l+r)

div

2

];

m2:=e[(l+r)

div

2

];

repeat

while

(d[i]>m)

or

(d[i]=m)

and

(a[i]>m1)

or

(d[i]=m)

and

(a[i]=m1)

and

(e[i]<m2)

do

i:=i+

1

; //三级排序

while

(d[j]<m)

or

(d[j]=m)

and

(a[j]<m1)

or

(d[j]=m)

and

(a[j]=m1)

and

(e[j]>m2)

do

j:=j-

1

;

if

i<=j

then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

t:=e[i];

e[i]:=e[j];

e[j]:=t;

t:=d[i];

d[i]:=d[j];

d[j]:=t;

i:=i+

1

;

j:=j-

1

;

end

;

until

i>j;

if

l<j

then

qsort(l,j);

if

i<r

then

qsort(i,r);

end

;

源程序

var

a,b,c,d,e:

array

[

0..304

]

of

longint

;

i,n:

longint

;

procedure

qsort(l,r:

longint

); //三级排序

var

i,j,m,t,m1,m2:

longint

;

begin

i:=l;

j:=r;

m:=d[(l+r)

div

2

];

m1:=a[(l+r)

div

2

];

m2:=e[(l+r)

div

2

];

repeat

while

(d[i]>m)

or

(d[i]=m)

and

(a[i]>m1)

or

(d[i]=m)

and

(a[i]=m1)

and

(e[i]<m2)

do

i:=i+

1

; //三级排序

while

(d[j]<m)

or

(d[j]=m)

and

(a[j]<m1)

or

(d[j]=m)

and

(a[j]=m1)

and

(e[j]>m2)

do

j:=j-

1

;

if

i<=j

then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

t:=e[i];

e[i]:=e[j];

e[j]:=t;

t:=d[i];

d[i]:=d[j];

d[j]:=t;

i:=i+

1

;

j:=j-

1

;

end

;

until

i>j;

if

l<j

then

qsort(l,j);

if

i<r

then

qsort(i,r);

end

;

begin

readln(n);

for

i:=

1

to

n

do

begin

readln(a[i],b[i],c[i]); //分别是语文成绩，数学成绩，英语成绩

d[i]:=a[i]+b[i]+c[i]; //这是总分

e[i]:=i; //这是学号

end

;

qsort(

1

,n);

for

i:=

1

to

5

do

writeln

(e[i],

' '

,d[i]); //输出前5名的学号及成绩

end

.