Презентация на тему Тема 5. Строки. Множества

процедуры обработки строк
Множества
Примеры решения задач
Содержание

Перейдем теперь к изучению массивов специального вида - линейных

of char;
Это массив символов:
каждый символ – отдельный объект;
массив имеет

Что нужно:
обрабатывать последовательность символов как единое целое
строка должна иметь переменную длину

образом:
Описание символьных строк
Максимальная длина строки - 255 символов.

var <имя_строки>: string[<длина>];

string[20];
Длина строки:
n := length ( s );
var n: integer;

Описание

строка длиной в один символ
Описание символьных строк
совершенно не

var c: char; s: string[1];

последовательность любых символов, заключенная в апострофы, воспринимается как символ

Символ-константа и строка-константа: неименованные константы

c:='z'; {c: char}
s:='abc'; {s: string}

достаточный для ее представления:
char или string[k].
Поэтому попытка написать
Символ-константа

вызовет ошибку уже на этапе компиляции.

c:='zzz'; {c: char}

и строка-константа: неименованные константы
st:=''; { пустая строка }
Если

Если теперь вывести на экран эту строку, то получится следующее:

Don't worry about the apostrophe!

s:='Don''t worry about the apostrophe!';

как неименованных констант остаются в силе и при задании

Символ-константа и строка-константа: нетипизированные константы

const c3 = ''''; {это один символ - апостроф!}
s3 = 'Это строка';

char или string, задается в разделе const следующим образом:

Символ-константа и строка-константа: типизированные константы

const c4: char = '''';
{это один символ - апостроф!}
s4: string[20] = 'Это строка';

операции
является символ, номер которого в таблице ASCII соответствует заданному

#<положительная неименованная константа целого типа>

#100 = 'd'
#39 = '''' {апостроф}
#232 = 'ш'
#1000 = 'ш' {потому что (1000 mod 256)= 232}

и к значениям всех порядковых типов данных, применимы операции

Действия с символами: операции

символ.
Действие этой функции аналогично действию операции #.

Например:

Действия с символами: стандартные функции

c:= chr(48); { c: char }
{ c = '0' }

изученная нами функция ord().
Таким образом, для любого числа

Действия с символами: стандартные функции

ord(chr(k)) = k ;
chr(ord(c)) = c;

succ(), inc() и dec(),
определенные для значений любого

Действия с символами: стандартные функции

