分数线划定pascal程序
来源:互联网 发布:java微信开发框架对比 编辑:程序博客网 时间:2024/05/17 06:37
题意
把分数从大到小排序,同分数的,学号小的排前。
找出分数大于等于,第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.
- 分数线划定pascal程序
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 分数线划定
- 高考录取分数线划定
- 高考录取分数线划定
- 【模拟】分数线划定
- WIKIOI-1151 分数线划定
- [洛谷1068]分数线划定
- 【p092】分数线划定
- 编译安装pcre
- 合并排序数组
- 结束了一段时间
- Find Minimum in Rotated Sorted Array II
- jstorm 学习记录一
- 分数线划定pascal程序
- MySQL数据库---操作
- Ubuntu14.04中ROS的安装指南
- spring-data
- Java基础--注解
- 51nod 1406 与查询 二进制+暴力
- sleep和wait的区别
- Linux互斥机制
- Codeforces Round #375 (Div. 2) E. One-Way Reform 欧拉回路+构图