Рядок - це масив символів, тобто елементів типу char. У Паскалі рядку відповідає тип даних String.
var Ім'я_рядка : string [Довжина];
Якщо довжина не зазначена, виділяється пам'ять під рядок до 255 символів.
var s1:string;
s2:string[20];
s3:array [1..20] of string;
Тут s2 – рядок з 20 символів, s3 – масив з 20 рядків, під кожну з яких буде виділено до 256 байт пам'яті (додатковий байт потрібний для зберігання довжини рядка).
Операції з рядками:
Привласнити рядку значення - оператор присвоювання.
s1:='А.І. Іванов';
s1[3]:=’В'; {символу привласнили символ!}
s2:='1999';
s3[1]:='Інформатика';
s3[2]:='';
Увести рядок із клавіатури: тільки оператор readln ( тому що введення рядка повинен завершуватися натисканням Enter!).
Вивести рядок на екран: можна використовувати як, Write так і Writeln
s2:='SUMMA';
Write (s2) ; - буде виведено SUMMA
Writeln ('Сума':10); - буде виведено _ _ _ _ _ Сума
З'єднати 2 рядки - оператор додавання.
s1:='1999' + ' рік';
s3[3]:=s1+' '+s2;
Якщо при додаванні рядків перевищена максимальна довжина рядка, зайві символи відтинаються. Можна також використовувати стандартну функцію Concat.
Зрівняти 2 рядка: операції порівняння. Правила:
· рядки рівні тільки при однаковому наборі символів і однаковій довжині;
· інакше відбувається заелементне порівняння символів по їхніх кодах: '0'<'1'<...<'9'<'A'<...<'Z'<'a'<...<'z'<символи кирилиці
Стандартні підпрограми обробки рядків:
function Length (s:string):integer - визначити довжину рядка в символах;
function Copy (str:string; N,L:integer): string - повертає частина рядка str довжиною L, починаючи з позиції N;
procedure Insert (s0:string; var s: string; N: integer) - у рядок s вставляє рядок s0, починаючи з позиції N;
procedure Delete (var s:string; N,L:integer) - у рядку s видаляє L символів, починаючи з позиції N;
Function Pos (s0, s:string): integer - повертає позицію, починаючи з якої рядок s0 утримується в рядку s або 0, якщо s0 не втримується в s;
Procedure Str (X: real; var s:string);
Procedure Str (X: integer; var s:string) - перетворить число X у рядок s;
Procedure Val (s:string; var X: real; var error:integer);
Procedure Val (s:string; var X: integer; var error:integer); - перетворить рядок s у число X. Якщо перетворити вдалося, error=0, інакше error=номеру першого непреобразуемого символу.
Наведених стандартних підпрограм досить для більшості нескладних завдань, пов'язаних з обробкою текстових даних. Розглянемо ряд типових завдань на прикладах.
Пр: Розглядаємо пропозицію на слова й виводимо кожне слово
var s,w:string;
p:integer;
begin
writeln ('Уведіть текст');
readln (s);
p:=1;
while p<>0 do begin
p:=pos (' ',s);
if p>0 then w:=copy (s,1,p-1)
else w:=s;
writeln (w);
delete (s,1,p);
end;
end.
Алгоритм роботи цієї програми дуже простий - доти, поки в рядку s є хоча б один пробіл, уся частина рядка до пробілу копіюється в строкову змінну w (слово). Якщо пробілів уже ні, то весь рядок – це одне слово. Після обробки слова (у нашім випадку – це вивід його на новий рядок екрана оператором writeln) оброблена частина рядка разом із пробілом віддаляються з s – щоб наступний крок циклу не знайшов те ж саме слово. Перший недолік такого підходу – не враховані зайві пробіли між словами. Позбудемося їх за допомогою наступного прикладу.
Пр: Видаляємо зайві пробіли між словами
{ . . . }
p:=1;
while p<>0 do begin
p:=pos (' ',s);
if p>0 then delete (s,p,1);
end;
if s[1]=' ' then delete (s,1,1);
if s[length(s)]=' ' then delete (s, length(s),1);
writeln (s);
Поки в рядку є два, що підряд ідуть пробілу, видаляємо один з них. Після цього залишається перевірити, немає чи на початку й кінці рядка по одному зайвому пробілу. Другий і більш істотний недолік наведених прикладів – проходи по рядкові кількаразові, тоді як розбір на слова можна зробити й за один цикл сканування рядка. Спробуємо реалізувати це в наступній програмі.
Пр. Розглядаємо пропозицію на слова за один цикл розбору.
var s,word:String;
c,c0:char;
i,l,start:integer;
inword:boolean;
begin
writeln ('Enter string:');
reset (input); readln (s);
s:=' '+s+' ';
l:=Length (s);
inword:=false;
for i:=2 to l do begin
c0:=s[i-1];
c:=s[i];
if (c0=' ') and (c<>' ') then begin
inword:=true;
start:=i;
end;
if (c=' ') or (c=#9) then begin
if inword=true then begin
word:=copy (s,start,i-start);
writeln ('''',word,''' is word');
end;
inword:=false;
end;
end;
end.
По суті справи, у нашої програми всього 2 стану – усередині слова й поза ним. Перемиканням станів управляє прапор inword. Номер символу, з якого починається чергове слово, запам'ятовується в змінній start. Програма не враховує розділові знаки й можливість поділу слів іншими символами, крім пробілу. Проте, позбувшись ще й від функції copy, що робить зайвий прохід у галузі рядка (наприклад, відразу ж накопичуючи слово word у міру сканування), можна було б одержати дійсно ефективний алгоритм. Як звичайно, платою за ефективність є складність програми.
Пр.Працюємо з рядком як з масивом символів (уважаємо кіл-у пробілів у рядку)
var s:string;
k,i:integer;
begin
writeln ('Text?');
readln (s);
k:=0;
for i:=1 to length (s) do
if s[i]=' ' then k:=k+1;
writeln ('k=',k);
end.