pred('[') = 'Z'
succ('z') = '{'
inc('a') = 'b'
inc('c', 2) = 'e'
dec('z') = 'y'
dec(#0, 4) = '№' {#252}

букву в прописную.

Символы, не являющиеся строчными латинскими буквами,

Действия с символами: стандартные функции

при этом записывается имя строки без индекса.

Для ввода

Ввод-вывод строковых переменных

к ним можно обращаться
как к скалярным переменным,
так

Обращение к строковым переменным

S:= St[20]; { обращение к 20 эл-ту строки St }
Po:='Компьютер'; { инициализация строки }
Fillchar (a, sizeof(a), '0');
{ заполнение строки a символьными ’0’ }

string; C: char;
и задано
S:='Москва',
то
S[1]='М',

Обращение к строковым переменным

местами и получать новые слова.
Пример 1. Вывод исходного

Обращение к строковым переменным

for i:=1 to N div 2 do begin
C:=S[i]; S[i]:=S[N-i+1]; S[N-i+1]:=C end;
Writeln(S);

Пример 2. Поиск и замена заданного символа в строке

for i:=1 to N do
if S[i]='_' then writeln('найден символ пробел');
for i:=1 to N do
if S[i]='/' then S[i]:='\';
{ замена символа "/" на "\" }

выполняемые над строковыми переменными

объединения),
сравнения.
Операции, выполняемые над строками

строка, в которой исходные строки-операнды соединены в порядке их

Операция конкатенации

X:='Пример'; Y:='сложения'; Z:='строк';
Writeln(X + Y + Z);
Writeln(Y + ' ' + Z + ' ' + X);

На экран будут выведены строки:
Примерсложениястрок
сложения строк Пример

'Кро'+' 'код'+ 'ил'
позволит получить новую строку
'Крокодил'

– строку, не содержащую символов:
EmptyStr := '';

Операция конкатенации

данных, для элементов которого определен порядок и, следовательно, возможны

Операция сравнения

упорядочен лексикографически. Это означает, что
порядок на строках согласован с

Операция сравнения

'abc' < 'xyz'
'Иванов' < 'Иванова'
'1200' < '45'
'Татьяна' < 'татьяна'

длину строки - аргумента X. Причем, длина пустой строки

Примеры:
Исходные данные: S := ‘крокодил‘;
Оператор: j := length(S);
Результат: j = 8

Исходные данные: T := ‘Компьютерный класс‘;
Оператор: j := length(T);
Результат: j = 18

заменить все буквы «а» на буквы «б».
program qq;
var s:

readln(s);

writeln(s);

Length(s)

ввод строки

длина строки

вывод строки

Функция Length

string;
Копирует (выделяет) подстроку строки X, начиная с позиции Index

s, 3, 6 );
s2 := Copy ( s1,

'345678'

'456'

с 3-его символа

6 штук

Функция Copy

Исходные данные: S := ‘крокодил‘;
Оператор: b:= cору(S, 2, 3);
Результат: b = 'рок'.

Исходные данные: T := ‘Компьютерный класс‘;
Оператор: c:= cору(T, 14, 53);
Результат: c = 'класс'.

copy('abc3de Xyz', 2, 4) = 'bc3d'
copy('abc3de Xyz', 12, 4) = ''
copy('abc3de Xyz', 8, 14) = 'Xyz'

Объединение (конкатенация) строк или символов Х1, X2, .., Xk

b := 'ил‘;
Оператор: S := concat('кро', a, b).
Результат: S

первое вхождение строки Y в строке X (считая слева

Примеры:
Исходные данные: S := ‘крокодил‘;
Оператор: i := pos('око‘, S);
Результат: i = 3.

Оператор: i := pos('я', ‘крокодил');
Результат: i = 0.

'Здесь был Вася.';
n := Pos ( 'е', s );
if

s[3]

3

n = 11

Особенности:
функция возвращает номер символа, с которого начинается образец в строке
если слова нет, возвращается 0
поиск с начала (находится первое слово)

var n: integer;

Удаляет из строки X подстроку, начиная с позиции, заданной

6 );
с 3-его символа
6 штук
строка
меняется!
'123456789'
'129'
Процедура Delete
Исходные данные:

строку Y в строку X, начиная с позиции, заданной

3 );
Insert ( 'Q', s, 5 );
куда вставляем
что

начиная с 3-его символа

'12ABC3456789'

'12ABQC3456789'

Процедура Insert

Исходные данные: S := 'крокодил‘;
Оператор: d := сору(S, 3, 3);
Результат: d = 'око'.
Оператор: insert('H', d, 3);
Результат: d = 'окНо'.

Pos ( 'Петя', s );
Delete ( s, n, 4

'Вася Лена Митя'

s := 'Вася Петя Митя';
n := length ( s );
s1 := Copy ( s, 1, 4 );
s2 := Copy ( s, 11, 4 );
s3 := Copy ( s, 6, 4 );
s := s3 + s1 + s2;
n := length ( s );

'Вася Митя'

14

'Вася'

'Митя'

'Петя'

'ПетяВасяМитя'

12

6

:byte );
Преобразует строку символов St в величину целочисленного или

'123';
Val ( s, N, r ); { N =

var N: integer;
X: real;
s: string;

Процедура Val

Исходные данные: St := ‘1500’;
Оператор: Val(St, Ibr, Cod);
Результат: Ibr = 1500 Cod = 0

Исходные данные: St := ‘4.8A+03’;
Оператор: Val(St, Ibr, Cod);
Результат: Ibr = ??? Cod = 5

);
Преобразует числовое значение величины Ibr в строковое и помещает

123;
Str ( N, s ); { '123'

var N: integer;
X: real;
s: string;

Процедура Str

Исходные данные: Ibr := 1500;
Оператор: str(Ibr:6, S);
Результат: S = ‘__1500’.

Исходные данные: Ibr := 4.8E+03;
Оператор: str(Ibr:10, S);
Результат: S = ‘______4800’.

символ S строчной гласной буквой русского алфавита.
Решение. pos(S, 'аэоуыяеёюи')

Пример 2. Выделить часть строки после первого пробела.
Решение.
copy(s, pos(' ', s)+1, Length(s)-pos(' ', s))

Пример 3. Удалить последний символ строки S.
Решение. delete(S, Length(S), 1)

Пример 4. Выделить из строки S подстроку между i-й и j-й позициями, включая эти позиции.
Решение. copy(s, i, j-i+1)

заданной строке встречается указанная буква.
Решение 1. Обозначим заданную

Решение 2. Ищем положение указанной буквы в строке до тех пор, пока ее удастся найти. Затем отбрасываем ту часть строки, где была найдена указанная буква, и повторяем поиск.

k:=0; { количество указанных букв в строке }
for i:=1 to Length(s) do
if copy(s, i, 1)=a then k:=k+1;

k:=0; j:=pos(a, s); { позиция 1-го вхождения а в строку s }
while j<>0 do begin
k:=k+1;
s:=copy(s, j+1, Length(s)-j); j:=pos(a, s)
end;

букв и цифр. Строка состоит из слов, разделенных одним

j:=pos(' ', s);
while j<>0 do begin
delete(s, j, 1);
j:=pos(' ', s)
end;

и фамилию. Преобразовать их к формату «фамилия-инициалы».
Пример:

Алгоритм:
найти первый пробел и выделить имя
удалить имя с пробелом из основной строки
найти первый пробел и выделить отчество
удалить отчество с пробелом из основной строки
«сцепить» фамилию, первые буквы имени и фамилии, точки, пробелы…

n: integer;
begin
writeln('Введите имя, отчество и фамилию');

и изменить его расширение на «.exe».
Пример:
Введите

N, обозначающее количество футболистов команды «Шайба», а затем –

Алгоритм:

for i:=1 to N do begin
{ пропускаем фамилию и имя }
{ читаем год рождения Year и число голов Gol }
if (1988 <= Year) and (Year <=1990) and
(Gol = 0) then { увеличиваем счетчик }
end;

' '; { пока не встретим пробел }
var c:

Пропуск имени:

repeat read(c); until c = ' ';

Ввод года рождения:

read(Year); { из той же введенной строки }

var Year: integer;

Ввод числа голов и переход к следующей строке:

readln(Gol); { читать все до конца строки }

var Gol: integer;

N, count, Year, Gol: integer;
begin
writeln('Количество футболистов');
readln(N);
count

repeat read(c); until c = ' ';
repeat read(c); until c = ' ';
read(Year);
readln(Gol);

{ пустая строка }
repeat
read(c);

Вместо read(Year):

s := ''; { пустая строка }
repeat
read(c); { прочитать символ }
s := s + c; { прицепить к фамилии }
until c = ' ';
Val(s, Year, r); { строку – в число }

var fam: string;

var s: string;

MAX = 100;
var fam: array[1..MAX] of string;
...
fam[i] := '';

массив символьных строк

представляющий собой набор взаимосвязанных по какому-либо признаку или группе

всевозможных подмножеств, составленных из элементов базового типа.
В выражениях

элементов множества не должно превышать 256, соответственно номера значений

относящейся к нему:
Описание множества
Type = set

В разделе var множества описываются следующим образом (без предварительного описания типа):

Var <имя_множества>: set of
<тип_элементов_множества>;

Элементы могут принадлежать к любому порядковому типу, размер которого не превышает 1 байт (256 элементов).

= set of ’a’..’h’;
Number = set of

Var s2: set of 'a'..'z','A'..'Z';
{множество из 52-х элементов}
s3: set of 0..10; {множество из 11-ти элементов}
s4: set of boolean; {множество из 2-х элементов}

Pr может принимать значения символов латинского алфавита от ‘a’ до ‘h’;

N – любое значение в диапазоне 1...31;

Letter – любой символ;

в тексте программы. Для этого необходимо заключить список элементов

Множество-константа: неименованная константа

[<список_элементов>]

Список элементов может быть задан перечислением элементов нового множества через запятую, интервалом или объединением этих двух способов.
Элементы и границы интервалов могут быть переменными, константами и выражениями. Если левая граница интервала окажется больше правой, результатом будет пустое множество.

Множество-константа: неименованная константа
if c in ['a','e','i','o','u'] then
writeln('Гласная

поэтому его невозможно задать нетипизированной константой!
Множество-константа: нетипизированная константа

в разделе const:
: set of
=[];

Множество-константа: типизированная константа

Например,

type cipher = set of '0'..'9';
const odds: cipher = ['1','3','5','7','9'];
vowels: set of 'a'..'z'=['a','o','e','u','i'];

дает ряд преимуществ:
значительно упрощаются сложные операторы if,
увеличивается степень

операций:
отношения =, , >=,

равными, если они состоят из одних и тех же

Операция «Равно» (=)

не равными, если они отличаются по мощности или по

Операция «Неравно» (<>)

определения принадлежности множеств.
Результат операции А >= В равен

Операция «Больше или равно» (>=)

но результат выражения А

Операция «Меньше или равно» (<=)

какого-либо значения указанному множеству. Обычно применяется в условных операторах.
(a∈B)
Например,
Операция

При использовании операции in проверяемое на принадлежность значение и множество в квадратных скобках не обязательно предварительно описывать в разделе описаний.

производить сложные проверки условий, заменяя иногда десятки других операций.

Операция IN

можно заменить более коротким выражением

if (a=1) or (a=2) or (a=4)
or (a=5) or (a=6) then …

if a in [1..6] then …

отрицанием:
X NOT in M
(x∉M)
Такая запись является ошибочной, так

Операция отрицания IN

NOT (X in M)

содержащее элементы обоих множеств (A∪B).
Графическая интерпретация:



Например,
Операция «Объединение» (+)

которое содержит элементы, входящие одновременно в оба множества(A∩B).
Графическая

Операция «Пересечение» (*)

которое содержит элементы первого множества, не входящие во второе

Операция «Разность» (–)

содержимое множества. Это приходится делать следующим образом:
{s: set

множеств

1 до n. Создать из элементов этого множества такие

Пример 1

set of 1..n;
k: integer;
Begin
{задание начальных значений

Пример 1

10’);
for k:=1 to n do
if k in mn1

Пример 1

буквы из текста, которые встречаются в данном тексте только

Пример 2

program mnogestvo;
Var mn1, mn2: set of char;
i: integer; Stroka: string;
Begin
writeln('Введите строку '); readln(Stroka);
mn1:=[]; mn2:=[]; {Пустые множества}
for i:=1 to Length(Stroka) do
if Stroka[i] in mn1 then mn2:=mn2+[Stroka[i]]
else mn1:=mn1 + [Stroka[i]];
for i:=1 to Length(Stroka) do
if (not(Stroka[i] in mn2)) then writeln(Stroka[i]);
end.

mn2 – содержит парные буквы

mn1 – содержит все встречающиеся буквы в строке

Вывод тех букв, которых нет в множестве mn2

каждого символа, взаимный порядок оставленных символов сохранить.
Пример 3
program

s – содержит все встречающиеся буквы в строке;
inp – исходная строка;
res – результирующая строка

каждого символа, взаимный порядок оставленных символов сохранить.
Пример 4
program

inp – исходная строка;
res – результирующая строка

одним или несколькими пробелами. Определить самое длинное слово предложения.

Решение.

Пример 5

}
readln(s); { исходное предложение }
s:=s+' '; { исходное предложение