Рядкові величини

Формат,
var
<ідентифікатор>:string[максимальна довжина рядка];
Приклад.
var Rl: string[10];
R2: string[4];
Максимальна довжина рядка для змінної R1=10, для R2=4.
Якщо довжина рядка не вказана, то вона автоматично приймає значення — 255 байт.

Рядкові величини можна використовувати в програмі і у вигляді констант.
Наприклад.
Const NАМЕ ='інформатика';

Для роботи з рядковими величинами існує ряд процедур і функцій.
Функція Concat
Формат
Concat(Rl,R2,R3);
Функція Concat здійснює склеювання рядків Rl; R2, R3 в один рядок в такому порядку, в якому вони записані.

Наприклад.
Program Fconcat;
Const Rl='Moвa ';
R2='програмування ';
R3=’Turbo Pascal'; Var R:string[35];
begin
R:=concat(Rl,R2,R3);
writeln(R);
end.

Rl='Moвa ';
R2='програмування ';
R3=’Turbo Pascal';
R:=concat(Rl,R2,R3);
'Moвa
програмування
Turbo Pascal';
R:=
На екрані дисплея буде надруковано:
Мова програмування Turbo Pascal.

Даний результат можна отримати ще з допомогою операції склеювання — "+".
Наприклад.
Program Fconcat;
var R:string[35];
begin
R='Мова '+'програмування '+'Turbo
Pascal';
writeln(R);
end.

Функція Length
Формат: Length(R);
Функція Length видає фактичну довжину рядка, який міститься в даній змінній. При підрахуванні довжини рядка враховуються всі символи, в тому числі і проміжки.

Наприклад.
Program Flength;
Const R=’Turbo Pascal’;
Var N: integer;
begin
N:=length(R); writeln('n=',N);
end.
На екрані дисплея буде надруковано: п=12

Функція Copy
Формат
Copy(R, Poz, N);
Функція Copy копіює фрагмент довжиною N рядка R,
починаючи з позиції Poz.

Наприклад.
Program Fcopy;
const R='Turbo Pascal';
var WORD: string[6];
Poz, N: integer;
begin Poz:=7;
N:=6;
WORD:=Copy(R, Poz, N);
writeln(WORD);
end.
На екрані дисплея буде надруковано слово: Pascal

Робота програми
R=
Pos:=7
word=
N:=6

Робота програми
R=
Pos:=7
word=
N:=6

Робота програми
R=
Pos:=7
word=
N:=6

Робота програми
R=
Pos:=7
word=
N:=6

Робота програми
R=
Pos:=7
word=
N:=6

Робота програми
R=
Pos:=7
word=
N:=6

Робота програми
R=
Pos:=7
word=
N:=6

Функція Pos
Формат.
Pos(WORD,R);
Функція Pos знаходить номер позиції Р, з якої починається перше входження слова WORD в рядку R.
Якщо слово WORD в рядку R не знайдено, то буде надруковано число 0.

Наприклад.
Program Fpos;
Const R='Севастополь';
WORD='сто';
Var P: integer;
begin
P:=Pos(WORD, R);
writeln('P=',P);
end.
На екрані дисплея буде надруковано: Р=5

Робота програми
R='Севастополь';
WORD='сто';

Робота програми
R='Севастополь';
WORD='сто';

Робота програми
R='Севастополь';
WORD='сто';

Робота програми
R='Севастополь';
WORD='сто';

Робота програми
R='Севастополь';
WORD='сто';

Робота програми
R='Севастополь';
WORD='сто';

Робота програми
R='Севастополь';
WORD='сто';
P=5
Pos(WORD, R) = 5

Процедура Insert
Формат
Insert(WORD, R, Poz);
Процедура Insert вставляє слово WORD в рядок R, починаючи з позиції Poz.

Наприклад.
Program Finsert;
Var Poz: integer;
R, WORD: string[35];
begin
Poz:=20;
R:='Moвa програмування Pascal';
word:=’Turbo ‘;
insert(WORD, R, Poz);
writeln(R);
end.

Poz:=6;
R:='Moва Pascal';
word:=’Turbo ‘;
insert(WORD, R, Poz);
Poz=6

Poz:=6;
R:='Moва Pascal';
word:=’Turbo ‘;
insert(WORD, R, Poz);
Poz=6

Poz:=6;
R:='Moва Pascal';
word:=’Turbo ‘;
insert(WORD, R, Poz);
Poz=6

Процедура Delete
Формат
Delete(R, Poz, N);
Процедура Delete знищує слово, яке починається з вказаної позиції Poz і має задану довжину N в рядку R.

Наприклад.
Program Fdelete;
Var R:string[35];
N, Poz: integer;
begin
R:='Moвa Turbo Pascal'; Poz=6;
N:=6;
delete(R, Poz, N);
writeln(R);
end.
На екрані дисплея буде надруковано:
Мова Pascal

Poz:=6;
R:='Moва Turbo Pascal';
word:=’Turbo ‘;
delete(R, Poz,6);
Poz=6
N=6