2017年10月21日普及组 排名
程序:
var
n,i,j,x,z,w:longint;
a,b,c,d,p,y:array[0..200]of longint;
beginassign(input,'sort.in');reset(input);assign(output,'sort.out');rewrite(output);readln(n);for i:=1 to n dobeginreadln(x,y[i],z,d[i]);a[d[i]]:=x;b[d[i]]:=y[i];c[d[i]]:=z;end;for i:=1 to n-1 dofor j:=i+1 to n doif d[i]<d[j] thenbeginw:=d[i];d[i]:=d[j];d[j]:=w;end;for i:=1 to n-1 dofor j:=i+1 to n doif y[i]<y[j] thenbeginw:=y[i];y[i]:=y[j];y[j]:=w;end;p[y[1]]:=1;for i:=2 to n doif y[i]<>y[i-1] then p[y[i]]:=i else p[y[i]]:=p[y[i-1]];for i:=1 to n dowriteln(a[d[i]],' ',b[d[i]],' ',c[d[i]],' ',d[i],' ',i,' ',p[b[d[i]]]);close(input);close(output);
end.
转载于:https://www.cnblogs.com/YYC-0304/p/9500032.html
2017年10月21日普及组 排名相关推荐
- 2017年10月21日普及组 简单单词
分析 直接依题意枚举,注意:每个单词的前缀长度并不一定相等. 程序: var n,i,j,l,k,bz:longint; a:array[0..100]of string; s:array[0..10 ...
- 2017年10月08日普及组 世界语
分析 水题一道,提交的时候把文件夹的名字打错了,结果没了100分-- 程序 const a:array[1..10]of string=('unu','du','tri','kvar','kvin', ...
- 2017年10月18日普及组 文件名排序
程序: var l,n,i,j,p:longint; a,b,c,s:array[1..1000]of string; w:string; beginreadln(n);for i:=1 to n d ...
- 2017年10月18日普及组 面积最大
程序: var r,i,j,a,b:longint; ti,tj,best,t:real; beginreadln(r);best:=0;for i:=1 to 2*r-1 dofor j:=1 to ...
- 2017年10月08日普及组 蜡烛
程序: var n,i,j,t,k,sum:longint; a:array[0..10000] of longint; beginassign(input,'lazhu.in');reset(inp ...
- 2017年10月07日普及组 数列
分析 1.等差数列因为2个数之间的值是固定值b,若a<=u就可以直接求出a~u之间等差数列的数量(u-a) div b+1. 2.等比数列直接做就好了,因为是逐级乘法,所以速度挺快的,不过要判断 ...
- 2017年10月07日普及组 蚂蚁
分析 a[i]表示第i只蚂蚁是否相碰. 1.因为横纵坐标为-1000~1000,就枚举步数2000次就好了,因为他可能在某个带小数的坐标相碰,所以每一步走0.5而不能走1,这样的话步数就是4000次0 ...
- 2017年10月07日普及组 单元格
程序: const mods:longint=1000000007; var r,c,min,max,i:longint; sum1,sum2:array[0..4001]of int64;funct ...
- 2017年10月05日普及组 比萨
分析 其实就是求组合 程序: var n,m,i,x,y,j:longint; ans:int64; s:array[0..20] of longint; f:array[0..52] of long ...
最新文章
- 我以前一直没有真正理解支持向量机,直到我画了一张图!
- exe4j 报错 找不到class
- C++重载运算符最好声明为友元
- x86汇编-1(第一章—第二章)8086处理器基本情况
- angularjs中使用swiper时不起作用,最后出现空白位
- java导出hbase表数据_通用MapReduce程序复制HBase表数据
- TIDB报错statement count 5001 exceeds the transaction limitation, autocommit = false问题解决
- 什么时候出python4_什么?Python4要来了?快来看看Python之父怎么说
- php 查询sybase 实例,php访问sybase16
- 计算机学校综合管理系统论文,学校综合管理系统的设计与实现毕业设计论文.doc...
- c语言如何引用参数,关于exec:如何在C语言中使用适当的参数调用execl()?
- 机器学习实战——AdaBoost
- 在CentOS上部署开源博客系统Blog_mini
- 2020年苹果开学季+教育优惠详细讲解
- ceph 源代码分析 — peering 过程
- Win10下运行红色警戒2
- MFC 公用函数和函数指针和动态库
- 一个转来的简单T9输入法
- 煤矿 专用计算机,煤矿用电脑 井下计算机
- 儿童台灯用白炽灯还是led灯好?盘点眼科医生推荐的儿童LED