2017 年 10月随笔档案 - 银叶草

摘要：分析直接依题意枚举，注意：每个单词的前缀长度并不一定相等。程序：varn,i,j,l,k,bz:longint;a:array[0..100]of string;s:array[0..100]of longint;function check(x,y:string... 阅读全文

posted @ 2017-10-21 15:36 银叶草阅读(98) 评论(0) 推荐(0)

摘要：程序：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,'sor... 阅读全文

posted @ 2017-10-21 15:20 银叶草阅读(75) 评论(0) 推荐(0)

摘要：程序：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 ... 阅读全文

posted @ 2017-10-20 20:33 银叶草阅读(82) 评论(0) 推荐(0)

摘要：程序：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 ... 阅读全文

posted @ 2017-10-20 20:26 银叶草阅读(84) 评论(0) 推荐(0)

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 rea... 阅读全文

posted @ 2017-10-09 16:14 银叶草阅读(73) 评论(0) 推荐(0)

摘要：程序：varn,i,j,t,k,sum:longint;a:array[0..10000] of longint;begin assign(input,'lazhu.in'); reset(input); assign(output,'lazhu.o... 阅读全文

posted @ 2017-10-08 20:31 银叶草阅读(52) 评论(0) 推荐(0)

摘要：分析水题一道，提交的时候把文件夹的名字打错了，结果没了100分……程序consta:array[1..10]of string=('unu','du','tri','kvar','kvin','ses','sep','ok','nau','dek');varx:lo... 阅读全文

posted @ 2017-10-08 20:28 银叶草阅读(93) 评论(0) 推荐(0)

摘要：分析 1.等差数列因为2个数之间的值是固定值b，若aa的话就判断(c-a) mod b等不等于0，等于0就是在等差数列中，这时候不累加，否则累加。程序：vara,b,c,d,up,ans:int64;begin assign(input,'shulie.in')... 阅读全文

posted @ 2017-10-07 20:17 银叶草阅读(89) 评论(0) 推荐(0)

摘要：分析 a[i]表示第i只蚂蚁是否相碰。 1.因为横纵坐标为-1000~1000，就枚举步数2000次就好了，因为他可能在某个带小数的坐标相碰，所以每一步走0.5而不能走1，这样的话步数就是4000次0.5而不是2000次1. 2.每一次把相碰的蚂蚁全部找出来，并... 阅读全文

posted @ 2017-10-07 20:16 银叶草阅读(106) 评论(0) 推荐(0)

摘要：程序：constmods:longint=1000000007;varr,c,min,max,i:longint;sum1,sum2:array[0..4001]of int64;function work(t:longint):int64;vari,j:longin... 阅读全文

posted @ 2017-10-07 20:13 银叶草阅读(67) 评论(0) 推荐(0)

摘要：分析其实就是求组合程序：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:long... 阅读全文

posted @ 2017-10-06 16:40 银叶草阅读(72) 评论(0) 推荐(0)

摘要：程序：varn,t,f:longint;zfc:string;begin assign(input,'negii.in'); reset(input); assign(output,'negii.out'); rewrite(output); ... 阅读全文

posted @ 2017-10-06 16:38 银叶草阅读(81) 评论(0) 推荐(0)

摘要：分析水题一道，5分钟搞定。程序：varn,i,t:longint;begin assign(input,'bri.in'); reset(input); assign(output,'bri.out'); rewrite(output); ... 阅读全文

posted @ 2017-10-06 16:36 银叶草阅读(102) 评论(0) 推荐(0)

银叶草