NOIP2011复赛普级组 统计单词数
2016-04-08 21:47
309 查看
统计单词数" TITLE="NOIP2011复赛普级组 统计单词数" />
统计单词数" TITLE="NOIP2011复赛普级组 统计单词数" />
解题思路:先把读入的字符串全部转为大写,然后用循环对字符串进行查找,找到就储存位置,并且统计次数,最后输出,如果没有找到就输出-1。
程序:
var
word,article:ansistring;
i,p,s,len:longint;
begin
readln(word);
readln(article);
word:=' '+upcase(word)+' ';
article:=' '+upcase(article)+' ';
p:=-1;s:=0;
len:=length(word);
for i:=1 to length(article)-len+1 do
if
copy(article,i,len)=word then
begin
if p=-1 then p:=i-1;
inc(s);
end;
if p=-1 then write(p)
else write(s,' ',p);
end.
版权属于: Chris
原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v6ta.html
转载时必须以链接形式注明原始出处及本声明。
相关文章推荐
- NOIP2011复赛普级组 数字反转
- NOIP2011复赛普级组 数字反转
- NOIP2010 普级组 导弹拦截
- NOIP2010 普级组 导弹拦截
- NOIP2010 普级组 三国游戏
- NOIP2010 普级组 三国游戏
- 2012年分区联赛提高组第一天第一题…
- 2012年分区联赛提高组第一天第一题…
- Codeforces Round #316 (Div. 2) D 【dfs序+二分】
- swust 1646 迷宫与宝藏
- hexo资源--theme等
- Linux内核分析(七)
- cenos安装jdk
- JS代码试例
- 2012年分区联赛普级组第四题 …
- 2012年分区联赛普级组第四题 …
- 2012年分区联赛普级组第三题 摆花
- 2012年分区联赛普级组第三题 摆花
- 2012年分区联赛普级组第二题 寻宝
- 2012年分区联赛普级组第二题 寻宝