P1093 奖学金
奖学金
题目描述
某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前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个用空格隔开的数字,每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1~n(恰好是输入数据的行号减1)。
所给的数据都是正确的,不必检验。
输出格式:
输出文件scholar.out共有5行,每行是两个用空格隔开的正整数,依次表示前5名学生的学号和总分。
输入输出样例
1
输入样例1
6
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98
输出样例1
6 265
4 264
3 258
2 244
1 237
2
输入样例2
8
80 89 89
88 98 78
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98
输出样例2
8 265
2 264
6 264
1 258
5 258
(本题地址)[http://www.luogu.org/problem/show?pid=1093]
这么水的一题,之所以放出来,是因为
纪念编译一次通过 JoKe
纪念编译一次通过且得分最低 JK
好吧是因为这题特别有代表性 ·严肃·
先贴下我的复杂度低但时间超慢的程序(三关键字快速排序+存储所有的数据)
program p1093;
type
LL = longint;
rec = record
chinese, total, order : LL;
end;
var
a : array[1..1000] of rec;
tmp1, tmp2, i, n : LL;
procedure qsort(var l,r : LL);
var
x,y : rec;
i,j : LL;
begin
x:=a[(l+r) div 2];
i:=l;
j:=r;
repeat
while (a[i].total>x.total)or((a[i].total=x.total)and(a[i].chinese>x.chinese))or(((a[i].total=x.total)and(a[i].chinese=x.chinese)and(a[i].order<x.order))) do inc(i);
while (x.total>a[j].total)or((a[j].total=x.total)and(x.chinese>a[j].chinese))or(((a[j].total=x.total)and(a[j].chinese=x.chinese)and(x.order<a[i].order)))do dec(j);
if i<=j then
begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
inc(i);
dec(j);
end;
until i>j;
if (i<r) then qsort(i,r);
if (j>l) then qsort(l,j);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i].chinese,tmp1,tmp2);
a[i].total:=a[i].chinese+tmp1+tmp2;
a[i].order:=i;
end;
tmp1:=1;
tmp2:=n;
qsort(tmp1,tmp2);
for i:=1 to 5 do writeln(a[i].order,' ',a[i].total);
end.
测试都是对的,但是dear Lord,runtimeerror202,10分
然后贴下题解
var n,i,j,k,x,y,z:longint;
s:qword;
a:array[1..5] of qword;
begin
readln(n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
readln(x,y,z);
s:=x+y+z;
s:=s*1000+x;
s:=s*10000+10000-i;
j:=1;
while (a[j]>s)and(j<6) then inc(j);
if j<6 then
begin
for k:=5 downto j+1 do
a[k]:=a[k-1];
a[j]:=s;
end;
end;
for i:=1 to 5 do
writeln(10000-(a[i] mod 10000),' ',a[i] div 10000000);
end.
细节就不分析了,有一个要点我觉得要注意:
** 位数固定时可以用一个数存一打数 **
P1093 奖学金的更多相关文章
- 洛谷 P1093 奖学金
P1093 奖学金 题目描述 某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金.期末,每个学生都有3门课的成绩:语文.数学.英语.先按总分从高到低排序,如果两个同学总分相 ...
- 洛谷——P1093 奖学金
P1093 奖学金 题目描述 某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金.期末,每个学生都有3门课的成绩:语文.数学.英语.先按总分从高到低排序,如果两个同学总分相 ...
- 洛谷 P1583魔法照片 & P1051谁拿了最多奖学金 & P1093奖学金
题目:https://www.luogu.org/problemnew/show/P1583 思路:sort sort sort //#include<bits/stdc++.h> #in ...
- 洛谷 P1093 奖学金【三级结构体排序】
题目描述 某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金.期末,每个学生都有3门课的成绩:语文.数学.英语.先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高 ...
- (水题)洛谷 - P1093 - 奖学金
https://www.luogu.org/problemnew/show/P1093 #include<bits/stdc++.h> using namespace std; #defi ...
- 洛谷P1093 奖学金
https://www.luogu.org/problem/P1093 #include <bits/stdc++.h> using namespace std; struct Node{ ...
- (Java实现)洛谷 P1093 奖学金
题目描述 某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金.期末,每个学生都有3门课的成绩:语文.数学.英语.先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高 ...
- (排序EX)P1093 奖学金
题解: #include<iostream>using namespace std;int r=0;void swap(int &a,int &b){ int t=a; ...
- P1093||T1142 奖学金 洛谷||codevs
http://codevs.cn/problem/1142/ || https://www.luogu.org/problem/show?pid=1093 题目描述 某小学最近得到了一笔赞助,打算拿出 ...
随机推荐
- MyBatis环境配置
<settings> <!-- 使全局的映射器启用或禁用缓存. --> <setting name="cacheEnabled" value=&quo ...
- 查看.NET Service Pack版本
原文地址:如何确定已安装的 Microsoft .NET Framework 版本和 Service Pack 级别 使用以下注册表信息确定已安装的 Microsoft .NET Framework ...
- postman+newman(2)
用newman执行带环境变量的postman测试用例 1.在postman中将用例项目文件导出外还需将环境变量文件导出,如下: 2.newman执行如下: newman -c 测试用例文件 -e 环境 ...
- C#的 is 和 as 类型转换
C#在操作类型转换时,提供了 as 和 is , 显式,隐式类型转换,由于显式和隐式类型转换比较容易理解,这里主要介绍下 is 和 as 的转换. 1. is 转换 is 操作符指定一个对象类型 ...
- No.016 3Sum Closest
16. 3Sum Closest Total Accepted: 86565 Total Submissions: 291260 Difficulty: Medium Given an array S ...
- linux文件上传
租了个服务器,要把自己打的war包打上去发布,服务器是linux的(本机是mac).以前都是用wget命令,把需要上传的东西先放到github上面再在服务器上用wget命令下载.最近不知道什么原因,w ...
- ASP.NET Web API之消息[拦截]处理
标题相当难取,内容也许和您想的不一样,而且网上已经有很多这方面的资料了,我不过是在实践过程中作下记录.废话少说,直接开始. Exception 当服务端抛出未处理异常时,most exceptions ...
- web服务器长连接
web服务器都提供长连接的方式,所谓长连接就是客户端一次请求完后,不关闭连接,保持一段时间的连接,下次此客户端再次请求时,不用创建新连接,复用所保持的连接即可.从理论上,长连接可以免去大量建立和关闭连 ...
- js 分享到按钮
基础的思路,可以在此基础加强 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "htt ...
- linux grep命令详解
linux grep命令详解 简介 grep (global search regular expression(RE) and print out the line,全面搜索正则表达式并把行打印出来 ...