Процедура delete позволяет удалить часть строки. В общем виде обращение к процедуре выглядит так:
Delete (Строка, p, n);
Где строка-переменная строкового типа; p- номер символа, с которого начинается удаляемая подстрока; n- длина удаляемой строки.
Например, в результате выполнения инструкции
S:=’Город Санкт -Петербург’;
Delete (s, 7, 6)
Значением переменной s будет строка ‘Город Петербург’
Функция pos позволяет определить положение подстроки в строке. В общем виде обращение к функции выглядит так:
Переменная pos (Подстрока, Строка);
Где подстрока –строковая константа или переменная, которую надо найти в стоковой константе или переменной Строка.
Например, в результате выполнения инструкции
P:=pos (‘Пе’,’Санкт –Петербург’);
Значение переменной p будет равно 7.
Если в строке нет искомой подстроки, то функция pos возвращает нуль. Следующая программа, е текст приведен на листинге 7,использует функцию pos и процедуру delete для удаления пробелов в начале введенной с клавиатуры строки.
Пробелы удаляются в цикле while до тех пор, пока функция pos обнаруживает пробел в начале строки (значение pos при этом равно еденице). Необходимость проверки условия length(st)>0 объясняется возможностью того, что введенная с клавиатуры строка состоит из пробелов. Вот пример работы программы:
Ведите строку: ул. Садовая
Строка без начальных пробелов: ул. Садовая
Функция copy позволяет скопировать фрагмент строки. В общем виде обращение к функции copy выглядит так:
Переменная copy (Строка, p, n);
Где строка – переменная строкового типа, содержащая строку, фрагмент которого надо получить; p- номер первого символ в строке Строка, с которого начинается выделяемая подстрока; n- длина выделяемой строки.
Например, в результате выполнения инструкции
St: =’Инженер Иванов’;
Fam:= copy (st, 9,6);
Значением переменной fam будет строка ‘Иванов’.
Процедура VAL позволяет преобразовать изображение числа в число. В общем виде обращение к процедуре выглядит так:
Val (Строка, Число, Код);
Где строка - строковая константа или переменная, содержащая изображение числа; Число- переменная целого или дробного типа, которой должно быть присвоено значение, изображенное строкой Строка; Код- возвращаемый процедурой код ошибки (целое число). Если строка не может быть преобразована в число из-за того, что строка не является изображением числа, то значение Код будет равно номеру символа строки, которой явился причиной невозможности преобразования.
Например, в результате выполнения инструкции
Val (‘1,25’, n, code);
Значение переменной code равно 2, так как строк1,25 не является изображением числа, поскольку для отделения дробной части числа от целой используется точка, а не запятая.
Процедура val полезна при организации ввода с клавиатуры. Например, если в программе объявлена переменная moth (месяц) типа integer, и ее значение вводится с клавиатуры инструкцией read, то в результате возможной ошибки оператора, задавшего месяц строкой символов, например, ‘июнь’, а не цифрой, программа завершится ошибкой времени выполнения. Однако если числовые данные вводить как строку, а затем преобразовывать в число с помощью процедуры val, то можно избежать подобного неприятного завершения программы.
На листинге 8 приведен текст программ, которая выполняет проверку введенных данных при помощи процедуры val.
Листинг 8. пример использования val для контроля вводимых с клавиатуры данных (month.pas)
Program month;
Var
Mon: integer; {месяц}
Buf: string [10]; {буфер для ввода строки}
Code: integer; {код ошибки преобразования строки в число}
Begin
Repeat
Write (‘Месяц- > ‘);
Readln (buf) ; {вводим номер месяца как строку}
Val (buf, mon, code);{преобразуем строку в число}
If code <>0 {введенная строка не цифра}
Then Writeln (‘Ошибка! Месяц следует задать цифрой.’);
