Листинг 5. Пример сравнения символьных срок

Program stparol;

Var

Name: string[30];

Parol: string [6];

Begin

Write (‘Пароль (6 символов)?’);

Readln (parol);

If parol=’секрет’ then begin

Write(‘Ваша фамилия?’);

Readln (name);

Writeln (name,’, Вам доступ разрешен. ‘);

End

Else begin

Writeln (Неверный пароль! Доступ запрещен!’);

End;

End.

Кроме операций сравнения к строковым переменным и константам можно применить оператор сложения, в результате выполнения которого получается новая строка. Например, в результате выполнения инструкции

First _name:=’Иванов’;

Last_name:=’Иван’;

Ful_name:=first_name+’ ‘+last name;

Значение переменой ful_name будет равно ‘Иванов Иван’.

Turbo Pascal 7.0 предоставляет несколько полезных при работе со строками функции и процедур. Ниже приведены их описания и примеры использования.

Функция LENGTH

Функция length возвращает длину строки. У функции один параметр-переменная строкового типа. Значение функции (целое число) - количество символов, из которых состоит строка. Например, в результате выполнения инструкций

N: =length (‘Иванов’)

M: =length (‘Невский проспект’)

Значения переменных n и m будут равны 6 и 18.

Следующая программа, ее текст приведен на листинге 6, использует функцию length для завершения цикла ввода информации с клавиатуры.

Листинг 6. Ввод символьного массива

Program instarr;

Const

N=35;

Var

Student: array [1..N] of string; {список – массив строк}

Name: string [30]; {введенная строка}

I: integer;

Begin

I: =1;

Repeat

Write (‘Введите фамилию или <Enter> для завершения- >’);

Readln (name);

If length (name)<>0

Then

Begin

Student [i]:=name;

I: =i+1;

End;

Until (length (name) =0) or (i=N);

{вывод введенного списка}

i:=1;

while (length (student[i])<>0) and (i<=N) do

begin

Writeln (student[i]);

I:=i+1;

End;

End.

Программа вводит список студентов. Цикл ввода завершается, если введен весь список (35 фамилий), или есть в ответ на запрос очередной фамилии пользователь нажмет клавишу <Enter> (в этом случае длина введенной строки равна нулю)

Процедура DELETE

Процедура delete позволяет удалить часть строки. В общем виде обращение к процедуре выглядит так:

Delete (Строка, p, n);

Где строка-переменная строкового типа; p- номер символа, с которого начинается удаляемая подстрока; n- длина удаляемой строки.

Например, в результате выполнения инструкции

S:=’Город Санкт -Петербург’;

Delete (s, 7, 6)

Значением переменной s будет строка ‘Город Петербург’

Функция POS

Функция pos позволяет определить положение подстроки в строке. В общем виде обращение к функции выглядит так:

Переменная pos (Подстрока, Строка);

Где подстрока –строковая константа или переменная, которую надо найти в стоковой константе или переменной Строка.

Например, в результате выполнения инструкции

P:=pos (‘Пе’,’Санкт –Петербург’);

Значение переменной p будет равно 7.

Если в строке нет искомой подстроки, то функция pos возвращает нуль. Следующая программа, е текст приведен на листинге 7,использует функцию pos и процедуру delete для удаления пробелов в начале введенной с клавиатуры строки.

Листинг 7. Удаление начальных пробелов строки

Program dledspa;

Var

St: string [30];

Begin

Write (‘Введите строку’);

Readln (st);

While (pos (‘ ‘,st)=1) and (length(st)>0) do

Delete (st,1, 1);

Write (‘Строка без начальных пробелов:’, st);

End.

Пробелы удаляются в цикле while до тех пор, пока функция pos обнаруживает пробел в начале строки (значение pos при этом равно еденице). Необходимость проверки условия length(st)>0 объясняется возможностью того, что введенная с клавиатуры строка состоит из пробелов. Вот пример работы программы:

Ведите строку: ул. Садовая

Строка без начальных пробелов: ул. Садовая

Функция COPY

Функция copy позволяет скопировать фрагмент строки. В общем виде обращение к функции copy выглядит так:

Переменная copy (Строка, p, n);

Где строка – переменная строкового типа, содержащая строку, фрагмент которого надо получить; p- номер первого символ в строке Строка, с которого начинается выделяемая подстрока; n- длина выделяемой строки.

Например, в результате выполнения инструкции

St: =’Инженер Иванов’;

Fam:= copy (st, 9,6);

Значением переменной fam будет строка ‘Иванов’.

Процедура VAL

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

Val (Строка, Число, Код);

Где строка - строковая константа или переменная, содержащая изображение числа; Число- переменная целого или дробного типа, которой должно быть присвоено значение, изображенное строкой Строка; Код- возвращаемый процедурой код ошибки (целое число). Если строка не может быть преобразована в число из-за того, что строка не является изображением числа, то значение Код будет равно номеру символа строки, которой явился причиной невозможности преобразования.

Например, в результате выполнения инструкции

Val (‘1,25’, n, code);

Значение переменной code равно 2, так как строк1,25 не является изображением числа, поскольку для отделения дробной части числа от целой используется точка, а не запятая.

Процедура val полезна при организации ввода с клавиатуры. Например, если в программе объявлена переменная moth (месяц) типа integer, и ее значение вводится с клавиатуры инструкцией read, то в результате возможной ошибки оператора, задавшего месяц строкой символов, например, ‘июнь’, а не цифрой, программа завершится ошибкой времени выполнения. Однако если числовые данные вводить как строку, а затем преобразовывать в число с помощью процедуры val, то можно избежать подобного неприятного завершения программы.

На листинге 8 приведен текст программ, которая выполняет проверку введенных данных при помощи процедуры val.

Наши рекомендации