Дан текст, посчитать сколько букв 'c' в каждом из слов.

[DAn9I]

Помогите решить, на первый взгляд задачка простая, но никак не могу додуматься как ее сделать .
Собственно задача:
Дан текст, посчитать сколько букв 'c' в каждом из слов.

[Golden_RUS]

Можно по подробнее,в каком виде дан текст?(переменная,массив или файл) И имеет ли значение рациональность выполнения?

[Maxloki]

Program bukvac;
Uses crt;
Var s:string;
    f,i:byte;
Begin clrscr;
Write ('Введите текст:');
Readln (s);
For i:= 1 to length (s) do
   If ((s[i]='с') or (s[i]='c')) then f:=f+1;
Write ('Количество букв с=',f);
End.

Вот код такой программы, если надо можно чтобы вводился текст из файла (потребуется переделать начало программы), главное здесь сама задача!
Две буквы с проверяются потому что 'с' есть английская и русская.

[interacia]

Осмелюсь чуть-чуть подкорректировать вашу программу.
Поскольку в условии указано (Дан текст, посчитать сколько букв 'c' в каждом из слов.)
Программа будет выводить количество букв в каждом слове в столбик.

 Program bukvac;
 Uses crt;
 Var s:string;
 f,i:byte;
 Begin clrscr;
 Write ('Введите текст:');
 Readln (s);
 f:=0;
 If ((s[1]='с') or (s[1]='c')) then f:=f+1;
 For i:= 2 to length (s) do begin
 If ((s[i]='с') or (s[i]='c')) then f:=f+1;
 if (s[i]=' ') and (not(s[i-1]=' '))  then begin Writeln(f); f:=0; end;
 end;
 Writeln(f);
 
 End.

[Вадим Мошев]

interacia
Решение, вроде, верное, но я бы дал такие советы:
1. Буква С может оказаться и большой (строчной), поэтому этот кусок кода

If ((s[i]='с') or (s[i]='c'))

я бы написал так

if UpperCase(s[i]) in ['C','С']

2. Не особо мне нравится то, что первый символ обрабатывается отдельно от всей остальной строки.

[Poma][a]

if UpperCase(s[i]) in ['C','С']

Это написано на ДЭльфийском. А т.к. раздел "Паскаль", то наверное, лучше писать UpCase.

[Serge_Bliznykov]

А т.к. раздел "Паскаль", то наверное, лучше писать UpCase.

бессмыслено так писать. русские буквы (кириллица) стандартным UpCase в Паскаль (по крайней мере в TurboPascal) не обрабатываются, да и не вижу острой необходимости привязываться к особенностям языка, вместо:

if s[i] in ['c','C','с','С'] then ...

кстати, я думаю, что автор темы явно неверно понял задание. Ему дан текст на определённом языке и нужно найти букву C одного из алфавитов (т.е. либо строго русскую, либо строго латинскую, но никак не ту или другую...)
Хотел бы я посмотреть на рассуждения автора, если бы в задании было сказано:
"Cосчитать сколько букв 'w' в каждом из слов."
или — "Cосчитать сколько букв 'ф' в каждом из слов."

[Poma][a]

бессмыслено так писать

Ага. Мой косяк. Признаю. Прошу простить.

(по крайней мере в TurboPascal)

Во Free дела обстоят так же..

"Cосчитать сколько букв 'w' в каждом из слов."

Тут явный намек на букву Ш

"Cосчитать сколько букв 'ф' в каждом из слов."

А тут уже целое сочетание cp

[Stilet]

Во Free дела обстоят так же..

В нем хотя бы есть AnsiUperCase().

[Serge_Bliznykov]

В нем хотя бы есть AnsiUperCase().

наверное, AnsiUpperCase()