Процедуры и функции для работы со строками

Все основные действия над строками и символами реализуют с иомощью стандартных процедур и функции.

1. Функция Length(st): word - возвращает длину строки st, например:

n: =length(st1); {целочисленной переменной n присваивается значение длины строки}

2. Процедура Delete(st, index, count) -удаляет count символов строки st, начиная с символа с номером index, например:

Sl: = 'dddddsssssfffff';

Delete(Sl, 6, 5); {получим результат 'dddddfffff'}

3. Процедура Insert(St2, St1, index) - вставляет подстроку символов St2 в строку St1, начиная с символа с номером index. Процедура обычно используется при формировании строк, включающих числовую информацию, например:

S1: = 'dddddddddd';

S2: = 'aaaaaа';

Insert(S1, S2, 6): {получим 'dddddaaaaaaddddd'}

Insert ('Рas', S2, 6); {получим 'dddddPasaaaaaaddddd'}

4. Процедура Str(x[: w [: d]], St) - преобразует результат выражения x, в строку st, содержащую запись этого числа в виде последовательности символов (как при выводе).

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

5. Процедура Val(St, x. Code) -преобразует строку St с записью числа в виде последовательности символов во внутреннее представление целого или вещественного числа и помещает его в переменную х. В целочисленной переменной Code процедура возвращает код ошибки: 0 - если преобразование прошло успешно, и номер ошибочного символа, если строка st не являлас допустимой формой записи числа.

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

Var S: string; Code: integer; a: real;

... repeat

Write('Введите число а: ');

Readln(S); {вводим строку}

VaI(S, a, Code); {пытаемся преобразовать строку в число}

If Code< > 0 then Writeln('Число введено не верно');

until Code=0;... {до получения правильного значения числа)

6. Функция Copy(St, index, count): string - возвращает фрагмент строки St длиной count символов, начиная с символа с номером index, например:

Sl: = 'qqqEEppEEuuuuu';

S: = Copy(S1, 4, 6); {получим строку 'ЕЕЕЕEE'}

7. Функция Pos(St2, Stl): integer - возвращает номер позиции первого вхождения подстроки St2 в строку St1. Если вхождение не найдено, то функция возвращает 0, например:

S1 = 'qqqEEppEEuuuuu';

i: = Pos(S1, 'ЕЕ'); {получим i=4}

8. Функция UpCase(ch): char - возвращает символ, соответствующий символу верхнего регистра для ch, если таковой имеется, либо сам символ ch, если для него не определен символ верхнего регистра.

Пример: Дана строка не более 40 символов, состоящая из слов, разделенных пробелами, и завершающаяся точкой. Разработать программу удаления «лишних» пробелов. Лишними считать пробелы в начале строки до первого символа, второй и более пробелы между словами и пробелы в конце строки.

При решении данной задачи с использованием строкового гапа отпадает необходимость посимвольного анализа строки. Функция Pos, которой в качестве подстроки заданы два пробела подряд, позволит определить все места в строке, где записаны несколько пробелов подряд. Поочередно удалив лишние пробелы, получим строку, в которой останется только проверить и при необходимости удалить пробел в начале и пробел в конце. Ниже приведен текст программы.

Var st: string[40];

k: byte;

Begin

WriteLn('Введите строку длиной < = 40 символов');

ReadLn(st);

Write('Введенная строка: ');

Writeln(st);

k: =pos(' ', st); {проверяем, есть ли сдвоенные пробелы? }

white k< > 0 do {пока есть сдвоенные пробелы}

begin

detete(st, k, l); {удаляем первый пробел}

k: =pos(' ', st); {проверяем, есть ли cдвоенные пробелы? }

end;

if st[1]= ' ' then delete(st, 1, 1); {удалили пробел в начале}

k: = length(st);

if st[k]=' ' then delete(st, k, 1); {удалили пробел в конце}

WriteLn('Результат: ');

if length(st)< > 0 then WriteLn(st) else WriteLn('Строка содержала только пробелы.');

end.

Пример. Разработать программу которая вводит строки, содержащие фамилию, имя. отчество и год рождения, а выводит - строки, содержащие фамилию, инициалы и возраст на текущий год. Например;

Иванов Иван Иванович 1956 - Иванов И.И. 45

Завершение ввода при чтении пустой строки.

Для выполнения операций над строками используем строковые функции. Обработку строк будем выполнять в цикле до ввода пустой строки. Начнем с определения местоположения первого пробела, который отделяет имя от фамилии. Для этого используем функцию Pos, а результат запишем в переменную cl. Затем перепишем в строку результата фамилию, пробел и первый инициал. Туда же дописываем точку.

Для поиска следующего пробела придется копировать в рабочую строку часть исходной строки, начиная с символа после первой буквы имени. В этой строке вновь определяем местоположение пробела и заносим результат в переменную с2. Теперь можно переписать в строку-результат второй инициал.

Удаляем из рабочей строки начало, включая второй инициал, и вновь определяем местоположение пробела, выделяя подстроку, содержащую год рождения. Удаляем из рабочей строки остаток отчества и преобразуем строку в число. Полученное значение вычитаем из текущею номера года, а результат вновь преобразуем в строку и дописываем к строке результат. Выводим результат на экран и вводим следующую строку.

Var St, strez, strab: string[40];

cl, c2, c3, n, old, code: word;

Begin

WrileLn('Введите строку. Завершение - ввод пустой строки.');

ReadLn(st);

While st< > ''do {цикл ввода, преобразования и вывода строк}

begin

cl: =Pos(' '.st); {определим местоположение первого пробела}

strez: =Copy(st, 1, cl+1)+ '.'; {перепишем фамилию, инициал и добавим

точку}

strab: = Copy(st, c1+2, Length(st)-c1-1); {копируем остаток строки

в рабочее поле}

c2: =Pos(' ', strab); {определяем местоположение второго пробела}

strez: =strez+strab[c2+1]+'.'; {добавляем к результату второй инициал

и точку}

Delete (strab, l, с2+1); {удаляем распознанную часть}

c3: =Роs(' ', strab); {определяем местоположение третьего пробела}

Delete(strab, l, c3); {удаляем остаток имени}

Val(strab, n, code); {преобразуем год рождения в число}

old: =2001-n; {определяем возраст)

Str(old, strab); {преобразуем возраст в строку}

strez: =strez +' ' + strab; {добавляем возраст в результат}

WriteLn(strez); {выводим результат}

WriteLn('Введите строку. Завершение - ввод пустой строки.');

ReadLn(st);

End;

End.