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

UptoLike

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

Рубрика:

while k <> 0 do {повторять, пока C входит в S}

begin

{добавить в строку Sr все символы до первого вхождения C}

Sr := Sr+copy(S,1,k-1);

{удалить из S все символы до первого вхождения C и C}

delete (S, 1, k);

{вставить в строку Sr строку S1 и символ C}

Sr := Sr+S1+C;

k := pos (C, S)

end;

Sr := Sr+S; {добавить в строку Sr остаток строки S}

end;

Упражнения

1) Проверьте корректность выполнения кода фрагмента программы для

удаления концевых пробелов

в строке S:

readln(S);

n := length(S);

while S[n]=’ ’ do

n := n-1;

S[0] := chr(n);

для следующих тестовых данных

а) S1= ’6.000asd’ (-символ пробела)

б) S2=’’ (ровно 32 пробела)

2) Исправьте код, чтобы он работал корректно для любых входных данных.