摘要: 题意找出最后一张覆盖在点上的地毯编号分析先输入,再从后面找,这样会更快varn,i,j:longint;a:array[0..20]of string;b,l:array[0..20]of longint;begin readln(n); for i:=1... 阅读全文
posted @ 2017-01-12 21:02 银叶草 阅读(122) 评论(0) 推荐(0) 编辑
摘要: 题意找出最大的数和它的序号分析先长度排序,长度相同,就字符串排序varn,i,j:longint;a:array[0..20]of string;b,l:array[0..20]of longint;begin readln(n); for i:=1 to... 阅读全文
posted @ 2017-01-12 20:45 银叶草 阅读(102) 评论(0) 推荐(0) 编辑
摘要: 题意把分数从大到小排序,同分数的,学号小的排前。找出分数大于等于,第m*1.5(向下取整)名的分数,的人。分析开始先排序,再一个一个找varn,m,i,j,tj:longint;k,s:array[0..10000]of longint;t:real;begin ... 阅读全文
posted @ 2017-01-12 19:38 银叶草 阅读(154) 评论(0) 推荐(0) 编辑
摘要: 题意输入一段数,去掉相同的数,再排序分析一开始输入的时候,就完成“去重”,再排序constmaxn=100000;varn,t,i:longint;a,b:array[0..maxn]of longint;procedure init;vari,w:longint;b... 阅读全文
posted @ 2017-01-12 16:19 银叶草 阅读(170) 评论(0) 推荐(0) 编辑
摘要: 题意找出在单词里出现最多的单词的次数,再找出在单词里出现最少的单词的次数,最多和最少的次数相减,如果结果是素数,那么就是Lucky Word,不然就是No Answer分析假设maxn是单词中出现次数最多的字母的出现次数,minn是单词中出现次数最少的字母的出现次数,... 阅读全文
posted @ 2017-01-12 15:33 银叶草 阅读(141) 评论(0) 推荐(0) 编辑
摘要: 题意:把一串数放进一个字典里,如果字典里没有相同的数,就把最先放的那一类数拿出来,把当前的数放进去,再统计一次。分析整个查字典过程如下:每行表示一个单词的翻译,冒号前为本次翻译后的内存状况:空:内存初始状态为空。第一个数时. 1:查找单词1 并调入内存。第二个数时. ... 阅读全文
posted @ 2017-01-12 14:41 银叶草 阅读(110) 评论(0) 推荐(0) 编辑
摘要: 这题有点像电子老鼠闯迷宫,也是用广搜来做的我是用字符来输入的constdx:array[1..4]of longint=(1,-1,0,0);dy:array[1..4]of longint=(0,0,1,-1);varpx,py,x,y,n,s,tail:longi... 阅读全文
posted @ 2017-01-12 10:56 银叶草 阅读(135) 评论(0) 推荐(0) 编辑
Live2D