題意

把分數從大到小排序，同分數的，學號小的排前。

找出分數大于等于，第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

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的分数线划定pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。