sort

1419. 【汕头市选2012初中组】排序(sort) 
(File IO): input:sort.in output:sort.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

ftiasch 和nm 是好朋友。nm 的成绩很差，以至于GPA（平均绩点）在系内倒数。系内一共有N 位

同学，每位同学有自己的GPA，以及已修学分数，定义GPT = GPA 已修学分数。ftiasch 为了帮助

nm 提高成绩，给nm 提了一个要求：新学期的GPA 要超过系内排名第K 位的同学。

为了帮助理解，给出一个例子：

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

第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 100; 000，GPT 小数点后至多1 位，GPA 至多4:0。

var
        a,b,c:longint;
        v,v1:array[0..100000]of extended;
        r:array[0..100000]of longint;
procedure ss(l,r:longint);
var
        i,j:longint;
        mid:extended;
begin
        i:=l;
        j:=r;
        mid:=v1[(i+j) div 2];
        while i<j do
        begin
                while v1[i]>mid do inc(i);
                while v1[j]<mid do dec(j);
                if i<=j then
                begin
                        v1[0]:=v1[i];
                        v1[i]:=v1[j];
                        v1[j]:=v1[0];
                        inc(i);
                        dec(j);
                end;
        end;
        if j>l then ss(l,j);
        if i<r then ss(i,r);
end;
begin
        assign(input,'sort.in');reset(input);
        assign(output,'sort.out');rewrite(output);
        readln(a,b);
        for c:=1 to a do
        begin
                read(v[c],r[c]);
                v1[c]:=v[c]/r[c];
        end;
        ss(1,a);
        writeln(v1[b]:0:2);
        close(input);
        close(output);
end.