补全Begin-End区间的代码，实现如下功能： step1:查找输入字符串: ₋ ⁤⁤source₋string⁤⁤ 中，是否存在day这个子字符串，并打印输出查找结果； step2:对输入字符串 ₋ ⁤⁤source₋string⁤⁤ 执行字符替换操作，将其中所有的day替换为time，并打印输出替换后的字符串； step3：对step2进行替换操作后的新字符串，按照空格进行分割，并打印输出分割后的字符列表。 #coding=utf-8 #请在下面添加代码 ##########Begin########## ##########End ##########

以下是补全的代码：

begin
source_string := '这是一个包含day的字符串';
if pos('day', source_string) > 0 then
writeln('查找结果：存在day子字符串')
else
writeln('查找结果：不存在day子字符串');
source_string := StringReplace(source_string, 'day', 'time', [rfReplaceAll]);
writeln('替换后的字符串：', source_string);
split_string := TStringList.Create;
split_string.Delimiter := ' ';
split_string.StrictDelimiter := True;
split_string.DelimitedText := source_string;
writeln('分割后的字符列表：');
for i := 0 to split_string.Count - 1 do
writeln(split_string[i]);
end.

相关问题

补全 Begin-End 区间的代码，其功能是打印高度为 n （用变量n表示）的等腰三角形，不要改动 Begin-End 区间之外的代码。

Begin
    var n: integer; // 输入的高度
    readln(n);
    for i:=1 to n do
    begin
        for j:=1 to n-i do // 打印空格
            write(' ');
        for j:=1 to 2*i-1 do // 打印星号
            write('*');
        writeln; // 换行
    end;
End.

补全下方Begin-End区间的代码，实现如下功能: 将存放姓氏的字符串变量和存放名字的字符串变量拼接起来，中间月一个空格隔开，并将结果存储在 full name 变量中； 打印输出 full name 变量。 #coding=utf-8 ⁤source₋string=input()⁤ #请在下面添加代码 ##########Begin########## ##########End###########

var firstName = "张";
var lastName = "三";
var fullName = firstName + " " + lastName;
console.log(fullName);

输出结果为：张 三