Строки. Посчитать количество слов, начинающихся на "к" и содержащих 2 буквы "а"

@Shurik · Регистрация: 24.04.2012

Помогите пожалуйста срочно
Пользователь вводит с клавиатуры слова через запятую. Посчитать и вывести на экран кол-во слов начинающихся на "к" и содержащих 2 буквы "а". Все слова на латинских буквах. Пример: к...а...а..

@qiwi · 24.04.2012, 16:18

Pascal

var a,j,l,d:word;
s:string;
begin
readln(s);
s:=s+',';
repeat
l:=0;
d:=pos(',',s);
if s[1]='k' then begin
for a:=1 to d-1 do
if s[a]='a' then l:=l+1;
end;
if l=2 then j:=j+1;
delete(s,1,d);
until d=0;
writeln(j);
end.

@Shurik · 24.04.2012, 17:21 **[ТС]**

Тут получилось так, что прога читает только первое слово и если оно подходит, то ставит 1. А все остальные слова не видит...

Добавлено через 15 минут
И напишите пожалуйста комменты к строкам программы, а то Я, честно говоря, вообще в паскале ничего не понимаю...

@qiwi · 24.04.2012, 18:39

программу я проверил на паскале, и все работает отлично

Pascal

var s:string;
c,b,l,k:word;
begin 
readln(s);
s:=s+',';    
repeat
l:=0;
c:=pos(',',s);   {определяем позицию первой запятой в строке, т.е символы стоящие до запятой образуют слово(по определению) и зная эту позицию, знаем и кол-во букв в слове}
if s[1]='k' then begin  {проверяем условие: если слово начинается с буквы к то...а иначе это слово не подходит}
for b:=1 to c-1 do   {если слово начинается с буквы к, то проверяем 2 условие - кол-во букв а}
if s[b]='a' then l:=l+1;   {зная кол-во букв в слове, проверим каждую, и посчитаем кол-во був а}
end;
if l=2 then k:=k+1; {если в слове 2 буквы а, то к счетчику нужных нам слов прибавим +1}
delete(s,1,c); {удалим слово, т.к мы его проверили, и если надо -посчитали}
until c=0;
writeln(k);
end.

@Shurik · 24.04.2012, 21:09 **[ТС]**

Отлично, спасибо! Все работает))

@Shurik 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
		1
	Строки. Посчитать количество слов, начинающихся на "к" и содержащих 2 буквы "а" 24.04.2012, 15:05. Показов 2409. Ответов 4 Метки нет (Все метки) Помогите пожалуйста срочно Пользователь вводит с клавиатуры слова через запятую. Посчитать и вывести на экран кол-во слов начинающихся на "к" и содержащих 2 буквы "а". Все слова на латинских буквах. Пример: к...а...а.. 0

@Shurik 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	24.04.2012, 17:21 [ТС]	3
	Тут получилось так, что прога читает только первое слово и если оно подходит, то ставит 1. А все остальные слова не видит... Добавлено через 15 минут И напишите пожалуйста комменты к строкам программы, а то Я, честно говоря, вообще в паскале ничего не понимаю... 0

@Shurik 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	24.04.2012, 21:09 [ТС]	5
	Отлично, спасибо! Все работает)) 0

Опции темы