zoukankan      html  css  js  c++  java
  • 分数线划定pascal程序

    题意

    把分数从大到小排序,同分数的,学号小的排前。

    找出分数大于等于,第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.


  • 相关阅读:
    织梦开发——相关阅读likeart应用
    织梦标签教程
    织梦专题调用代码
    HIT 2543 Stone IV
    POJ 3680 Intervals
    HIT 2739 The Chinese Postman Problem
    POJ 1273 Drainage Ditches
    POJ 2455 Secret Milking Machine
    SPOJ 371 Boxes
    HIT 2715 Matrix3
  • 原文地址:https://www.cnblogs.com/YYC-0304/p/9500225.html
Copyright © 2011-2022 走看看