Функция Pos

Функцияpos позволяет определить положение подстроки в строке. Обращение к функции выглядит так: pos (подстрока, st)

где подстрока - строковая константа или переменная, которую надо найти в строковой константе или переменной st.

Например, в результате выполнения инструкции

p:=pos('ль','Ульяновск');

значение переменной р будет равно 2Если в строке нет искомой подстроки, то функция возвращает ноль.

Пример 6.4.Программа определения позиции подстроки.

Program Prog6_4;

uses WinCrt;

Var

st:string[10];

st1:string[3];

p:integer;

Begin

readln (st); { Ввод строки}

readln (st1); { Ввод подстроки}

p:=pos(st1,st); { Определение номера позиции подстроки}

writeln('Номер позиции = ', p);

End.

Пример 6.5. Программа удаления начальных пробелов в строке.

Program Prog6_5;

uses WinCrt;

Var

st:string[30];

Begin

write('Введите строку:') ;

readln(st) ;

while(pos ( ' ',st)=l) and (length(st)>0) do

delete (st,1,1);

write('Строка без начальных пробелов:',st);

End.

Программа использует функцию pos и процедуру delete для удаления пробелов в начале введенной с клавиатуры строки. Пробелы удаляются в цикле while до тех пор, пока функция pos обнаруживает пробел в начале строки (значение pos при этом равно единице). Проверка условия length (st)>o нужна, так как возможно, что введенная с клавиатуры строка вся состоит из пробелов.