Строки в Паскале

1.

СТРОКИ В ПАСКАЛЕ

2.

СТРОКИ В ПАСКАЛЕ
• Строка в Pascal – это последовательность
символов заключенных в апострофы.
Переменную строкового типа данных
определяет слово string.
• Var <имя_переменной>: string[<длина строки>];
• Длина строки может и не указываться, тогда она
будет равна максимально возможному
количеству символов — 255.

3.

ОБЪЕДИНЕНИЕ ЯЧЕЕК
Объединить строки можно при помощи
операции +, а также воспользовавшись
функцией Concat. Следующая программа
сначала выводит строку,
в которой объединены две другие, а затем
выводит все три имеющиеся строковые
переменные посредством функции Concat.

4.

ОБЪЕДИНЕНИЕ СТРОК
• program stroki;
uses crt;
var sing, quant, sq: string;
begin
quant:=‘Квантовая’;
sing:=‘cингулярность’;
sq:=quant+‘ ‘+sing;
writeln(sq);
write(concat(sq, ‘ ‘,quant,‘ ‘, sing));
end.

5.

СРАВНЕНИЕ ДВУХ СТРОК
• Сравнение двух строк в Паскале
осуществляется операциями отношения
(<,>,=,<>,<=,>=).
• При этом первый символ первой строки
сравнивается с первым второй строки,
потом второй со вторым, третий с
третьим и т. д. до тех пор, пока не
нарушится равенство (т. е. число
символов, либо их количество в строках
окажется разным), или операция не
завершится.

6.

СРАВНЕНИЕ ДВУХ СТРОК
‘stroke’ < ‘stroke’
‘stroke’ > ‘str’
‘stroke’ = ‘stroke’

7.

УДАЛЕНИЕ СИМВОЛОВ
• Удалить необходимые символы из строки
можно с помощью процедуры Delete. В
общем виде она имеет вид:
• Delete(<строка>, <начиная с
этого символа>, <количество>)
• Вот так выглядит элементарная
программа, в которой используется
процедура Delete: (После ее выполнения
на экране появится слово «Квант»).

8.

УДАЛЕНИЕ СИМВОЛОВ
program stroki;
uses crt;
var sing, quant, sq:
string;
begin
quant:=‘Квантовая’;
delete(quant, 6, 4);
write(quant);
end.

9.

ВСТАВКА СИМВОЛОВ
Для вставки подстроки в строку в Паскале
есть процедура Insert.
lnsert(<строка 1>, <строка 2>, <начиная с
этого символа>)
Строка 1 вставляется в строку 2, начиная с
указанного символа. Так, например, для
вставки нашей строки sing в строку quant
нужно пописать следующий код.
quant:=’Квантовая’;
sing:=’ cингулярность’;
insert(sing, quant, 10);

10.

ДЛИНА СТРОКИ
• Длина строки – это количество
символов содержащихся в
переменной строкового типа. Чтобы
узнать ее можно воспользоваться
функцией Length, возвращающей
целое число. Форма записи данной
функции такая:
• Length(<строка>);

11.

КОПИРОВАНИЕ СТРОК
В Паскале для копирования строк
предусмотрена функция Copy:
Copy(<строка>, <начиная с этого
символа>, <количество>);
Пример программы, использующей
функцию Copy:

12.

КОПИРОВАНИЕ СТРОК
program stroki;
uses crt;
var sing, quant, sq: string;
begin
sq:=‘Квантовая cингулярность’;
quant:=copy(sq, 1, 9);
sing:=copy(sq, 10, 14);
write(quant, sing);
end.
Из sq было произведено копирование в
две другие строки.

13.

ОПРЕДЕЛЕНИЕ ПОЗИЦИИ
ПОДСТРОКИ
• Функция Pos определяет позицию
подстроки в строке, и в случае удачи
возвращает целое число
соответствующее номеру элемента,
с которого начинается вхождение.
Общий вид функции:
• Pos(<подстрока>, <строка>);

14.

ПРЕОБРАЗОВАНИЕ ЧИСЛОВОГО
ЗНАЧЕНИЯ
• Преобразование числового
значения осуществляется
посредством процедуры Str:
• Str(<числовая величина>, <строка>);

15.

Пример программы:
program stroki;
uses crt;
var s: string;
c: integer;
begin
c:=1000;
str(c, s);
write(s); {s = ‘1000’}
end.

16.

ПРЕОБРАЗОВАНИЕ СТРОКИ В
ЧИСЛОВОЕ ЗНАЧЕНИЕ
• Преобразовать строку в числовое значение
можно при помощи процедуры Val:
• Val(<строка>, <числовая величина>,
<переменная>);
• Строка должна состоять из числовых символов.
Переменная нужна для записи номера первого
ошибочного символа, в случае его наличия, либо
нуля.

17.

ПРЕОБРАЗОВАНИЕ СТРОКИ В
ЧИСЛОВОЕ ЗНАЧЕНИЕ
program stroki;
uses crt;
var s: string;
c, err: integer;
begin
s:=‘1000’;
val(s, c, err);
writeln(c); {c = 1000}
writeln(err); {err = 0}
s:=’12p23′;
val(s, c, err);
writeln(c); {c = 12}
write(err); {err = 3}
end.

18.

ДОМАШНЕЕ ЗАДАНИЕ
• § 18, стр. 110
• Разобрать примеры, стр. 112 – 113