Question

Составить программу в паскаль, которая определяет содержится ли в данном предложении слова "мама" и "мир"

Answer 1

Ответ:Доброго времени суток.

Очень не корректно поставлен вопрос. Что есть Текст? Это текстовый файл, строка, введенная пользователем, еще что-то? Думайте, прежде чем спросить, и, скорее всего, получите нормальный ответ.

Поэтому, поскольку нет конкретики, будем считать текстом строку, введенную пользователем.

Write('Введите текст : ');

ReadLn(S);

В переменной S теперь находится некоторый текст. Начнем с ним работать. Будем считать словом последовательность символов, ограниченных с обеих сторон пробелами. Сначала сделаем копию введенного текста.

S1 := ' ' + S + ' '; {чтобы не потерять первое и последнее слова}

А дальше,  

N := 0; {счетчик слов Мама}

while Pos(' Мама ', S1) > 0 then begin

Delete(S1, Pos(' Мама ', S1)+1, 4);

N := N + 1;  

end;

Поскольку может в тексте быть и "мама", то повторим

while Pos(' мама ', S1) > 0 then begin

Delete(S1, Pos(' мама ', S1)+1, 4);

N := N + 1;  

end;

Вот и все. Осталось вывести результат.

WriteLn('Во ввденном тексте слово "мама" встречается ', N, ' раз');

Удачи!

PS Можно было бы не делать второй проход, если предварительно преобразовать введенный текст к одному регистру, а затем искать подстроку в этом регисте.

Answer 2

===== PascalABC.NET =====

begin

 var a := ReadString('Введите предложение:').ToWords;

 if a.Contains('мама') then

   Println('Найдено слово "мама"');

 if a.Contains('мир') then

   Print('Найдено слово "мир"');

end.

Answer 3

Для написания программы на Pascal, которая определяет, содержатся ли в данном предложении слова "мама" и "мир", можно воспользоваться функцией Pos, которая ищет подстроку в строке. Ниже представлен пример программы:

pascalCopy code
program FindWords;

var
  sentence: string;
  containsMama, containsMir: boolean;

begin
  writeln('Введите предложение:');
  readln(sentence);

  containsMama := Pos('мама', sentence) > 0;
  containsMir := Pos('мир', sentence) > 0;

  if containsMama then
    writeln('В предложении есть слово "мама".')
  else
    writeln('В предложении нет слова "мама".');

  if containsMir then
    writeln('В предложении есть слово "мир".')
  else
    writeln('В предложении нет слова "мир".');
end.

Пользователю будет предложено ввести предложение. Затем программа проверит наличие слов "мама" и "мир" в этом предложении и выведет соответствующие сообщения на экран.