- 博客(13)
- 收藏
- 关注
原创 2017年10月21日普及组 简单单词
分析 直接依题意枚举,注意:每个单词的前缀长度并不一定相等。程序:varn,i,j,l,k,bz:longint;a:array[0..100]of string;s:array[0..100]of longint;function check(x,y:string;z:longint):longint;begin if copy(x,1,z)<>copy(y,1,z) then
2017-10-21 15:35:49 264
原创 2017年10月21日普及组 排名
程序:varn,i,j,x,z,w:longint;a,b,c,d,p,y:array[0..200]of longint;begin assign(input,'sort.in'); reset(input); assign(output,'sort.out'); rewrite(output); readln(n); for i:=1 to
2017-10-21 15:19:35 352
原创 2017年10月18日普及组 文件名排序
程序:varl,n,i,j,p:longint;a,b,c,s:array[1..1000]of string;w:string;begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do begin p:=pos('.',a[i]); s[i]:=a
2017-10-20 20:33:17 239
原创 2017年10月18日普及组 面积最大
程序:varr,i,j,a,b:longint;ti,tj,best,t:real; begin readln(r); best:=0; for i:=1 to 2*r-1 do for j:=1 to 2*r-1 do begin ti:=sqrt(r*r-(i/2)*(i/2))*2; tj:=sqrt(r*r-(j/
2017-10-20 20:26:15 204
原创 2017年10月08日 上学
程序:vari,j,k,n,m,time:longint;u,v,w:array[0..55]of longint;t:array[0..55,1..2]of longint;f:array[0..10010,0..55]of longint;begin readln(n,time,m); for i:=1 to m do begin readln(u
2017-10-09 16:14:10 413
原创 2017年10月08日普及组 蜡烛
程序:varn,i,j,t,k,sum:longint;a:array[0..10000] of longint;begin assign(input,'lazhu.in'); reset(input); assign(output,'lazhu.out'); rewrite(output); readln(n); for i:=1 to n d
2017-10-08 20:30:53 308
原创 2017年10月08日普及组 世界语
分析 水题一道,提交的时候把文件夹的名字打错了,结果没了100分……程序consta:array[1..10]of string=('unu','du','tri','kvar','kvin','ses','sep','ok','nau','dek');varx:longint;begin assign(input,'shijie.in'); reset(input);
2017-10-08 20:28:16 247
原创 2017年10月07日普及组 数列
分析 1.等差数列因为2个数之间的值是固定值b,若a<=u就可以直接求出a~u之间等差数列的数量(u-a) div b+1。 2.等比数列直接做就好了,因为是逐级乘法,所以速度挺快的,不过要判断*1的情况,如果等比数列某项c小于等差数列的初始项a就一定不在等差数列中,这时候就可以累加了,c=a的时候在等差数列中已经累加过了,如果c>a的话就判断(c-a) mod b等不等于0,等于0就是在等差
2017-10-07 20:17:22 242
原创 2017年10月07日普及组 蚂蚁
分析 a[i]表示第i只蚂蚁是否相碰。 1.因为横纵坐标为-1000~1000,就枚举步数2000次就好了,因为他可能在某个带小数的坐标相碰,所以每一步走0.5而不能走1,这样的话步数就是4000次0.5而不是2000次1. 2.每一次把相碰的蚂蚁全部找出来,并且标记,在找的过程中用另外的数组b标记,因为正在找的过程是参照上一次经过排除后的蚂蚁来找的,这一次标记不能用上去。 3.做完以
2017-10-07 20:16:11 266
原创 2017年10月07日普及组 单元格
程序:constmods:longint=1000000007;varr,c,min,max,i:longint;sum1,sum2:array[0..4001]of int64;function work(t:longint):int64;vari,j:longint;ans,tmp:int64;begin if t<8 then exit(0); ans:=0;
2017-10-07 20:13:05 201
原创 2017年10月05日普及组 比萨
分析 其实就是求组合程序:varn,m,i,x,y,j:longint;ans:int64;s:array[0..20] of longint;f:array[0..52] of longint;procedure dfs(x,y:longint);vari:longint;begin if x>n then begin for i:=1 to m d
2017-10-06 16:40:12 217
原创 2017年10月05日普及组 负进制
程序:varn,t,f:longint;zfc:string;begin assign(input,'negii.in'); reset(input); assign(output,'negii.out'); rewrite(output); readln(n); if n=0 then writeln('0'); t:=n; z
2017-10-06 16:37:40 247
原创 2017年10月05日普及组 约数
分析 水题一道,5分钟搞定。程序:varn,t,f:longint;zfc:string;begin assign(input,'negii.in'); reset(input); assign(output,'negii.out'); rewrite(output); readln(n); if n=0 then writeln('0');
2017-10-06 16:36:20 237
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人