Var st1,st2:array [1..10] of char;
st3:array [1..20] of char;i:integer;
begin
writeln('Введите значение строки символов =10символам');
for i:=1 to 10 do read(st1[i]);readln;{ввод строки в цикле}
writeln('начение = st1 ',st1); {печать строки одним оператором}
st2:=st1; {строке 2 присваивается значение строки 1}
writeln('начение = st2 ',st2);
st2:='fff''''fffff'; {строке 1 присваивается значение символьного литерала}
writeln('Результат конкатенации= ',st1 + ' ' + st2); {конкатенация строк}
end.
Работа со строками, как и с одномерными массивами осуществляется посимвольно в соответствии со значениями индексов. Рассмотрим пример обработки строк.
Пример 3. Дана строка не более 40 символов, состоящая из слов, разделенных пробелами. Написать программу удаления лишних пробелов, оставляя не более одного между словами и ни одного в начале строки.
Program Stroka;{ программа удаления 'лишних' пробелов в строке }
var
i,j,k,n:byte;
s:array [1..40] of char;
BEGIN
writeln('Введите длину исходной строки');
readln(n);
writeln('Введите исходную строку длиной ',n:3,' байт');
for i:=1 to n do read(s[i]);
readln;
writeln('Введенная строка ');
writeln(s);
j:=1; {указатель на символы переформированной строки}
k:=0; {признак "лишних пробелов" - k=0 , k=1 - нужные символы }
for i:=1 to n do
if s[i]=' ' then {если обнаружен пробел}
begin
if k=1 then {этот пробел первый}
begin
k:=0; {дальше пойдут лишние пробелы}
s[j]:=s[i];
j:=j+1;
end;
end
else begin
k:=1; {пробелов нет - идут символы}
s[j]:=s[i];
j:=j+1;
end;
for i:=j to n do
s[i]:=' ';
writeln('Преобразованная строка ');
writeln(s);
readln;
END.
Переменные строкового типа.
Уже на простых примерах предыдущего раздела видно, что работа со строкой, описанной с помощью одномерного массива, довольно кропотлива. Поэтому для упрощения работы со строками был введен новый стандартный тип данных – строки. Синтаксическая диаграмма строкового типа данных представлена на рис. 1.
Целое без знака – это максимальная длина строки не более 255 байт.
Если длина не указана, то по умолчанию принимается максимальное значение = 255 символов.
Описание строки как символьного типа данных выполняется двумя способами:
В разделе описания переменных
VAR
S1,S2:string[40]; {Символьные строки длиной 40 байт}
S3:string[20]; { Символьная строка длиной 80 байт }
S4:strring; ]; { Символьная строка длиной 255 байт }
В разделе описания типов, с последующим определением в разделе описания переменных
TYPE
S40 = string[40]; {Тип символьная строка длиной 40 байт}
S80 = string[80]; { Тип - символьная строка длиной 80 байт }
ST = string; { Тип - символьная строка длиной 255 байт }
VAR
S1,S2: S40; {Символьные строки типа S40 }
S3:S80; {Символьная строка типа S80 }
S4:ST; { Символьная строка типа ST }
Внутреннее представление строки приведено на рис 2.
Из рис.2 видно, что во внутреннем представлении строка представляет собой одномерный массив символов размерностью от 0 до N, гдеN- максимальная длина строки, определенная при описании. Это означает, что реальная длина строки –N+1 (следовательно, максимально возможная длина строки – 256 байт во внутреннем представлении).
Нулевой байт содержит текущее значение длины строки в символьном виде. Обращение к нему, например S4[0], дает доступ к длине строки S4. Однако, для получения этого значения необходимо явное преобразование символьного типа в целый. Например, если i -переменная целого типа, то получить длину строки можно:
А). i:=INTEGER(S4[0]); {Явное преобразование с помощью автоопределения}
B). i:=ORD(S4[0]); {явное преобразование с помощью специальной функции}
Над переменными строкового типа определены следующие операции:
Сцепления
Например
S4:=’fdc’+’ghj’ => ‘fdcghj’
S4:= S4+’vvv’ => ‘fdcghjvvv’
Если суммарной строки превышает объявленную максимальную длину, то «лишние символы» отбрасываются.
Отношения: =,<>,>,<,>=,<=.
Операции отношения выполняются над строками последовательно слева направо с учетом внутренней кодировки символов до первого несовпадающего символа. Большей считается та строка, несовпадающий символ которой стоит дальше в кодовой таблице ASCII. Если длина одной строки меньше другой, то недостающие значения до длины большей строки заполняются символами CHR(0). Результатом операций отношения является значение FALSE TRUE
Допускается сравнение символов со строками, однако символы преобразуются в строки с длиной 1.
Примеры операций отношения:
S4:=’ABCD’;
S3:=’ADFH’;
C:=’L’;
S4=S3 => FALSE
S4>S3 => FALSE
S3>S4 => TRUE
S3=C => FALSE
Ввод вывод переменных строкового типа осуществляется одной операцией read (readln) или write (writeln).
При вводе за строку принимается последовательность символов до нажатия клавиши ENTER. Если длина введенной строки больше указанной максимальной длины, то лишние символы отбрасываются, а в нулевой байт записывается значение максимальной длины. В противном случае в нулевой байт записывается количество введенных символов.
При выводе строки на экран выводится количество символов в соответствии с текущей длиной, указанной в нулевом байте.
Кроме того, начальное значение переменной типа string можно задать, также с помощью символьной константы. При этом длина константы должна быть не меньше максимальной длины строки, указанной при описании.
Например
VAR ST:string[40];
CONST S:string[40]=’Типизированная константа’
Begin
ST:=’Константа-литерал’;
Writeln(ST);{Печатается ’Константа-литерал’}
Writeln(S); { Печатается ’Типизированная константа’}
END.
Все остальные действия над строками и символами реализуются с помощью стандартных процедур и функций.