Основы программирования на языке Turbo Pascal. Беляева И.В. - 151 стр.

UptoLike

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

Рубрика:

151

{Поиск позиции первого символа слова W в строке S}

F := Pos(W, S);

{Вычисление длины слова W}

L := Length(W);

{Удаление из строки S слова W}

Delete(S, F, L);

{Вставка вместо удаленного слова W слова Z}

Insert(Z, S, F);

{Вывод строки после замены слова W на слово Z}

writeln(' s= ',S);

end.