Функция роз позволяет
определить положение подстроки в строке. В общем виде обращение к функции выглядит
так:
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 по эфирной физике.