Паскаль строковые переменные. Обработка строк текста

I категории Павлинова Р.М.

– литерный или символьный тип; string – строковый тип или просто

строка.

Символьный тип
Значением переменных символьного типа char является один символ. Каждому символу соответствует код символа – целое число в диапазоне от 0 до 255.
chr(x) – возвращает значение символа по его коду;
ord(cimvol) – возвращает код заданного символа cimvol.
pred(cimvol) – возвращает предыдущий символ.
succ(cimvol) – возвращает следующий символ.
upcase(cimvol) – преобразует строчную букву в заглавную. Обрабатывает буквы только латинского алфавита.
ord(‘A’)=65
chr(128)=’Б’
pred(‘Б’)=’A’
succ(‘Г’)=’Д’
upcase(‘n’)=’N’

Дан символ, вывести его код.

var
i, j, k, y, x: integer;
s, str1, a: string;
b: char;
begin
readln (b); { b:=’A’}
y:=ord (b); {y:= ord (‘A’)=65}
writeln(y); { y:=65}
end.

По данному коду вывести его символ.

var
i, j, k, y, x: integer;
s, str1, a: string;
b: char;
begin
readln (y); { y:=65}
b:=chr (y); {b:= chr(65)=’A’}
Writeln (b); { b:=’A’}
end.

тип – это данные типа string. Они используются для хранения

последовательностей символов. В Паскале длина стандартной строки ограничена 255 символами. Под каждый символ отводится по одному байту, в котором хранится код символа. Кроме того, каждая строка содержит еще дополнительный байт, в котором хранится длина строки. Если заранее известно, что длина строки будет меньше 255 символов, то программист может сам задать максимальную длину строки. Примеры описания строк:
type
str_type = string[12];
const
n = 50;
var
s1: string;
s2, s3: str_type;
s4: string[n];
s5, s6, s7: string[7];
Длина строки хранится в первом ее байте, индекс которого равен 0. Объявление типизированной константы для типа string осуществляется так:
const
s: string = 'FreePascal'
Существует понятие пустой строки, т.е. строки, которая не имеет элементов. Пустая строка обозначается двумя рядом стоящими апострофами (например, st := ' ').

строками
Строки можно присваивать друг другу. Если максимальная длина переменной слева

меньше длины присваиваемой строки, то лишние символы справа отбрасываются.
s1 := 'this is text';
s2 := s1;
Строки можно объединять с помощью операции конкатенации, которая обозначается знаком +.
s1 := 'John';
s2 := 'Black';
s1 := s1 + ' ' + s2;
Строки можно сравнивать друг с другом с помощью операций отношения. При сравнении строки рассматриваются посимвольно слева направо, при этом сравниваются коды соответствующих пар символов. Строки равны, если они имеют одинаковую длину и посимвольно эквивалентны. В строках разной длины существующий символ всегда больше соответствующего ему отсутствующего символа. Меньшей будет та строка, у которой меньше код первого несовпадающего символа (вне зависимости от максимальных и текущих длин сравниваемых строк).
'abc' > 'ab' (true)
'abc' = 'abc' (true)
'abc' < 'abc ' (false)
Имя строки может использоваться в процедурах ввода-вывода. При вводе в строку считывается из входного потока количество символов, равное длине строки или меньшее, если символ перевода строки (который вводится нажатием клавиши Enter) встретится раньше. При выводе под строку отводится количество позиций, равное ее фактической длине.
readln (s1);
write (s1);

строками
К отдельному символу строки можно обращаться как к элементу массива

символов, например s1[3]. Символ строки совместим с типом char, их можно использовать в выражениях одновременно, например:

s1[3] := 'h';
writeln (s2[3] + 'r');

Можно осуществлять коррекцию любого символа строковой переменной, для чего в соответствующем операторе достаточно указать имя переменной типа string, вслед за которым в квадратных скобках задается номер ее элемента (например, str[3]:='j'). Элементы строки нумеруются с единицы, т.к. в каждой строковой переменной имеется элемент с номером 0, в котором в виде символа хранится длина текущей строки. Чтобы узнать текущую длину, достаточно применить функцию ord к нулевому элементу строки. Например: writeln (ord (st[0]))

Нулевой элемент строковой переменной можно корректировать. При этом будет изменяться текущая длина строки. Например, выражение str[0]:=#50 устанавливает текущую длину равной 50.

