Структуры данных. Строки - 15 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

17
while k <> 0 do {повторять, пока S1 входит в S}
begin
{добавить в Sr все символы S до первого вхождения S1}
Sr := Sr+copy(S,1,k-1);
{удалить из S первое вхождение S1 и все символы до него}
delete (S, 1, k+n-1);
Sr := Sr+S2; {добавить S2 в строку Sr вместо S1}
k := pos (S1, S)
end;
Sr := Sr+S {добавить в строку Sr остаток строки S}
end;
Пример 7. Даны строки
S, S1 и символ C. Вставить в строку S перед
каждым символом
C строку S1.
Эта задача может быть решена с использованием посимвольной обработки
строки
S, как в процедуре S41( S, S1, C ) примера 4.
Другой вариант решения задачи использует стандартные процедуры и
функции обработки строк (см. Приложение) и оформлен в виде процедуры
S71( S, S1, Sr, C ). Результат формируется в новой строке Sr.
Входные параметры: строки
S, S1, C.
Выходные параметры: строка
Sr.
procedure S71(var S, S1, Sr: string; C: char);
var k: integer;
begin
Sr:=’’;
k := pos (C, S); {k - позиция первого вхождения C в S}

Страницы