jzoj 1730. 【10.5NOIP普及模拟】sort(sort.pas/cpp)

本文主要是介绍jzoj 1730. 【10.5NOIP普及模拟】sort(sort.pas/cpp)，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

【10.5NOIP普及模拟】sort(sort.pas/cpp)
(File IO): input:sort.in output:sort.out
时间限制: 1000 ms 空间限制: 256000 KB 具体限制
Goto ProblemSet

题目描述
小x和小y是好朋友。小y的成绩很差，以至于 GPA（平均绩点）在系内倒数。系内一共有 N 位同学，每位同学有自己的 GPA，以及已修学分数，定义 GPT = GPA ×已修学分数。小x为了帮助小y提高成绩，给小y提了一个要求：新学期的 GPA 要超过系内排名第 K 位的同学。 为了帮助理解，给出一个例子：

  现在给出系里面每位同学的 GPT（只有一位小数），以及他们的已修学分。你需要帮助小y把排名 第 K 位的同学的 GPA 求出来。

输入
第 1 行2 个整数 N, K。
第 2- (N + 1) 行，每行 1 个非负实数和 1 个整数，分别表示 GPT 和已 修学分数。
注意：所有同学的学分都在 [1, 250] 的范围。

输出
第 1 行1 个实数，表示排名第 K 同学的 GPA，保留 2 位小数输出。

样例输入
5 3
73 20
79.8 21
72.6 22
85.1 23
65.7 18

样例输出
3.65

数据范围限制
对于 50% 的数据：1 ≤ N ≤ 100。
对于 100% 的数据：1 ≤ K ≤ N ≤ 100000，GPT 小数点后至多 1 位，GPA 至多 4.0。

---

这题就是个模拟，a[i]=用GPT 除以已修学分数,然后快排，输出a[k]。

---

vari,j,k,n:longint;a:array[0..100001]of real;
procedure qsort(l,r:longint);
varmid:real;
beginif l>=r then exit;i:=l; j:=r;mid:=a[(l+r) div 2];repeatwhile a[i]>mid do inc(i);while a[j]<mid do dec(j);if i<=j thenbegina[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];inc(i); dec(j);end;until i>j;qsort(l,j);qsort(i,r);
end;
beginassign(input,'sort.in');assign(output,'sort.out');reset(input);rewrite(output);readln(n,k);for i:=1 to n dobeginreadln(a[i],j);a[i]:=a[i]/j;end;qsort(1,n);writeln(a[k]:0:2);close(input);close(output);
end.

这篇关于jzoj 1730. 【10.5NOIP普及模拟】sort(sort.pas/cpp)的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---