Question

pascal 语言:输入一个英文句子，以‘.'结束，单词间用空格隔开。

再输入一个单词，找出句子中与那个单词相同的单词，是第几个单词。如不存在，输出句子中单词字符总个数。
请把整个程序的思路说清楚。
如输入：This is a book. is
则输出：2
如输入:How are you? he
则输出:9

Answer 1

var st,dc:string;
p,s,d,k:longint;
begin
readln(st);
readln(dc);
p:=pos(dc,st);
while p>0 do
begin
s:=s+1;
delete(st,1,p+length(dc));
p:=pos(dc,st);
end;
if s=0 then
begin
for k:=1 to length(st) do
if (ord(st[k])>=65)and(ord(st[k])<=90)or(ord(st[k])>=97)and(ord(st[k])<=122) then d:=d+1;
writeln(d);
end
else writeln(s);
end.

希望能帮助你哦！

Answer 2

前面写错了，不好意思

Answer 3

var
a,b,c,i,j,k:integer;
st,jl,s:ansistring;
begin
a:=0;
readln(st);
st:=st+' ';
for i:=1 to length(st) do
begin
if st[i]=' '
then
begin
if a>0
then begin
str(a,jl);
s:=s+jl+',';
a:=-1;
end
else dec(a);
end;
inc(a);
end;
delete(s,length(s),1);
write(s);
end.