帮助Pascal编写单词计数器

如果你知道哪个字母,你只需要保留一个计数器,不需要数组。

如果你不知道是哪一个字母,请保留26个计数器。很蠢,但按你的要求做。

首先要做的是定义构成字母的字符集,或者反过来定义构成非字母的字符集。

如果空格字母和第一个单词匹配,则对其进行计数。

(S) 是您的输入字符串;

1. 创建一个从1到(S)-1长度的for循环。
3. 如果步骤2中的条件匹配,则递增计数器。

注意循环大小的负号。

另外,请记住,字符串的第一个字母可能是您要匹配的字母,而上面定义的循环不会提取这个字母。

如果您需要使代码更智能,因为它可以定位特定的字母,而不是硬编码的“t”,那么您可以将请求的字符作为参数传递给循环所在的函数/过程。

从我头上掉下来-没有测试过

function WordCount(const S: string; const C: Char): Integer;
const
  ValidChars: Set of Char [A..Z, a..z]; // Alter for appropriate language
var
  i : Integer;
  t : string;
begin
  Result := 0;
  if Length(S) <> 0 then
  begin
    t := Trim(S); // lose and leading and trailing spaces
    t := t + ' '; // make sure a space is the last char
    repeat
      if (t[1] in ValidChars) and (t[1] = C then
        inc(Result);
      i := Pos(' ', t);
      t := Copy(t(i+1, Length(t));
    until Length(t) = 0;
  end;
end;

为什么需要数组或case语句?