Задача по обработке строк

[Malyshka]

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

[andrewpalkin]

1. Идти по предложению с начала до конца .
2. Находить начало слова и проверять , если оно начинается с заданной буквы , что считать его .

Как определить начало слова : Это или начало предложения , или перед началом слова нужно проверить , есть один из символов разделителей , таких как пробел , запятая , точка или т.п. Русский язык в помощь

[Diplomnik]

Function Check(S, bukva:string):integer;
var i:integer;
NumberOfWords:integer;
begin
if copy(S,0,1)=bukva then (NumberOfWords:=1)
else NumberOfWords:=0;
i:=1;
repeat
if (copy(S,i,2)=(' '+bukva)) then NumberOfWords:=NumberOfWords+1;
i:=i+1;
until (i=Lenght(S));
Chek:=NumberOfWords;
end;

Как-то так...

[Malyshka]

уффф.....Спасибо)))) А тебе не сложно будет словами объяснить. Чтоб если что, я смогла сама всё сделать...

[andrewpalkin]

Сообщение от Diplomnik

Function Check(S, bukva:string):integer;
var i:integer;
     NumberOfWords:integer;
begin
if copy(S,0,1)=bukva then (NumberOfWords:=1)
  else NumberOfWords:=1;
i:=1;
    repeat
       if (copy(S,i,2)=(' '+bukva)) then NumberOfWords:=NumberOfWords+1;
    until (i=Lenght(S));
Chek:=i;
end;

Как-то так...

Скажи , а зачем вот это :

if copy(S,0,1)=bukva then (NumberOfWords:=1)
else NumberOfWords:=1;

Если в обоих случаях , NumberOfWords будет равен 1 .

Я думаю , ты хотел сделать вот так :

if copy(S,0,1)=bukva then (NumberOfWords:=1)
else NumberOfWords:=0;

[andrewpalkin]

Сообщение от Malyshka

уффф.....Спасибо)))) А тебе не сложно будет словами объяснить. Чтоб если что, я смогла сама всё сделать...

Словами , это то что я тебе написал Алгоритм так и работает .

[Malyshka]

Блиииин...как всё это сложно((((

[andrewpalkin]

Сообщение от Malyshka

Блиииин...как всё это сложно((((

Программирование вообще не простая вещь , но если начать разбираться , то все станет просто

[Diplomnik]

Function Check(S, bukva:string):integer; - задаем функцию, сразу после слова implementation.
S - твоя анализируемая строка, bukva - искомая буква, как ни странно)

var i:integer; - целая переменная для переборки строки по символам
NumberOfWords:integer; - целая переменная для счетчика слов, начинающихся с введенной буквы

if copy(S,0,1)=bukva then (NumberOfWords:=1) - проверяем первую букву - если она искомая, то первое слово идет в счетчик

в противном случае не идет -
else NumberOfWords:=0;
i:=1; - начинаем поиск уже не с первого символа (иначе i было бы=0 )

repeat - ищем слова по принципу:

if (copy(S,i,2)=(' '+bukva)) then NumberOfWords:=NumberOfWords+1;
если имеется 2 подряд идущих символа: ' '+bukva (т.е. твоя буква рядом с пробелом), то наращиваем счетчик.

until (i=Lenght(S)); и всё это, покуда не кончится строка
Chek:=NumberOfWords; - возвращаем функции значение числа слов
end;

при использовании будет так (Для буквы У)
N:=Check(S, 'у');

В тексте были ошибки, сейчас исправлю...

[Diplomnik]

andrewpalkin, я заметил =) Я тоже иногда лагаю...