Удаление

Для удаления из строки фрагмента используется про­цедура Delete(Str, n, m), которая вырезает из строки Str m символов начиная с n−го, таким образом, сама строка изменяется.

Пример

Str1:='ABCDEFGH';

Delete(Str1, 3, 4);

Writeln(Str1);

После выполнения этих операторов из строки будут удалены 4 символа начиная с 3−го, то есть строка будет такой: Str1='ABGH'.

Вставка

Для вставки подстроки в строку используется процедура Insert(Str1, Str2, n), которая вставляет строку Str1 в строку Str2 начиная n−го символа, при этом первая строка остается такой же, как и была, а вторая получает новое значение.

Пример

Str1:='ABCDEFGH';

Str2:='abcdefgh';

Insert(Str1, Str2, 3);

В результате выполнения данной процедуры строка будет такой: Str2='abABCDEFGHcdefgh'. Этот же результат будет и после выполнения такой последовательности операторов:

Str2:='abcdefgh';

Insert(‘ABCDEFGH’, Str2, 3);

Копирование

Функция Copy(Str, n, m) копирует m символов строки Str начиная с n−го символа, при этом исходная строка не меняется

Пример 1

Str1:='ABCDEFGH';

Str2:='abcdefgh';

Str3:=Copy(Str1, 4, 3);

Writeln(Str3);

Writeln(Copy (Str2, 4, 3));

Значение переменной Str3='DEF'. А на экран будут выведены следующие строки:

DEF

def

Пример 2

Предскажите результат работы программы.

Program Example_127;

uses crt;

vara, b, c, d, e: string[15];

Begin

clrscr;

a:='стихотворение';

b:=copy(a, 1, 4);

c:=copy(a, 2,4);

d:=copy(a, 6, 8);

e:=copy(a, 7, 3);

writeln(b, ', ',c, ', ',d, ', ',e);

readln;

End.