Length (строковое_выражение)

Например: program Р29;

var х, у:string [ 20 ]; k, I, n:integer;

Begin

writeln (‘введите две строки’);

readln(x);readln(y);

k: =length (x); I: =length (y); n: =length (x + y);

writeln (‘длина первой строки’: 25, ‘длина второй строки’: 25);

writeln (k: 25, I: 25);

writeln (x + у, ‘длина строки’, n)

End.

В программе Р29 используется вывод с форматированием результата. Первый раз формат (: 25) указан после строки, вы­водимой на экран (‘длина первой строки’). Это означает, что для данной строки отводится 25 позиций экрана, а поскольку выводимый текст короче (20 символов), он дополнится внача­ле пробелами, т. е. окажется правоустановленным в отведен­ном ему поле. Аналогично расположатся в предназначенном для них месте экрана целые числа — длины строк. Таким об­разом, результат работы программы будет иметь вид:

Длина первой строки длина второй строки

7 10

С помощью форматирования можно располагать выводи­мые данные в столбцах, строить на экране дисплея таблицы.

Копирование строки или ее части. Функция копирования называется также «вырезкой». Она позволяет скопировать од­ну область памяти в другую. Для копирования необходимо указать строковое выражение, из значения которого выделяет­ся часть, а также начальный номер символа и количество символов копируемой части:

copy (строковое выражение, начальный номер символа, ко­личество символов)

Например, результатом работы функции

copy (‘информатика’, 3, 5)

будет слово‘форма’.

Применим данную функцию для разработки второй версии программы обращения слова. Будем обрабатывать слово, вы­деляя из него буквы и присоединяя к результату слева. Пере­менной у, содержащей результат, сначала присваивается зна­чение пустой строки. Переменная цикла изменяет свои значе­ния от 1 (первого символа слова) до длины вводимой строки (номера последнего символа слова).

program Р30;

var x, у:string [10 ]; i:integer;

Begin

write (‘введите слово’);

readln(x);

y: = "; {присваивание результату начального значения —пустого слова}

fori: = 1to length(x)do

у: =copy (x, i, 1) + у; {присоединение копируемой буквы слева}

writeln;

write (у)

End.

Поиск подстроки в строке. Функция поиска определяет, с какой позиции (номера символа) одна строка (подстрока) со­держится в другой (данной строке). Если такое вхождение под­строки в строку имеет место, то результат работы функции — номер символа в исходной строке, с которого начинается под­строка. Если вхождения нет, то результат — нуль. Аргументы функции могут быть строковыми выражениями.

роs (подстрока, исходная строка)

Вставка в строку. В одну строку можно вставить другую строку, указав номер символа, начиная с которого осуществ­ляется вставка. Входные данные процедуры — вставляемая строка, исходная строка и целочисленное выражение, задаю­щее позицию вставки. Строки также могут быть заданы стро­ковыми выражениями. Результат работы процедуры помеща­ется в исходную строку, строка при этом «расширяется». Если длина вставки совместно с длиной исходной строки превыша­ет допустимую длину исходной строки, то вставка укорачива­ется справа до допустимой длины.

insert (вставляемая строка, исходная строка, целочисленное выражение);

Удаление части строки. Часть строки можно удалить, стро­ка при этом «сжимается». Для удаления необходимо указать строку (в виде строкового выражения), начальный номер уда­ляемой части строки, количество удаляемых символов. Про­цедура удаления вызывается следующим образом:

delete (строка, начальный номер, количество символов);

Рассмотрим пример замены буквы в слове. Сделаем из сло­ва «форма» слово «фирма».

program Р31;

varx:string [10];

Begin

x: = ‘форма’;

insert (‘и’, x, 2); {вставка буквы «и», получилось слово «фиорма»}

delete (x, 3, 1); {удаление третьей буквы — буквы «о»}