Стандартные процедуры и функции для строк

Функция Length

Program DemoFunctionLENGTH;

Var

Words: STRING;

Begin

Writeln ('Введите, пожалуйста, слово:');

Readln(Words);

Writeln;

Writeln ('Это слово состоит из', Length (Words):3,'букв!');

End.

Примечание:

При подсчете фактической длины строки учитываются все входящие в нее символы, в том числе и пробелы.

Функция UpCase

Функция UpCase позволяет преобразовывать символ любой литеры из строчного в прописной. Эта функция рассчитана на обработку отдельного символа. Поэтому для обработки строки символов с помощью этой функции приходиться организовывать цикл.

Примечание:

Русские литеры не могут обрабатываться этой функцией.

Рассмотрим пример как с помощью функции UpCase можно заменить все строчные буквы строки прописными:

Program DemoFunctionUpCase;

Var

Words: STRING;

I: integer;

Begin

Readln(Words);

For i:=1 to Length(Words) do Words[i]:=UpCase(Words[i]);

Writeln(Words);

End.

В результате работы этой программы на экране появится строка, содержащая большие английские и маленькие русские буквы.

Функция Copy

Функция Copy позволяет копировать фрагмент некоторой строки из одной переменной в другую. Вызывая функцию Copy, необходимо указывать следующие параметры:

- имя строки, из которой должен извлекаться копируемый фрагмент;

- позицию в строке, начиная с которой будет копироваться фрагмент;

- число копируемых символов.

Пример:

Program DemoFunctionCopy;

Var

Words: STRING[30];

Word 1, Word 2, Word 3: STRING[20];

Begin

Words:='картографирование';

Writeln(Words);

Word1:=Copy(Words,6,4);

Writeln(Word1); {На экране появится 'граф'}

Word2:=Copy(Words,2,3);

Writeln(Word2); {На экране появится 'арт'}

Word3:=Copy(Words,11,3);

Writeln(Word3); {На экране появится 'ров'}

End.

Функция Pos

С помощью функции Pos можно осуществить в некоторой строке поиск определенного фрагмента. Если заданный фрагмент в строке присутствует, то функция возвращает номер позиции в строке, с которой этот фрагмент начинается. Если фрагмент в строке не найден, то функция возвращает нуль.

Program DemoFunctionPos;

Var

Words: STRING[70];

NewWord: STRING[20];

Position: integer;

Begin

Readln(Words);

NewWord: = 'электрификация';

Position:=Pos(NewWord,Words);

if position <>0

then Writeln('Фрагмент', NewWords, 'Содержится во фразе', Words, 'начиная с позиции', Position:3)

else Writeln ('Фрагмент', NewWord, 'не содержится во фразе', Words);

End.

Из данного примера видно, что функция Pos требует полного совпадения искомого фрагмента и фрагмента строки, в которой производится поиск. Прием большие и маленькие буквы считаются различными символами.