Строковый тип данных – String

1. Строка - это последовательность символов кодовой таблицы персонального компьютера. Количество символов в строке (длина строки) может динамически изменяться от 0 до 255. В Pascal строка трактуется как последовательность символов. Для строки из N символов отводится N+1 байт памяти: N байт – для хранения символов строки и один байт – для значения текущей длины строки. К любому символу в строке можно обратиться, указав его номер. В самом начале строки (под нулевым номером) расположен байт, содержащий значение текущей длины строки. Поэтому для определения объема памяти в байтах, требуемой для размещения строки, к значению ее максимальной длины прибавляется 1.

Рассмотрим структуру размещения строки в памяти на примере. Пусть М – максимальная длина строки, L – текущая длина, А – номер ячейки памяти, с которой начинается размещение строки, тогда:

А – содержит величину текущей длины (нулевой байт);

А+1 – содержит первый символ строки (1-ый байт);

А+L – содержит последний значащий символ (L-ый байт);

A+L+1

… – незанятые ячейки памяти, отведенные под строку.

A+M

2. Для определения строкового типа данных используется зарезервированное слово String, за которым следует заключенное в квадратные скобки значение максимально допустимой длины строки данного типа. Если это значение не указывается, то по умолчанию длина строки равна 255 байт. Переменную строкового типа в программе можно объявить двумя способами:

а) через раздел описания типов

Type <имя_типа_ строки> = String [<макс_длина_строки>];

Var <имя_переменной> :< имя_типа_строки>;

б) в разделе описания переменных.

Var <имя_строки>: String[<макс_длина_строки>];

Пример. Type Stroka= String [15];

Var B : Stroka;

Пример. Var B : String[15];

Определение строкового типа устанавливает максимальное количество символов, которое может содержать строка.

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

Пример.

Const

Address=’Березовая аллея, 25’;

При использовании в выражениях строка заключается в апострофы. Недопустимо применение строковых переменных в качестве селектора в операторе Case.

Файлы

1. Общие сведения.

Большие объемы (например, телефонный справочник) данных удобно записывать во внешнюю память в виде последовательности символов. Любой язык программирования должен иметь средства для организации хранения информации на внешних запоминающих устройствах и доступа к этой информации. В Pascal для этих целей предусмотрены специальные объекты – файлы. Файлом называется совокупность данных, записанная во внешней памяти под определенным именем. Целесообразность применения файлов продиктована следующими причинами:

- ввод больших объемов данных, подлежащих обработке, утомителен и требует большого времени; удобнее создать отдельный файл, который может быть подготовлен заранее и неоднократно использоваться;

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

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

Файлы в языке Pascal подразделяются на текстовые файлы, файлы с объявленным типом данных (типизированные файлы), файлы с необъявленным типом данных (нетипизированные файлы). Рассмотрим теорию, относящуюся ко всем видам файлам, а на последующих двух занятиях более подробно будут рассмотрены текстовые и типизированные файлы.

2. Характеристики файла:

а) уникальное имя, что позволяет программе работать одновременно с несколькими файлами;

б) тип компонентов (любой тип данных языка Pascal, кроме файлового) – только для типизированных файлов;

в) длина вновь создаваемого файла никак не оговаривается при его объявлении и ограничивается только емкостью устройств внешней памяти.

3. Описание файлового типа.

Для доступа к файлу в программе должна быть описана специальная файловая переменная, которая считается представителем файлов в программе на Pascal:

Var

<имя_файловой_переменной> : <тип_файла>;

где <тип_файла> - определяется назначением файла, существует три возможных описания типа файлов:

а) для текстовых файлов

Var

<имя_файловой_переменной> :Text;

Var

<имя_файловой_переменной> :File of <тип_компонентов>;

в) для нетипизированных файлов

Var

<имя_файловой_переменной> :File;

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

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

6. Основные процедуры работы с файлами (на примере текстового файла).

Пример 1(написать на доске с комментариями и все процедуры объяснить на этом примере).

Program Primer;

Var F1, F2 : Text;

Name : String[30];

Begin

Assign(F1,’TTT.txt’); {установление соответствия между F1 и файлом в текущей папке}

{$I-}

Reset(F1);

{$I+} {открытие файла F1 на чтение}

If Ioresult <> 0

Then Writeln(‘Файл не найден’)

Else …(работа с файлом F1)

Name:=’C:\TP\WORK\Res.dat’; {задание абсолютного имени файла}

Assign(F2, Name); {установление соответствия между F2 и файлом Res.dat}

{$I-}

Rewrite(F);

{$I+} {открытие файла F1 на запись}

If Ioresult <> 0

Then Writeln(‘на диске нет места’)

Else … (работа с файлом F2)

Close(F1); {закрытие файла F1}

Close(F2); {закрытие файла F1}

Readln;

End.

а) Процедура Assign.

Каждому файлу в Pascal ставится в соответствие файловая переменная определенного типа для более полного использования возможностей операционной системы, поэтому перед началом работы с файлом необходимо установить данное соответствие. Для этого используется процедура Assign.

б) Процедура Reset.

Чтению файла с диска должен предшествовать вызов процедуры открытия файла для чтения.

В примере 1 для правильной работы функции Ioresult директива {$I-} отключает контроль ошибок ввод/вывода, а директива {$I+} включает контроль ошибок ввода/вывода.

в) Процедура Rewrite.

Записи файла на диск должен предшествовать вызов процедуры открытия файла для записи.

В примере 1 для правильной работы функции Ioresult директива {$I-} отключает контроль ошибок ввод/вывода, а директива {$I+} включает контроль ошибок ввода/вывода.

г) Процедура Close.

После завершения работы с файлом надо его закрыть, т. е. запретить доступ к файлу.

Дополнительно (на усмотрение преподавателя!!!) процедуры Rename и Erase.

д) Процедура Rename.

е) Процедура Erase.

Пример 2. Удаление или переименование указанного файла.

Program Primer; {заголовок программы}

Uses Crt;

Var

F : Text; {F - файловая переменная}

Ch : Char; {Ch - символьная переменная}

St : String; {St - строковая переменная максимальной длины}

Begin

Clrscr;

Writeln(‘Введите имя файла’); {ввод с клавиатуры имени файла в переменную St}

Readln(St);

Assign(F, St); {установка соответствия между внешним файлом и переменной F }

Write(‘Удалить (У), Переименовать (П), Выход (В)’); {вывод меню}

Readln(Ch); {ввод пункта меню}

Case Ch of {начало оператора выбора}

‘У’, ‘у’ : Begin {если выбрано «Удалить», то происходит удаление файла}

Erase(F);

Writeln(‘Файл удален’); {вывод сообщения «Файл удален» на экран}

End;

‘П’, ‘п’ : Begin {если выбрано «Переименовать»}

Write(‘Введите новое имя файла: ’); {то ввод с клавиатуры}

Readln(St); {нового имени файла в строковую переменную St}

Rename(F,St); {переименование указанного файла}

Writeln(‘Файл переименован’); {вывод сообщения «Файл переименован»}

End;

‘В’, ‘в’ : Halt(1); {если выбран «Выход», то выход из программы}

End;

Readkey;

End. {конец программы}