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

UptoLike

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

Рубрика:

150

Функция Pos

function Pos(Substr: String; S: String): Byte;

Ищет в строке S подстроку SubStr. Возвращает индекс первого

элемента первой найденной подстроки. Если подстрока не найдена,

возвращает 0.

Пример:

S1 := ’Информатика и математика’;

K := Pos(‘мат’, s1); {K = 6 – первый раз подстрока ‘мат’

в строке s1 начинается с 6-ой позиции}

Примеры использования стандартных процедур и функций

обработки строк

Задача 1: Вводится строка S и два слова – W и Z. Заменить в строке S

слово W на слово Z.

Замечание: Считаем, что в строке S имеется ровно одно слово W.

var

s : string; {Строка}

w : string; {Заменяемое слово}

z : string; {Замена}

f : integer; {Позиция первого символа слова W}

l : integer; {Длина заменяемого слова W}

begin

{Ввод строки}

write(' s= ');

readln(s);

{Ввод заменяемого слова}

write(' w= ');

readln(w);

{Ввод замены}

write(' z= ');

readln(z);