Проблемка с функцией pos() строки

[Риндера]

Смысл задачки:
Найти количество слов в строке, первый и последний символ в которых совпадают.
Программка пока пишется для правильного текста, то есть без лишних пробелов, знаков и тп.

Тут я нахожу первый пробел, запоминаю всё от начала строки до пробела как слово, проверяю его, обрезаю исходную строку на его длину, и так пока вся строка не кончится.

var st, word: string;
    i, k, sum: integer;
begin
sum := 0;
read(st);
repeat
  k := pos(' ', st)-1;
  for i := 1 to k do
    word[i] := st[i];
  if word[1] = word[k+1] then inc(sum);
  delete(st, 1, k+1);
until pos(' ', st) = 0;
writeln('Number of words in which the first and last character of identical:', sum);
readln;
end.

А теперь суть проблемы:
программа умирает на строке

  k := pos(' ', st)-1;

Выдаёт много английский букаф на счет адресов каких-то и закрывается)

Ниче не пойму, в теории всё работает хорошо... ^_^"

[Mad_Cat]

var st, word: string;
                 k, sum: integer;
begin
sum := 0;
read(st);
repeat
st:=st+' ';
k := pos(' ', st);
word:=copy(st,1,k-1);
if word[1]=word[length(word)] then sum:=sum+1;
delete(st,1, k);
st:=trim(st);
until pos(' ', st) = 0;
writeln('Number of words in which the first and last character of identical:', sum);
readln;
end.

[Риндера]

Спасибо. Он оказывается просто ругался на русские буквы. С английскими ЭТОТ код работает, а с русскими такая же ошибка =)

А что вот это значит?

  st:=trim(st);

П.С. оказывается не от букв зависит, а от того, есть ли пробелы в изначальной строке... Если ввожу одно слово - ошибка %)

[Mad_Cat]

Удаляет начальные и конечные пробелы в строке

[Риндера]

Ясно, спасибо большое =)

[Риндера]

А смотри теперь какая пррблемка возникла:
1. Если использовать цикл с постусловием, то нельзя вводить одно слово.
2. Если цикл с предусловием, то он не выполняется для последнего слова.

Как из этого можно выйти?) Проверять, последнее ли слово, и если да, то добавлять пробел в конец?


Upd. Извиняюсь за свою тугодумность, проблема оказалась совсем не проблемой)

[Mad_Cat]

А смотри

Если использовать цикл с постусловием, то нельзя вводить одно слово.

можно -все работает проверено

Если цикл с предусловием, то он не выполняется для последнего слова.

а так??

var st, word: string;
                 k, sum: integer;
begin
sum := 0;
readln(st);
st:=st+' ';
while st <>'' do begin
st:=st+' ';
k := pos(' ',st);
word:=copy(st,1,k-1);
if word[1]=word[length(word)] then sum:=sum+1;
delete(st,1, k);
st:=Trim(st);
end;
writeln('Number of words in which the first and last character of identical:', sum);
readln;
end.

[pray_driver]

Риндера, а нельзя вот так вот:

Идем по строке, натыкаемся на непробельный символ. Оба-на, значит это начало слова, отмечаем это каким-нибудь логическим идентификатором. идем дальше, до тех пор, пока не будет пробел (или конец строки). Если наткнулись на пробел - смотрим поледний непробельный символ. Если он совпал с первым - увеличиваем счётчик на 1, если нет - ну и бог с ним, идентификатору слова ставим false, и ищем следующее слово либо конец строки

Интересный рассказ получился Но помоему всё просто

[Риндера]

pray_driver, это тоже вариант, но разбивать на слова реально проще.
Mad_Cat, спасибо за уделенное время)
Но я в начала цикла с постусловием просто добавила

if pos(' ', st) = 0 then st := st + ' ';

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

можно -все работает проверено

У меня все-таки с ошибкой вылетает... Может из-за того что пишу в делфи,а не турбопаскале...

[pray_driver]

Сообщение от Риндера

pray_driver, это тоже вариант, но разбивать на слова реально проще.

Function count_words(st : String) : Integer;
Var
    k : Integer; //счетчик слов с нужным свойством
    i : Integer; // бегунок
    sn : String[1]; //cимвол начала слова
begin
    k:=0;
    sn := '';
    st := st + ' ';  // прибавим к строке последний символ чтобы был пробел
    for i := 1 to length(st) do
    begin
        if (st[i] <> ' ') and (sn = '') then sn := st[i] // запоминаем символ, если не пробел и начало слова
        else if (st[i] = ' ') and (sn <> '') then
        begin
            if sn = st[i-1] then inc(k);     // сравниваем с последним символом в слове,если совпадает: +1
            sn := ''
        end
    end;
    count_words := k;
end;

-да ладно! Вот без лишних функций прошлись и всё посчитали