Массивы символов

Var L,LP: array[1..10] of char;

1)предполагается посимвольная обработка (искл.: присваивание, сравнение массивов одинаковой длины, ввод допустимо осуществлять одним оператором; например, L:=‘ ABC’ )

2)! отслеживание длины массивов возлагается на программиста => необходим специальный тип

для обработки последовательностей символов, строковый тип.

Тип String Турбо Паскаля (ShortString Объектного Паскаля)

•Переменные этих типов принимают значения на множестве строк символов переменной длины (каждый символ имеет тип char), при описании указывается максимальная длина. Например:

Const M=20;

Var LS: string[М]; {M-максимальная длина строки}

•М <= 255; если М при описании не указано (отсутствует вместе с квадратными скобками), то по умолчанию М=255.

•Для хранения строки требуется (M+1) байт.

•Допустимо в программе обращаться к любому элементу строки, в том числе к нулевому: LS[i] - i-й элемент строки LS, i=0,1,2,...,M.

•Выражение ORD(LS[0]) дает текущую длину строки; кроме того, для определения текущей длины строки в имеется встроенная функция LENGTH.

•Ввод, вывод, присваивание выполняются не поэлементно, а одним оператором, т.е. допустимы операторы READ(LS); WRITE(LS); LS:='123'.

•Для строк определены операции сравнения. Они сравниваются посимвольно, слева направо. Большей считается строка, в которой больше код первого слева несовпадающего символа. Если строки имеют разную длину, то короткая строка дополняется справа символами CHR(0). Напомним, что, в отличие от строк, массивы символов можно сравнивать, только если они имеют одинаковую длину.

•Память под переменные этих типов распределяется статически.

Строковые типы Объектного Паскаля

•Тип ShortString эквивалентен типу string Турбо Паскаля.

•Данные типа AnsiString (могут содержать до 231 символов типа char.

•Тип WideString соответствует строкам максимальной длины до 230 символов типа widechar.

•Тип String: при {$H+} - AnsiString (по умолчанию), при {$H+} –

ShortString.

•Типы AnsiString и WideString - ссылочные, динамические, типы; они имеют 8 служебных байтов (вместо одного нулевого у ShortString): служебные байты содержат длину строки и ссылку на строку в динамической памяти (куче).

•Объектный Паскаль разрешает для определения длины строки использовать только функцию LENGTH, а для установления нового значения длины только процедуру

SetLength(строка, новая_длина_строки)

•Если для обработки строк используются встроенные подпрограммы, то длина строки отслеживается автоматически, иначе программист должен использовать SetLength.

Пример 1. Вычислить количество слов в строке.

Под словом понимается группа символов, не содержащая пробелов.

Слова могут разделяться одним или несколькими пробелами.

Состав данных

Пример 2. Удалить из текста все заглавные латинские буквы.

program dlt;{удаляет из стpоки s заглавные латинские буквы}

Var s :String; n: Integer;{текущая длина стpоки} i,j: Integer;{счетчики элементов стpоки}

Begin Writeln(' Введите стpоку текста '); Readln(s); n:=Length(s); i:=1;

Repeat

while (i<=n) and not ((s[i]>='A') and (s[i]<='Z')) do i:=i+1;

{по окончании цикла while i-номеp пеpвой слева заглавной буквы}

If i<=n Then Begin

If i<n Then

For j:=i to n-1 do {все символы, начиная с (i+1)-го,} s[j]:=s[j+1]; {сдвигаются на одну позицию влево} s[0]:=CHR(n-1); {необходимо изменить длину стpоки}

{Object Pascal: вместо предыдущего оператора SetLength(s,n-1)} n:=n-1;

End; Until i>n;

WriteLn(' Измененная стpока'); Writeln(s); End.

Функции, работающие со строками

•CONCAT(S1 ,S2,...,SN)-функция типа STRING; возвращает строку, представляющую собой сцепление (конкатенацию) строк-параметров S1,S2,...,SN. Конкатенацию строк можно также получить с помощью операции +.

•COPY(ST,INDEX,COUNT)-функция типа STRING; копирует из строки ST COUNT символов, начиная с символа с номером

INDEX.

•LENGTH(ST)-функция типа INTEGER; возвращает длину строки

ST.

•POS(SUBST,ST)-функция типа INTEGER; отыскивает в строке ST первое вхождение подстроки SUBST и возвращает номер позиции, с которой она начинается; если подстрока не найдена, возвращает нуль.

Процедуры, работающие со строками

•DELETE(ST,INDEX,COUNT)-удаление COUNT символов из строки

ST, начиная с символа с номером INDEX.

•INSERT(SUBST, ST, INDEX) - вставка подстроки SUBST в

строку ST, начиная с символа с номером INDEX.

•STR(X[:WIDTH[:DECIMALS]],ST) -преобразование значения типа

REAL или INTEGER в строку символов ST так, как это делает процедура WRITELN перед выводом; параметры WIDTH и DECIMALS, если они присутствуют, задают формат преобразования (WIDTH - длину числа, DECIMALS - длину дробной части; параметр DECIMAL имеет смысл указывать только для вещественных чисел).

•VAL(ST, X, CODE) - преобразование строки ST во внутреннее представление целого или вещественного числа Х; параметр CODE содержит нуль, если преобразование прошло успешно, в противном случае он содержит номер символа в строке ST, где обнаружен ошибочный символ; пробелы перед числом в строке ST должны отсутствовать.

Задача обработки данных сложной структуры, представленных в виде таблицы

Строка таблицы – переменная типа String