Алгоритмы обработки строк

@---->HIGH<---- · Регистрация: 17.02.2010

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

Дана строка символов. Подсчитать, сколько в ней слов, начинающихся с буквы «а».
кто знает как решить подскажите плз.

@Mawrat · 18.03.2010, 12:19

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей.
  D = [' ', '.', ',', ':', ';', '!', '?', Char(9)];
var
  StrSrc : String;
  i, Pos1, Cnt : Integer;
begin
  StrSrc := Edit1.Text;
  Pos1 := 0;
  Cnt := 0;
  for i := 1 to Length(StrSrc) do begin
    //Отслеживаем начало слова.
    if not (StrSrc[i] in D) and (Pos1 = 0) then begin
      //'а', 'А' - буквы кириллицы.
      if StrSrc[i] in ['а', 'А'] then Inc(Cnt);
      Pos1 := i;
    end;
    //Отслеживаем конец слова.
    if ( (i = Length(StrSrc)) or (StrSrc[i] in D) ) and (Pos1 > 0) then Pos1 := 0;
  end;
 
  //Показываем ответ.
  ShowMessage('Количество слов, начинающихся с букв "а" или "А" равно: ' + IntToStr(Cnt));
end;

@---->HIGH<---- 0 / 0 / 0 Регистрация: 17.02.2010 Сообщений: 11
		1
	Алгоритмы обработки строк 18.03.2010, 08:39. Показов 1181. Ответов 1 Метки нет (Все метки) Дана строка символов. Подсчитать, сколько в ней слов, начинающихся с буквы «а». кто знает как решить подскажите плз. 0

	18.03.2010, 12:19

Алгоритмы обработки строк

Решение