Определить, входят ли заданные слова в текст, и если да, то сколько раз - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Определить, входят ли заданные слова в текст, и если да, то сколько раз - Turbo Pascal»

textual
Var f:text; 
    slovo,s:string;
    kol:integer;
Begin
    write('Слово: ');readln(slovo);
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';
      While Pos(' ',s)>0 do
      Begin
        if slovo=Copy(s,1,Pos(' ',s)-1) then inc(kol);
        Delete(s,1,Pos(' ',s));
      End;
    End;
    if kol>0 then writeln(kol,' раз(а)')
     else writeln('Не входит');
    readln;
End.

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы