Обработка символьной информации

Представление информации в виде символьных строк широко используется при решении экономических задач. Используемые символьные переменные обязательно должны быть объявлены с типом "String".

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

Функция Length (<символьная строка>), которая определяет количество символов в строке.

Функция Copy (<строка>, <начальная позиция>, <количество символов>), которая выделяет из заданной строки, начиная с заданной позиции,требуемое количество символов.

Функция Pos (<подстрока>, <строка>), которая определяет местоположение подстроки в строке.

Операция «сцепление» (+), которая позволяет объединить две символьные строки в единое целое.

Пример.

Имеется список сотрудников. Список представлен в виде символьной строки. Каждый сотрудник обозначен фамилией и инициалами. Фамилия и инициалы разделяются символами подчеркивания и точками. Пробелы между фамилией и инициалами не допускаются. Фамилии различных сотрудников разделены запятыми и пробелами.

Например: Александров_А.И., Петров_Н.П., Сергеев_В.С.

Требуется проверить список на наличие заданного сотрудника. По результатам проверки выдается либо сообщение "Сотрудник есть в списке", либо сообщение "Сотрудника нет в списке".

Программный код, обеспечивающий выполнение заданого алгоритма имеет следующий вид:

Program PrjString;

{$APPTYPE CONSOLE}

Uses

SysUtils;

Var

St,Sc,S: String;

I,J,Ln,Ns,R: Integer;

FL: Boolean;

Begin

Writeln('Vvedite ctroky');

Readln(St);

Writeln('Vvedite familiju sotrydnika');

Readln(Sc);

Ln:= Length(St); I:= 1;

While I<= Ln Do

If (St[I]<>' ') And (St[I]<>',')Then

Begin

Ns:= I;

While (St[I]<>' ')And (St[I]<>',') And (I<=Ln) Do

I:= I+1;

R:= I-Ns; S:= Copy (St,Ns,R);

IF S = Sc Then FL:= True;

End

Else

I:= I+1;

If FL=True Then Writeln ('Da')

Else Writeln ('Net');

Readln;

End.