программа со string

[AlexP777]

Помогите реализовать задачу:

В заданной строке символов, состоящей из слов, разделенных пробелами, подсчитать количество слов, заканчивающихся буквой А.

должен быть цикл для подсчета? думал как то сделать на length, но оно то считает длинную всей строки.

помогите.

[Arhangel7]

простой перебор строки
заводим доп переменную тип string
определяем длинну задонной строки
считываем каждый запис. символ и добовляем его в доп перем, пока не встретим пробел - вот и слово, смотрим его длинну, читаем его последний символ, если буква А, то счетчик увеличиваем на 1 и тд

[AlexP777]

со стрингами мало работал, можно конкретно сам код что бы разобрался?

[Mad_Cat]

со стрингами мало работал

а тут со "стрингами" и не надо, надо со строками

можно конкретно сам код что бы разобрался?

Контакты в профиле - договоримся!

[Wadduh]

Не проверял, но должно работать..

for i:=1 to length(str) do 
   if (str[i]=' ') and (str[i-1]='a') then count:=count+1;

Читаем строку посимвольно..если встречаем пробел, и предыдущий символ это "а", то увеличиваем счетчик.
Работает при условии, что пробел между словами всегда только один..если нет, то нужно реализовать обратный цикл до первого встретившегося символа и проверять уже его..
Или немного по другому..

for i:=1 to length(str) do
   if (str[i]='a') and (str[i+1]=' ') then count:=count+1;

Поясню..
Если встречаем "а" и следующий символ - пробел, то увеличиваем счетчик.
Еще нужно отдельно реализовать провереку последнего слова строки..

[Serge_Bliznykov]

Wadduh, а Вас не смущает, что в первом примере i-1 выйдет на нулевой символ строки,
а во втором примере, i+1 (при i=Length(str) ) - выйдет ЗА пределы самой строки?!

[Poma][a]

а Вас не смущает, что в первом примере i-1 выйдет на нулевой символ строки,а во втором примере, i+1 (при i=Length(str) ) - выйдет ЗА пределы самой строки?!

Фигня
В первом варианте нам вообще ничем нехорошим это не грозит.
Во втором варианте все компиляторы(которыми богаты) молчат.

Меня дак больше смущает имя самой строки..

[Sciv]

Меня дак больше смущает имя самой строки..

Допустимое имя. Но не рекомендуется. Хотя бы чтоб самому не путаться

Фигня

Не фигня, а некорректный стиль кода. Кроме того - один лишний цикл. Для быстрых компов конечно, незначительно.

[Poma][a]

Кроме того - один лишний цикл.

Какой цикл? Может все-таки итерация?

Не фигня

Там же смайлик был

[Stilet]

Фигня

Ошибаешся. Это далеко не фигня. Это скрытый баг, который может вылится в богатейшую проблему.
Я бы искал так:

i:=pos(' a',s);
while i<>0 do begin
 inc(k);
 delete(s,1,i+2);
 i:=pos(' a',s);
end;