Question

Написать программу на языке Паскаль : Определить наличие в строке S подстроки Х. Вывести на экран соответствующее сообщение.

Answer 1

begin

 var s := ReadString('Введите строку:');

 var x := ReadString('Введите подстроку строку:');

 

 if Pos(x, s) <> 0 then

   Print('Подстрока присутсвует')

 else

   Print('Подстрока отсутсвует');

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая определяет наличие подстроки Х в строке S и выводит соответствующее сообщение:

pascalCopy code
program CheckSubstring;

var
  S, X: string;

begin
  writeln('Введите строку S:');
  readln(S);

  writeln('Введите подстроку X:');
  readln(X);

  if Pos(X, S) > 0 then
    writeln('Подстрока X найдена в строке S.')
  else
    writeln('Подстрока X не найдена в строке S.');

  readln;
end.

Программа запрашивает у пользователя ввод строки S и подстроки X, а затем использует функцию Pos для проверки наличия подстроки X в строке S. Если Pos(X, S) > 0, то подстрока X найдена в строке S, и программа выводит сообщение "Подстрока X найдена в строке S.". В противном случае, программа выводит сообщение "Подстрока X не найдена в строке S.".

Обратите внимание, что данная программа предполагает использование стандартной библиотеки Pascal с поддержкой функции Pos, которая возвращает позицию первого вхождения подстроки в строку или 0, если подстрока не найдена.