Question

Переписать под паскаль абс.net Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. 1. Вывести только те слова сообщения, в которых содержится заданная подстрока. using System; using System.Linq; class Program { static void Main(string[] args) { string str = "Дана строка, в которой содержится осмысленное текстовое сообщение. " + "Слова сообщения разделяются пробелами и знаками препинания\n"; string podstr = "ния";//подстрока var temp = str.Split().Where(i => i.Contains(podstr)); Console.WriteLine(str); foreach (var word in temp) Console.Write(word+" "); Console.ReadLine(); } }

Answer 1

// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var str:='Дана строка, в которой содержится осмысленное текстовое сообщение. '+
    'Слова сообщения разделяются пробелами и знаками препинания'+NewLine;
  var podstr:='ния'; //подстрока
  var temp:=str.Split.Where(i->pos(podstr,i)>0);
  Writeln(str);
  foreach var word in temp do Print(word)
end.

Answer 2

Вот переписанный код на языке PascalABC.NET, который выводит только те слова из заданной строки, в которых содержится заданная подстрока:

program Main;
uses SysUtils, StrUtils;

var
  str: string;
  podstr: string;
  words: TStringDynArray;
  i: Integer;

begin
  str := 'Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания';
  podstr := 'ния';

words := SplitString(str, ' ');

for i := 0 to Length(words) - 1 do
  begin
    if ContainsStr(words[i], podstr) then
      Write(words[i] + ' ');
  end;

ReadLn;
end.

Этот код разбивает исходную строку на слова, используя пробелы в качестве разделителей, и затем проверяет каждое слово на наличие заданной подстроки. Если подстрока содержится в слове, оно выводится на экран.

Примечание: Переписанный код может отличаться от исходного кода, поскольку исходный код был написан на языке C#, а не на PascalABC.NET. Однако, переписанный код сохраняет логику и функциональность исходного кода.