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]。

---

var
  i,j,k,n:longint;
  a:array[0..100001]of real;
procedure qsort(l,r:longint);
var
  mid:real;
begin
  if l>=r then exit;
  i:=l; j:=r;
  mid:=a[(l+r) div 2];
  repeat
    while a[i]>mid do inc(i);
    while a[j]<mid do dec(j);
    if i<=j then
    begin
      a[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;
begin
  assign(input,'sort.in');
  assign(output,'sort.out');
  reset(input);
  rewrite(output);
  readln(n,k);
  for i:=1 to n do
  begin
    readln(a[i],j);
    a[i]:=a[i]/j;
  end;
  qsort(1,n);
  writeln(a[k]:0:2);
  close(input);
  close(output);
end.