Информатика • 10 класс

Поиск и замена подстроки (Паскаль)

Функция Pos () – ищет первое вхождение подстроки:
Pos ('e', text) возвращает 1 (позиция первой буквы 'e' в "Hello").
Функция LastDelimiter () – ищет последнее вхождение символа:
LastDelimiter ('e', text) возвращает 13 (позиция буквы 'e' в "friend").
Процедуры Delete () и Insert () – заменяют часть строки:
- Delete (text, 7, 9) – удаляет 9 символов начиная с позиции 7;
- Insert ('world', text, 7) – вставляет "world" в позицию 7;
- исходная строка: "Hello, my friend!";
- после замены: "Hello, world!" (символ '!' сохраняется).

Программный код (фрагмент)	Окно вывода
var text: string; pos1, pos2: integer; begin text := 'Hello, my friend!'; pos1 := Pos ('e', text); writeln (pos1); pos2 := LastDelimiter ('e', text); writeln (pos2); Delete (text, 7, 9); Insert ('world', text, 7); writeln (text); end;	1 13 Hello, world!

Программный код (фрагмент)

Окно вывода

var text: string;
pos1, pos2: integer;
begin
  text := 'Hello, my friend!';
  pos1 := Pos ('e', text);
  writeln (pos1);
pos2 := LastDelimiter ('e', text);
  writeln (pos2);
Delete (text, 7, 9);
  Insert ('world', text, 7);
  writeln (text);
end;

Hello, world!

Было полезно?