35. Строковые выражения. Операции над строками.

Выражения, в которых операндами служат строковые данные, называются строковыми. Они состоят из строковых Const, переменных, указателей функций и знаков операций.

Над строковыми данными допустимы следующие операции:

• Операция сцепления (+) применяется для сцепления нескольких строк в одну результирующую.

• Операции отношения (=, <>, >, <, >=, <=). Сравнение строк производится слева направо до первого несовпадающего символа, и та строка считается больше, в которой первый несовпадающий символ имеет больший номер в стандартной таблице обмена информацией. Результат сравнения всегда имеет булевский тип.

Пример 2. Примеры операций отношения и результат.

Описание	Выражение	Результат
	‘MS-DOS’<’MS-Dos’ ‘program’>’PROGRAM’	True True
	‘Принтер’>’Принтер’ ‘Intell’=’Intell’	True True
Str1: = ‘Группа учащихся’; Str2: = Str1+’школы-лицея’; Fio: = ‘Бочаров А.А.’		Группа учащихся школы-лицея Бочаров А.А.
А: string [6] А: string [8] А: string [2]	A: = ‘ГРУППА I’ A: = ‘ГРУППА I’ A: = ‘ГРУППА I’	‘ГРУППА’ ‘ГРУППА I’ ‘ГР’

3. Строковые процедуры и функции

При работе со строками и символами используют следующие процедуры и функции:

Процедура или функция	Назначение
Delete(St, P, N)	Удаляет N символов строки St, начиная с позиции P.
Insert(St1, St2, P)	Вставка строки St1 в строку St2, начиная с позиции Р.
Str(I, St)	Преобразование числового значения величины I и помещение результата в строку St.
Val(St, I, Code)	Преобразование строкового значения St в величину вещественного типа и помещение результата в I. Если преобразование произошло без ошибок то Code=0, иначе оно равно первому ошибочному символу в строке.
Copy(St, P, N)	Выделяет из строки St подстроку длиной N символов, начиная с позиции P.
Concat (St1, St2, StN)	Выполняет сцепление строк.
Length (St)	Возвращает текущую длину строки St.
Pos(St1, St2)	Обнаруживает первое появление в строке St2 подстроки St1.
UpCase(Ch)	Преобразует стоковую букву в прописную.

Пример 3: Некоторый пользователь вводит в компьютер слово, задача компьютера сделать все буквы данного слова заглавными и вывести на экран сообщение слово состоит из четного или нечетного числа букв. Удалить все знаки препинания, если таковые имеются.

Program primer;

Var s:string;

i:integer;

begin

Write ('Vvedite slovo: ');

Readln (s);

For i: = 1 to length (s) do s[i]: = upcase (s[i]);

Writeln (s);

If length (s) mod 2 = 0 then Writeln ('chetnoe') else Writeln ('nechetnoe');

For i:=1 to length(s) do

If (s[i]='.') or (s[i]=',') or (s[i]=':') or (s[i]=';') or (s[i]='!') then delete (s,i,1);

Writeln (s);

Readln;

end.

25