Нужен код, который выделяет из строки слова (Pascal)

[bot0]

код, который выделяет из строки слова
Потом, для каждого слова проверять, таким кодом:
Код:


function isDubleLettrers(OneWord : string) : boolean;
var i:integer;
isFound : boolean;
begin
isFound := false; {вначале считаем, что таких букв нет}

i := 1; {начиная с первой буквы}
while (i<Length(OneWord)) and (Not isFound) do begin
{если текущая буква равна следующей, значит нашли такую пару!}
if OneWord[i] = OneWord[i+1] then
isFound := true;
inc(i);
end;

isDubleLettrers := isFound;
end;

Само задание:
Задана строка, что состоит из слов, разделенная одним или несколькими пропусками.Подсчитать количество слов которые содержат пары соседних одинаковых букв.

Если кто знает другие методы решения данной задачи прошу написать в виде программки.

[Hacker19_90]

код, который выделяет из строки слова

j := 1;
for i := 1 to length(s) do
begin
    if (s[i] <> ' ') and (i <> length(s)) then
    begin
        ts[j] := s[i];
        j++;
    end
    else
    begin
        if i = length(s) then ts[j] := s[i];
        writeln (ts); {Вот здесь слово должно быть сформированно, можешь вызывать функцию}
        ts := '';
        j := 1;
    end;
end;

[bot0]

как полностью будет выглядеть рабочая программка с моим и вашим кодом? ...у меня выбивает ошибку...

[Hacker19_90]

Ну можно и так

{Обьявление переменных и т.д}
{Потом ваша функция}
function isDubleLettrers(OneWord : string) : boolean;
var i:integer;
isFound : boolean; 
begin
isFound := false; {вначале считаем, что таких букв нет}

i := 1; {начиная с первой буквы}
while (i<Length(OneWord)) and (Not isFound) do begin 
{если текущая буква равна следующей, значит нашли такую пару!}
if OneWord[i] = OneWord[i+1] then 
isFound := true;
inc(i);
end;

isDubleLettrers := isFound;
end;

{Потом где-то в теле программы}
count := 0;
j := 1;
for i := 1 to length(s) do
begin
    if (s[i] <> ' ') and (i <> length(s)) then
    begin
        ts[j] := s[i];
        j++;
    end
    else
    begin
        if i = length(s) then ts[j] := s[i];
        if isDubleLettrers(ts) = true then Inc(count);
        ts := '';
        j := 1;
    end;
end;
Writeln ('Количество слов равно ', count);

[MyLastHit]

Hacker19_90, операция извлечения инкремента в паскале не i++, а inc(i); или i:=i+1;

[Hacker19_90]

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

Hacker19_90, операция извлечения инкремента в паскале не i++, а inc(i); или i:=i+1;

Спасибо! Я заметил!

[MyLastHit]

Это так, для автора. А то будет бошку ломать почему не пашет.

[bot0]

спс...MyLastHit