奖学金pascal程序
题意
把总分排序
分析
先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高到低排序,如果两个同学总分和语文成绩都相同,那么规定学号小的同学 排在前面
var
a,t,p:array[0..300]of longint;
n,i,x,y,j:longint;
procedure kp(l,r:longint);
var
i,j,mid:longint;
begin
if l>=r then exit;
i:=l;j:=r;mid:=t[(l+r) div 2];
repeat
while t[i]>mid do inc(i);
while t[j]<mid do dec(j);
if (t[i]<t[j])or(t[i]=t[j])and(a[i]<a[j])or(t[i]=t[j])and(a[i]>a[j])and(p[i]>p[j]) then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
t[0]:=t[i];t[i]:=t[j];t[j]:=t[0];
p[0]:=p[i];p[i]:=p[j];p[j]:=p[0];
inc(i);dec(j);
end;
until(i>j);
kp(l,j);
kp(i,r);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i],x,y);
t[i]:=a[i]+x+y;
p[i]:=i;
end;
//kp(1,n);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if (t[i]<t[j])or(t[i]=t[j])and(a[i]<a[j])or(t[i]=t[j])and(a[i]>a[j])and(p[i]>p[j]) then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
t[0]:=t[i];t[i]:=t[j];t[j]:=t[0];
p[0]:=p[i];p[i]:=p[j];p[j]:=p[0];
end;
end;
for i:=1 to 5 do
writeln(p[i],' ',t[i]);
end.
转载于:https://www.cnblogs.com/YYC-0304/p/9500213.html
奖学金pascal程序相关推荐
- 谁拿了最多奖学金pascal程序
题意 找出奖学金最多的学生 分析 这题就是很简单的字符串处理,细心一点就好. 先把每一个学生的奖学金算出来,再排序,如果有两位或两位以上的学生获得的奖金最多,输出他们之中在输入文件中出现最早的学生的姓 ...
- Pascal程序结构
Pascal程序结构 什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
- 我的第一次Pascal程序
今天刚刚来学点Pascal语言,都怪我买的书大多是用Pascal语言写的,所以我只能试着学一点咯! 来一段程序员最经典的Hello World! 1 program exl_2; 2 begin 3 ...
- 最优乘车pascal程序
Description H城是一个旅游胜地,每年都有成千上万的人前来观光.为方便游客,巴士公司在各个旅游景点及宾馆,饭店等地都设置了巴士站并开通了一些单程巴上线路.每条单程巴士线路从某个巴士站出发,依 ...
- 试卷批分pascal程序
某学校进行了一次英语考试,共有10道是非题,每题为10分,解答用1表示"是",用0表示"非"的方式.但老师批完卷后,发现漏批了一张试卷,而且标准答案也丢失了,手 ...
- 数列分段pascal程序
题意 对于给定的一个长度为N的正整数数列A[i],现要将其分成连续的若干段,并且每段和不超过M(可以等于M),问最少能将其分成多少段使得满足要求. 分析 一个一个加上s,如果s>m,那么s就变成 ...
- 混合牛奶pascal程序
题意 给出Marry乳业每天对牛奶的需求量,还有每位奶农提供的牛奶单价和产量.计算采购足够数量的牛奶所需的最小花费. 分析 排序,最小价值优先取,太多了就退出循环,输出(之前的价值+还有多少需求*退出 ...
- 单词接龙pascal程序
题意 现在我们已知一组单词,且给定一个开头的字母,要求出以这个字母开头的最长的"龙"(每个单词都最多在"龙"中出现两次),在两个单词相连时,其重合部分合为一部分 ...
- 快速排序pascal程序
题意 排序 分析 数据规模太大,建议使用快排. var n,i:longint; a:array[0..100000]of longint; procedure kp(l,r:longint); va ...
最新文章
- Android面试题目之(9) 幽灵引用
- python将数字转变为中文读法-Python转换数字到中文大写格式
- http网址捆綁代理php_PHP获取IP,HTTP代理问题
- 分布式搜索 Elasticsearch —— 节点实例化
- h264 I帧的判断
- django-rest-swagger显示接口备注内容
- fatal: remote origin already exists.报错已成功解决
- 编程实现 有符号乘法溢出判断
- python nonlocal的用法_python global和nonlocal用法解析
- 数据挖掘十大算法之C4.5
- 非线性控制1.0——模糊控制理论基础
- 制作u盘winpe启动盘_u盘启动盘制作工具软件哪个好?
- 零知识证明 Zero Knowledge Proof 以及 Layer2、跨链介绍
- 各位亲朋好友新春大吉
- iOS 四舍六入五成双算法
- win10怎么显示文件后缀名
- 腾讯光子游戏客户端开发公开课以及实习生面试凉经
- SpringBoot微服务项目报错:Failed to process import candidates for configuration class [springfox.boot...
- 【资料转发分享】基于8086和LCD12864液晶显示仿真设计、基于8086计算器系统仿真设计、基于8086家具房间灯光控制设计-设计资料
- 【漫漫科研路\CC++】CPLEX解SOCP问题