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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы