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.


  • 相关阅读:
    java I/O框架 (三)基本流
    java I/O框架 (二)文件操作(File)
    java I/O框架 (一)总览
    8.内部类
    7.权限
    6.继承
    5.代码块
    4.面向对象
    3控制语句
    PHP ksort() 函数
  • 原文地址:https://www.cnblogs.com/YYC-0304/p/9500225.html
Copyright © 2011-2022 走看看