Функция роз позволяет
определить положение подстроки в строке. В общем виде обращение к функции выглядит
так:
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 объясняется возможностью того, что введенная строка состоит только из пробелов.
Знаете ли Вы, что такое "усталость света"? Усталость света, анг. tired light - это явление потери энергии квантом электромагнитного излучения при прохождении космических расстояний, то же самое, что эффект красного смещения спектра далеких галактик, обнаруженный Эдвином Хабблом в 1926 г. На самом деле кванты света, проходя миллиарды световых лет, отдают свою энергию эфиру, "пустому пространству", так как он является реальной физической средой - носителем электромагнитных колебаний с ненулевой вязкостью или трением, и, следовательно, колебания в этой среде должны затухать с расходом энергии на трение. Трение это чрезвычайно мало, а потому эффект "старения света" или "красное смещение Хаббла" обнаруживается лишь на межгалактических расстояниях. Таким образом, свет далеких звезд не суммируется со светом ближних. Далекие звезды становятся красными, а совсем далекие уходят в радиодиапазон и перестают быть видимыми вообще. Это реально наблюдаемое явление астрономии глубокого космоса. Подробнее читайте в FAQ по эфирной физике.
