Лабораторная работа № 11
ОБРАБОТКА СИМВОЛОВ И СТРОК СРЕДСТВАМИ
ЯЗЫКА Turbo Pascal
Цель:
Получить практические навыки работы с символьной информацией с использованием средств Turbo Pascal.
Общие сведения
ОБРАБОТКА СИМВОЛЬНОЙ ИНФОРМАЦИИ
Строка — это последовательность символов. При использовании в выражениях строка обязательно заключается в апострофы. Количество символов в строке (длина строки) может динамически изменяться от 0 до 255. Определение строкового типа устанавливает максимальное количество символов, которое может содержать строка.
Формат описания:
1-ый способ:
Type
имя типа = string [максимальная длина строки];
Var
идентификатор: имя типа;
2-ой способ:
Var
идентификатор: string [максимальная длина строки];
Длина строки может не указываться, в этом случае принимается максимально возможная длина строки, равная 255 символов.
Пример:
Type
Stroka:string[50];
Var
St:Stroka;
St1:string;
St2:string[25];
Строку можно описать с помощью типизированной константы:
Сonst
St:string=’Сегодня хорошая погода!’;
Строковые выражения
Выражения, в которых операндами служат строковые данные, называются строковыми выражениями. Они состоят из строковых констант, переменных, указателей функций и знаков операций. Над строковыми данными допустимы операция сцепления и операции отношения.
Операция сцепления (+) применяется для сцепления нескольких строк в одну результирующую строку.
Например:
| Выражение | Результат |
| 'E'+'C'+' 18' +'40' | 'EC 1840' |
Длина результирующей строки не должна превышать 255.
Операции отношения (=, <>, <, >, >=, <=) проводят сравнение двух строковых операндов и имеют приоритет более низкий, чем операция сцепления, т.е. вначале всегда выполняются все операции сцепления, если они присутствуют, и лишь потом реализуются операции отношения. Сравнение строк производится слева направо до первого несовпадающего символа, и та строка считается больше, в которой первый несовпадающий символ имеет больший номер в стандартной таблице обмена информацией. Результат выполнения операций отношения над строковыми операндами всегда имеет булевский тип и принимает значение True, если выражение истинно, и False, если выражение ложно.
Например:
| Выражение | Результат |
| 'COSM1'<'COSM2' | True |
Если строки имеют различную длину, но в общей части символы совпадают, считается, что более короткая строка меньше, чем более длинная. Строки считаются равными, если они полностью совпадают по длине и содержат одни и те же символы.
Для присваивания строковой переменной результата строкового выражения используется оператор присваивания (:=).
Допускается смешение в одном выражении операндов строкового и литерного типа. Если при этом литерной переменной присваивается значение строкового типа, длина строки должна быть равна единице, иначе возникает ошибка выполнения.
Для обработки строковых данных используются стандартные процедуры и функции.
Процедуры
Delete (St, Poz, N) — удаление N символов строки St, начиная с позиции Poz.
| Значение St | Выражение | результат |
| 'абвгде' | Delete (Str, 4, 2) | 'абве' |
Insert (Str1, Str2, Poz) — вставка строки Str1 в строку Str2, начиная с позиции Poz.
Пример:
Var S1, S2, S3: string[11];
...
S1:=' EC ';
S2:='ЭВМ1841';
S3:=Insert (S1, S2, 4);
В результате выполнения последнего выражения значение строки S3 станет равным 'ЭВМ ЕС 1841'.
Str (I, St) — преобразование числового значения величины I (целого или вещественного типа) и помещение результата в строку St. После I может записываться формат, аналогичный формату вывода. Если в формате указано недостаточное для вывода количество разрядов, поле вывода расширяется автоматически до нужной длины.
| Значение I | выражение | Результат |
| Str (I:6, St) | ' 1500' |
4) Val (St, I, Cod) — преобразует значение St в величину целочисленного или вещественного типа и помещает результат в I. Значение St не должно содержать незначащих пробелов в начале и в конце. Cod — целочисленная переменная. Если во время операции преобразования ошибки не обнаружено, значение Cod равно нулю, если ошибка обнаружена (например, литерное значение переводится в цифровое), Cod будет содержать номер позиции первого ошибочного символа, а значение I не определено.
| Значение St | выражение | Результат |
| '1450' | Val (St, I, Cod) | 1450 Cod=0 |
Функции
Copy (St, Poz, N) — выделяет из строки St подстроку длиной N символов, начиная с позиции Poz.
| Значение St | Выражение | Результат |
| 'ABCDEFG' | Copy (St, 2, 3) | 'BCD' |
Concat (Str1, Str2,..., StrN) — выполняет сцепление строк Str1, Str2,..., StrN в том порядке, в каком они указаны в списке параметров.
| Выражение | результат |
| Concat ('AA', 'XX', 'Y') | 'AAXXY' |
Length (St) — вычисляет длину в символах строки St.
| Значение St | Выражение | результат |
| '123456789' | Length (St) |
Pos (Str1, Str2) — обнаруживает первое появление в строке Str2 подстроки Str1. Результат имеет целочисленный тип и равен номеру той позиции, где находится первый символ подстроки Str1. Если в Str2 подстроки Str1 не найдено, результат равен 0.
| Значение Str1 | Выражение | результат |
| 'abcdef' | Pos('de', Str1) | |
| 'abcdef' | Pos('r', Str1) |
Примеры сортировки:
Дан массив строк. Отсортировать его в алфавитном порядке.
program sorta;
type
indata=string[80];
mas=array[1..80] of indata;
var
st:mas;
i,n:integer;
Procedure sortstring(var inm:mas; n:integer);
Procedure insort(L,R:integer;var M:mas);
var
a,b:indata;
i,j:integer;
begin
i:=L;
j:=R;
a:=m[(l+r)div 2];
repeat
while m[i]<a do i:=i+1;
while A<m[j] do j:=j-1;
if i<=j then
begin
b:=m[i]; m[i]:=m[j];
m[j]:=b; i:=i+1; j:=j-1;
end;
until i>j;
if l<j then insort(l,j,m);
if l<r then insort(i,r,m);
end;
begin
insort (1,n,inm);
end;
begin
writeln ('Введите количество строк');
readln (n);
writeln ('Введите строки');
for i:=1 to n do
readln (st[i]);
Writeln ('Исходный массив строк:');
for i:=1 to n do
writeln (st[i]);
sortstring(st,n);
Writeln ('Отсортированный массив строк');
for i:=1 to n do
writeln (st[i]);
end.
