Working with strings in Pascal

Question

Please. help me determine how many small and big letters "s" and the sign "=" occurs in a given text. Print lines in which these characters are missing.

How do I implement validation text and how to recognize the line where there is no such marks

Help with the program. I would be very grateful!

my programm for now. what to do next,

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.

What do you have so far? This is not "do my homework" – Marco van de Voort Mar 20 '14 at 16:50 — Marco van de Voort, Mar 20 '14 at 16:50

score 1 · Answer 1 · answered Mar 20 '14 at 17:49

You need to implement counters to keep track of whether you've found any of the characters or not, so you'll know what to do.

Something like this should get you started:

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.

Working with strings in Pascal

1 Answers1