分数线划定pascal程序

题意

把分数从大到小排序，同分数的，学号小的排前。

找出分数大于等于，第m*1.5（向下取整）名的分数，的人。

分析

开始先排序，再一个一个找

var
n,m,i,j,tj:longint;
k,s:array[0..10000]of longint;
t:real;
begin

readln(n,m);
for i:=1 to n do
readln(k[i],s[i]);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if s[i]<s[j] then
begin
s[0]:=s[i];s[i]:=s[j];s[j]:=s[0];
k[0]:=k[i];k[i]:=k[j];k[j]:=k[0];
end;
if (s[i]=s[j])and(k[i]>k[j]) then
begin
k[0]:=k[i];k[i]:=k[j];k[j]:=k[0];
end;
end;
end;

t:=s[trunc(m*1.5)];
tj:=0;
for i:=1 to n do
if s[i]>=t then inc(tj);
writeln(s[tj],' ',tj);

for i:=1 to tj do
writeln(k[i],' ',s[i]);

close(input);
close(output);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500225.html

分数线划定pascal程序相关推荐

zufeoj 分数线划定
分数线划定时间限制: 1 Sec 内存限制: 128 MB 提交: 13 解决: 7 [提交][状态][讨论版] 题目描述世博会志愿者的选拔工作正在 A 市如火如荼的进行.为了选拔最合适的人才 ...
信息奥赛一本通（1180：分数线划定）——插入排序
1180:分数线划定时间限制: 1000 ms 内存限制: 65536 KB 提交数: 15750 通过数: 7408 [题目描述] 世博会志愿者的选拔工作正在 A 市如火如 ...
【NOIp普及组 2009】分数线划定
分数线划定世博会志愿者的选拔工作正在 A 市如火如荼的进行.为了选拔最合适的人才,AAA市对所有报名的选手进行了笔试,笔试分数达到面试分数线的选手方可进入面试.面试分数线根据计划录取人数的150 ...
信息学奥赛一本通 1180 | 1946：【09NOIP普及组】分数线划定 | OpenJudge NOI 1.10 05 | 洛谷 P1068 [NOIP2009 普及组] 分数线划定
[题目链接] ybt 1180:分数线划定 ybt 1946:[09NOIP普及组]分数线划定 OpenJudge NOI 1.10 05:分数线划定洛谷 P1068 [NOIP2009 普及组] ...
Pascal程序结构
Pascal程序结构什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
洛谷——P1068 分数线划定
题目描述世博会志愿者的选拔工作正在 A 市如火如荼的进行.为了选拔最合适的人才,AA市对所有报名的选手进行了笔试,笔试分数达到面试分数线的选手方可进入面试.面试分数线根据计划录取人数的150\%15 ...
分数线划定（信息学奥赛一本通-T1180）
[题目描述] 世博会志愿者的选拔工作正在 A 市如火如荼的进行.为了选拔最合适的人才,A市对所有报名的选手进行了笔试,笔试分数达到面试分数线的选手方可进入面试.面试分数线根据计划录取人数的150150 ...
分数线划定（洛谷-P1068）
题目描述世博会志愿者的选拔工作正在 A 市如火如荼的进行.为了选拔最合适的人才,A 市对所有报名的选手进行了笔试,笔试分数达到面试分数线的选手方可进入面试.面试分数线根据计划录取人数的150%划定, ...
排序——分数线划定(洛谷 P1068)
题目选自洛谷P1068 这里不再讲述各种基本排序实现,如想了解可以参考我之前的算法里的几种排序算法知识点. 主要讲述在竞赛过程中,我们如何将排序算法运用到解题当中来,一般情况下,需要用到排序的时候,我 ...

分数线划定pascal程序

分数线划定pascal程序相关推荐

最新文章

热门文章