帮助 Pascal 编写字计数器

Question

我必须用 Pascal 编写一个程序，它必须检测文本（由用户输入）中有多少单词以某个字母开头。我无法使用数组，您能给我一些关于从哪里开始的提示吗？

Answer 1

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

如果你不知道哪个字母，就保留 26 个计数器。愚蠢，但可以按照您的规范工作。

Answer 2

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

编写一个函数，该函数接受一个字符并根据该字符是否是字母返回一个布尔值。然后循环遍历字符串并为每个字符调用它。当您检测到非字母后面或字符串开头的字母时，如果它是目标字母，则增加计数器。

Answer 3

计算 SPACE LETTER 的实例以及第一个单词（如果匹配）。

Answer 4

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

1. 创建一个从 1 到 (S) - 1 长度的 for 循环。
2. 在循环内部，检查 (S)[i] = ' ' 和 (S)[i+1] = 't'，其中 i 是循环计数器，“t”是要计数的单词的开头字母。
3. 如果第二步中的条件匹配，则递增计数器。

注意循环大小的负一。

另外，请记住，字符串的第一个字母可能是您想要匹配的字母，并且上面定义的循环不会拾取该字母。

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

Answer 5

超出我的想象 - 未测试

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 语句？