Составьте программу, определяющую, сколько раз в тексте встречается заданное слово

@Эля11 · Регистрация: 21.01.2013

Студворк — интернет-сервис помощи студентам

Составьте программу, определяющую, сколько раз в тексте встречается заданное слово.

@CodeR · 21.01.2013, 12:46

Pascal

Const mn=[' ',',','.','!','?'];
Var s,s1,x:string;
    i,k:byte;
Begin
    write('Введите строку: ');readln(s);
    write('Введите слово: ');readln(x);
    s:=s+' ';s1:='';
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
     else
     Begin
       if s1=x then inc(k);
       s1:='';
     End;
    writeln('Слово "',x,'"  в строке встречается ',k);
    readln;
End.

@Эля11 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 30
		1
	Составьте программу, определяющую, сколько раз в тексте встречается заданное слово 21.01.2013, 11:31. Показов 2123. Ответов 1 Метки нет (Все метки) Составьте программу, определяющую, сколько раз в тексте встречается заданное слово. 0

	21.01.2013, 12:46

Опции темы

Составьте программу, определяющую, сколько раз в тексте встречается заданное слово

Решение