Question

Определить, сколько раз в тексте встречается заданное слово. Написать программу, Паскаль

Answer 1

Var
  s, sl, sc: string;   
  i, k: integer;

begin
  write('Введите текст ');
  readln(s);
  write('Введите слово ');
  readln(sl);
  s:=' '+s+' ';
  sl:=' '+sl+' ';
  for i := 1 to length(s) - length(sl) + 1 do   
  begin
    sc := copy(s, i, length(sl));   
    if sc = sl then inc(k);   
  end;
  if k = 0 then writeln('Не встречается')  
  else writeln('Встречается ', k, ' раз');
end.

Answer 2

Var
   k,i,L:integer;
   S,C:string;
Begin
Write('Введите текст: ');ReadLn(S);
Write('Введите искомое слово: ');ReadLn(C);
L:=Length(C);
S:=Copy(C,1,L-1)+' '+S+' ';
S:=LowerCase(S);
C:=LowerCase(C);
k:=0;
For i:= 1 to Length(S) do
    if S[i]in['а'..'я','А'..'Я','ё','Ё','0'..'9'] then
       if S[i+1]in[' ','-','(',')',',',';',':','.','!','?'] then
          if Copy(S,i-L+1,L) = C then k:=k+1;
WriteLn(k);
End.

Answer 3

Пример кода на Pascal для подсчета количества вхождений заданного слова в тексте:

scssCopy code
program CountWordOccurrences;

uses
  SysUtils;

var
  Text, Word: string;
  Count, i, Pos: integer;

begin
  // Запросить текст и слово у пользователя
  Write('Введите текст: ');
  Readln(Text);
  Write('Введите слово для поиска: ');
  Readln(Word);

  // Начать счетчик с нуля
  Count := 0;

  // Повторять поиск, пока слово не будет найдено
  while True do
  begin
    // Поиск слова в тексте, начиная с текущей позиции
    Pos := Pos(Word, Text, i);

    // Если слово не найдено, завершить цикл
    if Pos = 0 then
      Break;

    // Увеличить счетчик и перейти к следующей позиции для поиска
    Inc(Count);
    i := Pos + Length(Word);
  end;

  // Вывести количество найденных вхождений
  WriteLn('Слово "', Word, '" найдено ', Count, ' раз(а).');
end.

Программа запрашивает у пользователя текст и слово для поиска, а затем использует функцию Pos, чтобы найти все вхождения слова в тексте. Она использует переменную i для отслеживания текущей позиции в тексте и функцию Length для определения длины слова, которое нужно пропустить после каждого вхождения. Количество найденных вхождений сохраняется в переменной Count, которая затем выводится на экран.