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

Турбо Паскаль представляет в распоряжение пользователя целый ряд функций и процедур, предназначенных для обработки строк.

Функция Length

Встроенная функция Length (длина) позволяет определить фактическую длину текстовой строки, хранящейся в указанной переменной.

Пример.

var

word: string;

begin

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

readln (word);

writeln (‘Это слово состоит из ’, length(word) : 3, ‘ букв!’)

end.

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

Функция Upcase

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

Пример.

var

word : string;

i : byte;

begin

word := ‘Фирма Microsoft’;

for i := 1 to length (word) do word [i] := upcase (word[i]);

writeln (word); {Выводится текст “ Фирма MICROSOFT”}

end.

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

Функция Copy

Функция Сopy позволяет копировать фрагмент некоторой строки из одной переменной в другую. Вызывая функцию copy, необходимо указывать следующие параметры: 1) имя строки, из которой должен извлекаться копируемый фрагмент; 2) позицию в строке, начиная с которой будет копироваться фрагмент; 3) число копируемых символов.

Пример.

var

ws: string [79];

w1,w2,w3 : string [20];

begin

ws := ‘фотографирование’;

w1 := copy (ws, 1, 4); writeln (w1);

w2 := copy (ws, 5, 4); writeln (w2);

w3 := copy (ws, 10, 3); writeln (w3);

end.

В результате выполнения программы на экран выводится:

фото

граф

ров

Сообщения об ошибке не будет в случаях, если начальная или конечная позиции копируемого фрагмента находятся вне пределов исходной строки символов. Результатом выполнения операции в первом случае будет строка нулевой длины, во втором – фрагмент от начальной позиции копирования до конца исходной строки.

Функция Pos

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

var

ws : string [79];

sw : string [20];

p : byte;

begin

ws := ‘Электрификация’;

sw := ‘Эл’; p := Pos (sw,ws); writeln(p);

sw := ‘три’; p := Pos (sw,ws); writeln(p);

sw := ‘к’; p := Pos (sw,ws); writeln(p);

end.

В результате выполнения программы на экране появляется:

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

Процедуры Insert и Delete

Процедура Insert вставляет в исходную строку какую-либо другую строку, начиная с указанной позиции. Оператор Insert (w1, ws, 4); вставит строку w1 в строку ws перед 4–ой позицией.

Процедура Delete удаляет в исходной строке фрагмент определенной длины, начинающийся с указанной позиции. Оператор Delete (ws, 2, 3); удаляет из строки ws фрагмент, состоящий из трех символов и начинающийся со второй позиции.

var

ws : string [79];

sw : string [20];

begin

ws := ‘компьютеризация’; writeln (ws);

delete (ws, 1, 7); writeln (ws);

delete (ws, 3, 2); writeln (ws);

sw := ‘Г’; insert(sw, ws, 1); writeln (ws);

sw := ‘не’; insert(sw, ws, 3); writeln (ws);

end.

В результате работы данной программы на экран будут выведены следующие строки:

компьютеризация

еризация

ерация

Герация

Генерация

Во избежание ошибок при применении процедур Insert и Delete указанные в списке параметров позиции должны обязательно присутствовать в обрабатываемых строках.

Процедура Str

Процедура Str (x [:width [:decimals]], st) преобразует число х любого вещественного или целого типов в строку символов st. Параметры width и decimals, если они присутствуют, задают формат преобразования. Width определяет общую ширину поля, выделенного под соответствующее символьное представление вещественного или целого числа х, а decimals – количество символов в дробной части (имеет смысл только в том случае, когда х – вещественное число).

var

y : integer; x : real; st : string [8];

begin

y := 45; str(y, st); writeln (st);

y := 45; str(y:3, st); writeln (st);

y := -2; str(y:5, st); writeln (st);

x := 45.678;

str(x:7, st); writeln (st);

str(x:10, st); writeln (st);

str(x:6:2, st); writeln (st);

str(x:8:3, st); writeln (st);

end.

Вывод на экране дисплея:

_45

_ _ _-2

_4.6Е+01

_4.568Е+

_45.68

_ _45.678

Процедура Val

Процедура val (st, x, code) преобразует строку символов st во внутреннее представление целой или вещественной переменной х, которое определяется типом этой переменной. Параметр code содержит ноль, если преобразование прошло успешно, и тогда в х помещается результат преобразования, в противном случае он содержит номер позиции в строке st, где обнаружен ошибочный символ, и в этом случае содержимое х не меняется. Пробелы в строке st могут присутствовать лишь в начале.

var

x : real; y : integer; st : string;

begin

st := ’45.678'; val(st,x,y); writeln (x:6:3,’ ‘,y);

x := 0;

st := ‘3,1415’; val(st,x,y); writeln (x:6:3,’ ‘,y);

{запятая - недопустимый символ}

st := ‘ 45.678’; val(st,x,y); writeln (x:6:3,’ ‘,y);

st := ’45.6 ‘; val(st,x,y); writeln (x:6:3,’ ‘,y);

end.

Результат выполнения программы:

45.678 0