заданная буква

@Alinina · Регистрация: 02.03.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте господа программисты! Помогите пожалуйста для зачёта.

Дан текст, определить количество слов, в которых содержится хотя бы одна заданная буква?

Очень надеюсь на вашу помощь.

@rangerx · 18.03.2011, 22:42

Pascal

program prog;
 
const
  delim: set of char = [' ', '!', ',', '.', '?'];
 
var
  str, curWord: string;
  i, len, count: integer;
  ch: char;
begin
  Write('input string: ');
  ReadLn(str);
 
  Write('search for char: ');
  ReadLn(ch);
 
  count:= 0;
  i:= 1;
  len:= Length(str);
 
  while (i <= len) do
  begin
      if(str[i] in delim) then
          repeat inc(i) until (i > len) or (not (str[i] in delim))
      else
      begin
          curWord:= '';
 
          while (i <= len) and (not (str[i] in delim)) do
          begin
              curWord:= curWord + str[i];
              inc(i);
          end;
 
          if Pos(ch, curWord) <> 0 then inc(count);
      end;
  end;
 
  Write('result: ', count);
  ReadLn;
end.

@Alinina 0 / 0 / 0 Регистрация: 02.03.2011 Сообщений: 10
		1
	заданная буква 16.03.2011, 20:51. Показов 1036. Ответов 1 Метки нет (Все метки) Здравствуйте господа программисты! Помогите пожалуйста для зачёта. Дан текст, определить количество слов, в которых содержится хотя бы одна заданная буква? Очень надеюсь на вашу помощь. 0

	18.03.2011, 22:42

заданная буква

Решение