急!!!!!!!字符串统计问题

2025-12-18 02:32:21

推荐回答（2个）

回答1：

program dc;
var a:string;
l,s,k:integer;
begin
readln(a);
l:=lenth(a);
s:=1;
while l>=s do
begin
while a[s]=' ' do s:=s+1;
k:=k+1;
while a[s]<>' ' do s:=s+1;
end;
writeln(k);
end.

回答2：

这是编译原理课程的内容,有书的话研究一下,具体编程实现还要靠自己.

一个比较笨的算法:
一个一个字符读入,如果不是" "或","或"."或"$",将该字符放到一个数组中,是的话,前面的数组就是一个单词了.数组清空,继续上述工作,直到遇到"$"为止.

因为PASCAL我不会它的语法,所以觉得用C写出来帮助也不大,所以用汉字描述了一下算法,希望对您能有帮助!