Поиск слова в данном тексте..., нужня помощ =\ Опции

[Elisei]

Задание: Дан текст и слово, найти сколько раз данное слово встречается в тексте.

то что у меня получилось но непашет=\

Код

program CountX;

Const

n=100;

ch='б«®ў®';

Var

i : Integer;

count:Integer;

S : Array [1 .. n] of char;

Begin

writeln ('‚Введите текст');

for i:=1 to n do read(S[i]);

count:=0;

for i:=1 to n do if S[i]=ch then count:=count +1;

writeln ('слово "' , ch, '" встречаеться в тексте ' , count, ' раз');

end.

Сообщение отредактировано: Elisei - 29.11.2005 4:42

[Atos]

if S[i]=ch

Ты пытаешься сравнить один символ строки с целым словом. Это выполнялось бы, только если ch соcтояло бы из одного символа, иначе неверно в любом случае.
Можешь сделать так: if S[i]=ch[1], и если это выполнится, то проверить следующие за i-м символы строки на совпадение с соответствующими символами ch. Попробуй доработать, если не получится - спрашивай, поможем. Хорошо, что уже что-то делал самостоятельно, в отличие от многих заходящих сюда