Строки. 
Структурные типы данных в Pascal

Описание строки

Строка — последовательность символов. Описание строковой переменной в общем виде выглядит следующим образом:

Var имя: string [длина];

— объявление строки с максимально заданной длиной;

Var имя: string;

— объявление строки без указания максимальной заданной длины;

Примеры объявления строк:

Var s: string [20];

str: string;

Строка s может иметь не более двадцати символов, а если при этом длина строки не указывается, значит, длина строки ограничивается 255-ю символами. Значения строк должны обязательно заключаться в апострофы. То есть, если мы хотим поместить в строку s выражение «Я — студент геологического факультета», мы будем использовать оператор присваивания:

str:='Я — студент геологического факультета';

или еще примеры:

s:='1980`; (это именно строка, не целое число, с этой строкой нельзя производить арифметических операций),.

s:='Введите переменную a, а затем b';

s:=''; (это пустая строка, заметьте, что между апострофами нет ни одного символа, даже пробела);

s:=' '; (это строка, содержащая один пробел).

Операции со строками

Пусть описаны следующие строки:

Var s, s1, str: string;

1) Ввод строки: В отличие от массива, строку можно вводить целиком сразу при помощи оператора readln:

Readln (s);

2) Присваивание строки: Значение одной строки можно присвоить другой строке, например:

s1:=s.

3) Обращение к символу строки с порядковым номером i аналогично обращению к элементу массива.

s[i].

Например, в строке str='Я — студент геологического факультета' символ str[6]='т', str[15]='о', str[2]=' ' (пробел).

4) Вывод строки: Строку можно выводить целиком при помощи оператора writeln:

writeln (s);

5) Сложение строк: Подобно числовым переменным, строковые переменные можно складывать. Результат сложения можно присваивать какой-либо символьной переменной.

Например, если значение переменной s равно «Турбо «, а переменной s1 — «Паскаль», то в результате операции:

Str:=s+s1;

Значение переменной str станет равным словосочетанию «Turbo Pascal», т. е. вторая строка приписывается в конец первой.

То же самое можно сделать при помощи функии Concat (s1,s2, … sn), например получить фразу «Turbo Pascal» можно при помощи.

Str:=Сoncat (s, s1);

6) Сравнение строк можно производить при помощи знаков =, >, <,, =. Сравнение строк происходит посимвольно слева направо.

Строки равны, если их длины одинаковы и элементы строк посимвольно совпадают. Одна строка считается меньше другой, если она должна находиться раньше второй в алфавитном порядке.

7) Определение длины строки производится при помощи функции.

Length (s).

Например, если s='Турбо ', s1='Паскаль', str='Turbo Pascal', то.

Length (s)=6;

Length (s1)=7;

Length (str)=13.

8) Выделение подстроки в строке.

Copy (s, L, N).

Выделение подстроки из строки s длиной N, начинающуюся с позиции L.

Например, в строке s='Я — студент геофака', после выполнения оператора.

Str:=Copy (s, 5,7).

Получим str='студент' (вырезали из строки s подстроку, начиная с пятого символа, длиной семь символов).

9) определения номера начальной позиции первого вхождения подстроки в строке.

Pos (s1,s).

— определяет номер начальной позиции первого вхождения подстроки S1 в строку S. Если подстрока не найдена, результат равен нулю.

Например, в строках s='Я — студент геофака', s1='гео', str='студент'.

Pos (s1,s)=13; (строка 'гео' входит в строку 'Я — студент геофака', начиная с тринадцатого символа).

Pos (str, s)=5; (строка 'студент' входит в строку 'Я — студент геофака', начиная с пятого символа, пробелы учитываются).

Pos (s1,str)=0; (строка 'гео' входит в строку 'студент' не входит).

10) удаление из строки подстроки.

Delete (s, L, N).

— удаление из строки S подстроки длины N, начинающуюся с позиции L.

Например, в строке s='Я учусь на геофаке' в результате выполнения процедуры.

Delete (s, 3,6);

получим s='Я на геофаке' (удалили в строке s шесть символов, начиная c третьего).

11) вставка подстроки в строку.

Insert (s1, s, L).

— вставка в строку S подстроки S1, начиная с позиции L.

Например, в строке s='Я на геофаке', s1='КОВ' в результате выполнения процедуры массив pascal произведение программа.

Insert (s1,s, 2);

получим s='ЯКОВ на геофаке' (строка s1 вставилась в строку s, начиная со второго символа).

3.3 Некоторые примеры решения задач на строки.

Пример 1. Найти количество пробелов в строке. Введем строку, затем перебирая все символы от первого (i=1) до последнего (i=length (s)) посмотрим, сколько из них равны пробелам, предварительно переменную k, которая отвечает за количество пробелов, присвоим нулю,.

k:=0;

For i:=1 to length (s) do if s[i]=' ` then k:=k+1;

Текст программы:

Program z1;

Var s: string;

i, k: integer;

begin.

readln (s);

k:=0;

For i:=1 to length (s) do if s[i]=' ` then k:=k+1;

writeln (k).

end.

Пример 2. Найти количество букв `j' и `f' в строке. Также строку нужно ввести, перебрать все символы в строке, как и в предыдущем случае, и подсчитать количество символов `j' и `f'.

Переменную, отвечающую за количество букв `j', обозначим k1, а переменную, отвечающую за количество букв `f', обозначим k2.

k1:=0;

For i:=1 to length (s) do if s[i]='j` then k1:=k1+1;

K2:=0;

For i:=1 to length (s) do if s[i]='f` then k2:=k2+1;

Текст программы:

Program z2;

Var s: string;

i, k1, k2: integer;

begin.

readln (s);

k1:=0;

For i:=1 to length (s) do if s[i]='j` then k1:=k1+1;

K2:=0;

For i:=1 to length (s) do if s[i]='f` then k2:=k2+1;

writeln (k1, k2).

end.

Пример 3. В строке заменить слово «студент» на «абитуриент». После ввода строки нужно при помощи операции pos найти номер символа, где это слово начинается.

n:=pos (`студент', s);

Если такое слово в предложении есть (If n>0 then), то удалим семь символов с места n в строке.

delete (s, n.7);

после чего на это же место n вставим строку «абитуриент».

Insert (`абитуриент', s, n).

Текст программы:

Program z3;

Var s: string;

i, n: integer;

begin.

readln (s);

n:=pos (`студент', s);

if n>0 then.

begin delete (s, n,7);

Insert (`абитуриент', s, n).

End;

Writeln (s).

end.

Пример 4. В начало строки «наступил новый учебный год» добавить строку «1 сентября «. Текст программы:

Program z4;

Var s, s1, s2: string;

Begin s:='наступил новый учебный год';

s1:='1 сентября';

s2:=s1+s;{ можно s2:=concat (s1,s); }.

writeln (s2).

end.