Question

Напишите, пожалуйста, программу на Free Pascal. Определить, является ли заданная строка подпоследовательностью исходной строки. С использованием строковых функций.​

Answer 1

var

 s, s1: string;

 

begin

 readln(s);

 readln(s1);

 if Pos(s1, s) > 0 then

   write('является')

 else

   write('не является');

end.

Answer 2

Конечно! Вот пример программы на Free Pascal, которая определяет, является ли заданная строка подпоследовательностью исходной строки с использованием строковых функций:

pascalCopy code
program CheckSubstring;

uses
  SysUtils;

function IsSubstring(const subString, mainString: string): boolean;
begin
  Result := Pos(subString, mainString) > 0;
end;

var
  mainString, subString: string;

begin
  WriteLn('Введите исходную строку: ');
  ReadLn(mainString);

  WriteLn('Введите подстроку для проверки: ');
  ReadLn(subString);

  if IsSubstring(subString, mainString) then
    WriteLn('Подстрока найдена в исходной строке.')
  else
    WriteLn('Подстрока не найдена в исходной строке.');

  ReadLn;
end.

Программа сначала принимает исходную строку от пользователя, а затем просит ввести подстроку, которую нужно проверить. Затем она вызывает функцию IsSubstring, которая использует функцию Pos для определения, содержится ли подстрока в исходной строке. Если подстрока найдена, выводится сообщение "Подстрока найдена в исходной строке". В противном случае выводится сообщение "Подстрока не найдена в исходной строке".

Примечание: При выполнении программы убедитесь, что ваша среда разработки настроена на использование кодировки, поддерживающей кириллицу, если вы планируете вводить кириллические символы.