Информатика • 8 класс

Поиск в символьных строках (Паскаль)

В Pascal для работы со строками используются следующую функцию поиска:
- Pos () – поиск первого вхождения символа/подстроки (регистрозависимый).
Важно учесть:
- нумерация строки считается с 0;
- результат поиска может зависеть от регистра строки;
- для последнего вхождения перебор с конца строки;
- если ничего не найдено, Pos () вернёт 0.
Пример. Найти номер позиции буквы «о» в строке: «Пример текста для демонстрации поиска».
var
text: string;
t: char;
p: integer;
begin
text := 'Пример текста для демонстрации поиска';
t := 'o';

Поиск первого вхождения	Поиск последнего вхождения
p := Pos (t, text); if p > 0 then write (p) else write (-1);	p := Length (text); while (p > 0) and (text [p] <> t) do p := p - 1; if p > 0 then write (p) else write (-1); end.

Поиск первого вхождения

Поиск последнего вхождения

p := Pos (t, text);
if p > 0 then write (p)
else write (-1);

p := Length (text);

while (p > 0) and (text [p] <> t) do
p := p - 1;

if p > 0 then write (p)

else write (-1); end.

Было полезно?