Функция роз позволяет
определить положение подстроки в строке. В общем виде обращение к функции выглядит
так:
pos
(Подстрока,Строка) ;
где Подстрока — строковая
константа или переменная, которую надо найти в строковой константе или переменной
строка.
Например, в результате
выполнения инструкции
р
:= pos('Пе','Санкт-Петербург');
значение переменной
р будет равно 7. Если в строке нет искомой подстроки, то значение функции роз
будет равно нулю.
Ниже приведена инструкция
while, в результате выполнения которой удаляются начальные пробелы из строки
st.
while(pos('
',st) = 1) and(length(st) > 0) do delete (st,1,1);
Пробелы удаляет инструкция
delete (st, i, i), которая выполняется в цикле до тех пор, пока первым символом
строки является пробел (в этом случае значение
роs (' ',st) равно единице). Необходимость проверки условия length (st) >
0 объясняется возможностью того, что введенная строка состоит только из пробелов.
Знаете ли Вы, что в 1965 году два американца Пензиас (эмигрант из Германии) и Вильсон заявили, что они открыли излучение космоса. Через несколько лет им дали Нобелевскую премию, как-будто никто не знал работ Э. Регенера, измерившего температуру космического пространства с помощью запуска болометра в стратосферу в 1933 г.? Подробнее читайте в FAQ по эфирной физике.
