Функция роз позволяет
определить положение подстроки в строке. В общем виде обращение к функции выглядит
так:
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 объясняется возможностью того, что введенная строка состоит только из пробелов.
Знаете ли Вы, что "тёмная материя" - такая же фикция, как черная кошка в темной комнате. Это не физическая реальность, но фокус, подмена. Реально идет речь о том, что релятивистские формулы не соответствуют астрономическим наблюдениям, давая на порядок и более меньшую массу и меньшую энергию. Отсюда сделан фокуснический вывод, что есть "темная материя" и "темная энергия", но не вывод, что релятивистские формулы не соответствуют реалиям. Подробнее читайте в FAQ по эфирной физике.