在 Pascal 中处理字符串答案

【问题标题】：Working with strings in Pascal在 Pascal 中处理字符串
【发布时间】：2014-03-20 16:20:51
【问题描述】：

请。帮助我确定给定文本中有多少个大小写字母“s”和符号“=”。打印缺少这些字符的行。

如何实现验证文本以及如何识别没有此类标记的行

帮助程序。我将不胜感激！

我现在的程序。下一步该做什么，

program four;

var
  i : integer;
  MyString : string;
  MyChar : char;
begin
  read( MyString );

  for i := 1 to MyString.Length do
    begin      
      case ( MyString[i] ) of
      'S' : writeln( i );
      's' : writeln( i );
      '=' : writeln( i );
    end;  

  end;
end.

【问题讨论】：

到目前为止你有什么？这不是“做我的功课”

标签： string function pascal procedures turbo-pascal

【解决方案1】：

您需要实现计数器来跟踪您是否找到了任何字符，这样您就知道该怎么做了。

这样的事情应该可以帮助您入门：

program four;

var
  i : integer;
  LowerS, UpperS, Equals: Integer;
  MyString : string;
begin
  LowerS := 0;
  UpperS := 0;
  Equals := 0;

  Write('Enter text to scan: ');
  ReadLn( MyString );

  for i := 1 to Length(MyString) do
  begin      
    case ( MyString[i] ) of
      'S' : Inc(UpperS); 
      's' : Inc(LowerS); 
      '=' : Inc(Equals);
    end;  
  end;
  if (UpperS + LowerS + Equals) = 0 then
    WriteLn('No valid characters found')
  else
    WriteLn(Format('S: %d s: %d =: %d', [UpperS, LowerS, Equals]));
  ReadLn;
end.

【讨论】：