Question

pascal：首届信息学奥林匹克竞赛第二题：查找单词

【问题描述】输入一个英文句子，例如：“This is a book.”，可以看到句子是以“.”来作为结束符号的，并且单词之间以一个空格来分隔。接着再输入一个单词a$，请找出首次在句子中出现的与a$相同的单词，是句子中的第几个单词，若不存在，则输出该句子中单词字符的总个数。
例如对上句子而言，若输入单词“is”，则应输出:2
若输入单词“isa”，则应输出:11
文件中有一句英文句子，表示最小的m。
【输入样例】This is a book.
is
【输出样例】2

Answer 1

如果

This is a book.  
                     is在一行，那么把我那句注释掉的去掉注释，然后把下一句加上注释

Answer 2

var s,q:string;
i,a,u,p,x,j:longint;
begin
readln(s);
readln(q);
for i:=1 to length(s) do
if (s[i]<>' ')and(s[i]<>'.') then a:=a+1;u:=0;
for i:=1 to length(s) do begin
p:=0;
if s[i]=q[1] then begin x:=i+1; j:=2;
repeat
if (s[x+1]<>q[j])and(q[j]<>' ')then p:=1;
x:=x+1;j:=j+1;
until(q[j]=' ');
end;
if p=0 then begin writeln(i);u:=1;
exit;end;
if u=0 then writeln(a);
end.

追问

不是很懂

追答

哪里不懂？
（在倒数第二个end；后面再加一个end；）

追问

都不是很懂，不了解你写的什么意思

追答

先记录共几个字母，在从第一个字母开始，如果有一个和要求单词的第一个字母符合的话，就依次向后推，如果后面不符合就舍去到下一个，如果符合就输出，然后跳出循环。如果没有符合的（也就是u=0）的话，就输出字母的数量。（编的有点快，程序可能不太对。。。）