Тип - строка

1.

Тип - строка

2.

Представляет собой
последовательность символов
произвольной длины (до 256
символов)

3.

Синтаксис описания типа
Type
<имя типа>=string;
<имя типа>=string[<количество]

4.

Примеры
Type
Str1=string;
Str2=string[11];

5.

Объявление переменных
Var
S1:str1;
S2:str2;
S:string;

6.

Операции над строками
Обращение к элементу строки
<имя строки>[<номер элемента>]
Сложение строк
<строка1>+<строка2>
Сравнение строк
по-элементно, слева направо, используя
ASCII -коды

7.

Функции для работы со строками
Длина строки
length(s:string):integer;
Нахождение позиции, с которой начинается
подстрока S1 в строке S
pos(s1:string,s:string):integer;
Копирование из строки S, начиная с позиции n,
k символов
copy(S:string,n:integer,k:integer):string;

8.

Примеры
S:=‘НОВОСИБИРСК’;
K:=length(s);
K:=pos(‘СИ’,s);
S1:=copy(s,5,2);

9.

Процедуры для работы со строками
Удаление из строки S,
начиная с позиции
n, k символов
delete(S:string,n:integer,k:integer);
Вставка подстроки S1 в строку S, начиная
с позиции n
insert(s1:string,s:string,n:integer)

10.

Примеры
S:=‘НОВОСИБИРСК’;
Delete(s,1,4);
Insert(‘Ново’, s,1);

11.

Задача
Дана строка с заранее
необозначенным количеством слов.
Между словами пробелы, в конце –
точка. Записать каждое слово с новой
строки.

12.

Program a1;
Var s,s1:string;
K:integer;
Begin
writeln(‘введите строку’);
Readln(s);
S[length(s)]:=‘ ‘;
Repeat
K:=pos(‘ ‘,s);
S1:=copy(s,1,k-1);
If s1<>’’ then writeln (s1);
Delete(s,1,k)
Until s=‘’;
end.