массивы символов s: array[1..5] of string;
В языке программирования Паскаль переменная типа

array of char может рассматриваться как строка постоянной длины. Переменные такого типа могут свободно использоваться в любых строковых выражениях. При этом компилятор автоматически преобразует такой массив в строку, длина которой равна количеству элементов массива.
Массивы типа char можно сравнивать друг с другом и обращаться с ними почти так же, как с переменными типа string. Можно в операторе присваивания в левой части указывать имя такого массива, а в правой – строковую константу с длиной, равной количеству элементов в массиве.
Кроме того, в Pascal массивам типа array of char разрешено присваивать строковые константы, длина которых меньше количества элементов массива; в оставшиеся при этом незаполненные элементы заносится символ #0. Однако нельзя переменной типа array of char присвоить значение строковой переменной или строкового выражения (кроме выражений над строковыми константами с результирующей длиной, равной размерности массива). Массивы типа array of char могут использоваться в процедуре val и функциях concat, copy и length.

вывести на экран строку s:=’информатика’, и найти пятый символ в

данной строке и вывести его на экран.

var
s, str1: string;
begin
Readln (s); { s:=’informatika’}
str1:= s[5]; { str1:=s[5]=’r’;}
Writeln (s,’ ’,str1); { str1:=’r’;}
end.

величин определены четыре стандартные функции:
1. Функция соединения Concat (s1, s2,

..., sn). Значение функции – результат соединения строк s1, s2, ..., sn, не превышающая 255 символов. s:=s1+s2+…+sn;

Var
s, s1, s2, s3: string;
begin
Readln (s1, s2, s3); { s1:=’in’; s2:=’forma’; s3:=’tika’;}
s:=s1+s2+s3;
Writeln (s); { s:=’informatika’}
end.

2. Функция определения длины строки

Length (s), вычисляется количество символов, составляющее значение строки s:

var
s, s1: string;
k: integer;
begin
Readln (s); { s:=’informatika’}
k:= Length (s); { k:= Length (‘informatika’);}
Writeln (k); {k:=11;}
end.

3. Функция выделения copy (s, i, k). Из строки

s выделяются k символов, начиная с i-го символа:

Var s, s1: string;
I, k: integer;
begin
Readln (s); { s:=’крокодил’;}
s1:=copy (s, 4, 3);
Writeln (s1); { s:=’код’;}
end.

определения позиции - pos (s, t). - вычисляется

номер позиции, начиная с которого строка s первый раз входит в строку t; - результат «0», если строка s не обнаруживается в строке t:

var
s, t: string;
k: integer;
begin
Readln (t, s); {t:=’ informatika’; s:=’ forma’; }
k:= pos (s, t); { k:= pos (’ forma’, ’ informatika’};
Writeln (k); {k:=3;}
end.

определены также четыре стандартные процедуры для обработки строковых величин:
1. Процедура

удаления delete(s,i,k). Из строки s удаляются k символов, начиная с i-го символа:

var
s, t: string;
k: integer;
begin
readln(s); {s:=’ информатика’; }
delete (s,4,3); { delete (’информатика ’,4,3};
writeln(s); {s:=’инфатика’ ;}
end.

вставки – insert(s,t,i). Строка s вставляется в строку t,

начиная с позиции i:

var
s, t, m: string;
k: integer;
begin
readln (s, t); {s:=’ информа’; t:=’ тика’; }
insert (t, s, 8); { insert(’тика’, ’информа’,8); };
writeln (s); {s:=’информатика’ ;}
end.

преобразования числа в строку символов – str(k,s):
var

s, t, m: string;
k: integer;
begin
readln (k); {k:=123; (число)}
str (k, s); {str(123, s); };
writeln (s); {s:=’123’; (строка)}
end.

преобразования строки из цифр в число - val(s,k,i). Значение

i=0, если в строке s нет символов, отличных от цифр, в противном случае i= номер позиции первого символа, отличного от цифры:

var
s, t, m: string;
k, i: integer;
begin
readln (s); {s:=’ 564a32’; }
val (s, k, i); { val ( ‘564a32’, k, i); };
writeln (s, ‘ k:=’, k, ‘ i:=’, i );
{s:=’564a32’, k:=564, i:=4 ;}
{s:=’564’, k:=564, i:=0 ;}
end.