Знакомство с языком программирования Паскаль

Стандартная процедура

REWRITE (<ф.п.>)  инициирует запись  информации в файл или в  логическое устройство, связанное  ранее с файловой переменной <ф.п.>. Процедурой REWRITE нельзя инициировать  запись информации в ранее  существовавший дисковый файл: при  выполнении этой процедуры старый файл уничтожается и никаких сообщений об этом в программу не передается. Новый файл подготавливается к приему информации и его указатель принимает значение 0.

Стандартная процедура APPEND (<ф.п.>) инициирует запись в ранее существовавший текстовый файл для его расширения, при этом указатель файла устанавливается в его конец. Процедура APPEND применима только к текстовым файлам, т.е. их файловая переменная должна иметь тип TEXT'(см. выше). Процедурой APPEND нельзя инициировать запись в типизированный или не- типизированный файл. Если текстовый файл ранее уже был открыт с помощью RESET или REWRITE, использование процедуры APPEND приведет к закрытию этого файла и открытию его вновь, но уже для добавления записей.

ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ С ФАЙЛАМИ

Ниже описываются процедуры  и функции, которые можно использовать с файлами любого вида. Специфика  работы с типизированными, текстовыми и нетипизированными файлами  рассматривается в следующих  разделах. Процедура Close. Закрывает  файл, однако связь файловой переменной с именем файла, установленная ранее процедурой ASSIGN, сохраняется. Формат обращения: CLOSE (<ф.п.>) При создании нового или расширении старого файла процедура обеспечивает сохранение в файле всех новых записей и регистрацию файла в каталоге. Функции процедуры CLOSE выполняются автоматически по отношению ко всем открытым файлам

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

RENAME (<ф.П.>, <новое ИМЯ>)

Здесь <новое  имя> - строковое выражение, содержащее новое имя файла. Перед выполнением  процедуры необходимо закрыть файл, если он ранее был открыт процедурами RESET, REWRITE или APPEND. Процедура ERASE. Уничтожает файл. Формат обращения:

ERASE (<ф.п.»  Перед выполнением процедуры  необходимо закрыть файл, если  он ранее был открыт процедурами  RESET, REWRITE или APPEND.

ТЕКСТОВЫЕ ФАЙЛЫ

Текстовые файлы связываются с файловыми переменными, принадлежащими стандартному типу TEXT, Текстовые файлы предназначены для хранения текстовой информации. Именно в такого типа файлах хранятся, например, исходные тексты  программ. Компоненты (записи) текстового файла могут иметь переменную длину, что существенно влияет на характер работы с ними.  Текстовый файл трактуется в Турбо Паскале как совокупность строк переменной длины. Доступ к каждой строке возможен лишь последовательно, начиная с первой. При создании текстового файла в конце каждой записи (строки) ставится специальный признак EOLN (EndOfLiNe- конец строки), а в конце всего файла - признак EOF(End Of File - конец файла). Эти признаки можно протестировать одноименными логическими функциями (см. ниже). При формировании текстовых файлов используются следующие системные соглашения:

EOLN- последовательность кодов ASCII #13 (CR) и #10 (LF);

EOF- код  #26 стандарта ASCII.

Для доступа к записям применяются  процедуры READ, READLN, WRITE, WRTTELN. Они отличаются возможностью обращения к ним с переменным числом фактических параметров, в качестве которых могут использоваться символы, строки и числа. Первым параметром в любой из перечисленных процедур может стоять файловая переменная. В этом случае осуществляется обращение к дисковому файлу или логическому устройству, связанному с переменной процедурой ASSIGN. Если файловая переменная не указана, происходит обращение к стандартным файлам INPUTn О UTPUT.

Процедура READ. Обеспечивает ввод символов, строк и чисел. Формат обращения: READ (<ф.П.>,<СП.ВВОДЭ>) или READ (<СП.БВОДа>)

Здесь <cn.eeoda> - список ввода: последовательность из одной или более переменных типа CHAR, STRING, а также любого целого или вещественного типа.  При  вводе переменных типа CHAR выполняется  чтение одного символа из файла и присваивание считанного значения переменной. Если перед выполнением чтения указатель файла достиг конца очередной строки, то результатом чтения будет символ CR (ASCII код #13), а если достигнут конец файла, то - символ EOF (код #26). При вводе с клавиатуры символ CR вводится при нажатии на клавишу Enter, а символ EOF- при одновременном нажатии клавиш CTRL и Z.  При вводе переменных типа STRING количество считанных процедурой и помещенных в строку символов равно максимальной длине строки, если только раньше не встретились символы CR или EOF. В этом случае сами символы CR и EOFe строку не помещаются. Если количество символов во входном потоке данных больше максимальной длины строки, «лишние» символы до конца строки отбрасываются, а новое обращение к READ возвращает пустую строку. Таким образом, процедура READ не в состоянии прочесть последовательность строк: первая строка будет прочитана нормально, а все последующие окажутся пустыми. Для ввода следовательности строк нужно использовать процедуру READLN(рл. ниже). При вводе числовых переменных процедура READ вначале вьщеляет подстроку во входном потоке по следующему правилу: все ведущие пробелы, символы табуляции и маркеры конца строк EOLN пропускаются; после выделения первого значащего символа, наоборот, любой из перечисленных символов или символ EOF служат признаком конца подстроки. Вьщеленная таким образом подстрока затем рассматривается как символьное представление числовой константы соответствующего типа и преобразуется во внутреннее представление, а полученное значение присваивается переменной. Если в подстроке был нарушен требуемый формат представления численной константы, возникает ошибка ввода-вывода. Если при пропуске ведущих пробелов встретился символ EOF, переменная получает значение 0. Отметим, что в Турбо Паскале не предусмотрен ввод шестнадцатеричных констант.  При использовании процедуры READ применительно к стандартному файлу INPUT, т.е. при вводе с клавиатуры, символьные строки запоминаются в буфере, который передается процедуре только после нажатия на клавишу Enter. Это позволяет редактировать данные при их вводе. Для редактирования используются следующие клавиши:

• Backspace, Ctrl-H, перевод курсора влево - стирают символ слева от курсора;

перевод курсора вправо - восстанавливает  символ за символом предыдущую строку ввода;

в Ctrl-ZEnter - завершает ввод по процедуре READ; оставшиеся «лишние» символьные параметры принимают значение СИЩ26), строки возвращаются пустыми, а численные переменные остаются без изменения.  Максимальная длина буфера ввода при работе с клавиатурой составляет 127 символов. Ввод с клавиатуры по процедуре READ сопровождается эхо-повтором вводимых символов на экране ПК.

Процедура READ прекрасно приспособлена  к вводу чисел. При обращении  к ней за вводом очередного целого или вещественного числа процедура  «перескакивает» маркеры конца  строк, т е фактически весь файл рассматривается  ею как одна длинная строка, содержащая текстовое представление чисел. В сочетании с проверкой конца файла функцией EOF процедура READ позволяет организовать простой ввод массивов данных, например, так:

const

N = 1000; {Максимальная длина ввода} 

var

f : text;

m : array [1..N] of real;

l : Integer;

begin

assign(f, 'prog.dat');

reset {f) ;

i := 1;

while not EOF(f) and d <= N) do

begin

read(f,m[i]);

me (l)

end;

close(f);

end.

Процедура READLN. Обеспечивает ввод символов, строк и чисел. Эта процедура идентична процедуре READ за исключением того, что после считывания последней переменной оставшаяся часть строки до маркера EOLN пропускается, поэтому следующее обращение к READLNvum READ начинается с первого символа новой строки.

Кроме того, эту процедуру можно  вызвать без параметра <cn,eeoda> (см. процедуру READ), что приведет к пропуску всех символов текущей строки вплоть до EOLN. Если процедура используется для чтения с клавиатуры, нажатие на клавишу Enter отобразится на экране как оследовательность CR + LF и курсор будет помещен в начало следующей строки, в то время как в процедуре READ эхо-повтором клавиши Enterявляется символ CR и курсор помещается в начало текущей строки.

Процедура WRITE. Обеспечивает вывод  информации в текстовый файл или  передачу ее на логическое устройство. Формат обращения:

WRITE (<ф.п.>, <сп.вывода>) или WRITE (<сп.вывода>)

Здесь <сп.вывода> - список вывода: последовательность из одного или более  выражений типа CHAR, STRING, BOOLEAN, а также  любого целого или вещественного  типа Файловая переменная <ф.п.>, если она указана, должна быть предварительно описана как переменная типа TEXT' и связана с именем файла или логическим устройством процедурой ASSIGN. Если файловая переменная отсутствует, подразумевается вывод в стандартный файл OUTPUT, который обычно связан с экраном ПК Любой элемент списка вывода может иметь форму

OutExpr [ : MinWidth [ : DecPlaces ] ] Здесь OUTEXPR - выводимое  выражение; 

MINWIDTH, DECPLACES - выражения типа WORD (квадратные  скобки означают возможность  отсутствия заключенных в них  параметров). Подпараметр MINWIDTH, если он присутствует, указывает минимальную ширину поля, в которое будет записываться символьное представление значения OUTEXPR.  Если символьное представление имеет меньшую длину, чем MINWIDTH, оно будет дополнено слева пробелами, если - большую длину, то подпараметр MINWIDTH^игнорируется и выводится необходимое число символов.

Подпараметр DECPLACES задает количество десятичных знаков в дробной части  вещественного числа. Он может использоваться только совместно с MINWIDTH и только по отношению к выводимому выражению одного из вещественных типов.  Если ширина поля вывода не указана, соответствующий параметр выводится вслед за предьщущим без какого-либо их разделения. Символы и строки передаются выводному файлу без изменений, но снабжаются ведущими пробелами, если задана ширина поля вывода и эта ширина больше требуемой для вывода. При выводе логических выражений в зависимости от их значения выводятся строки TRUE или FALSE. (Ввод логических констант процедурами READ или READLNws  предусмотрен).

Вещественные числа выводятся  в экспоненциальном формате, если не указан подпараметр DECPLACES, в противном  случае выбирается формат представления  числа с фиксированной точкой. Экспоненциальный формат представляет вещественное число в виде _д#.##############Е*####, где _ пробел;  s пробел для положительного и знак «-» для отрицательного чисел;  # десятичная цифра; E символ десятичного основания; * знак «+» или «-» в зависимости от знака десятичного порядка числа. Если подпараметр MINWlDTHanynxeH, принимается его значение по умолчанию B3). Если MINWIDTHменьше 10, счшае!ся, чю он равен 10. Бели подпараметр DECPLACESравен нулю, ни дробная часть ЧКСЛ&, ни десятичная точка не выводятся. При отрицательном значении DECPLACES этот параметр игнорируется и число выводится в экспоненциальном формате с учетом MINWIDTH. Если значение DECPLACES больше 18, принимается значение 18. Следует учесть, что при указании подпараметра DECPLACES вещественное число всегда будет выводиться в формате с фиксированной точкой и требуемым количеством знаков з дробной части, даже если значение подпараметра MINWIDTH окажется недостаточным для размещения целой части: в этом случае значение MINWIDTH автоматически увеличивается. При выводе на экран в случае, когда длина выводимой последовательности символов превышает ширину экрана или созданного на нем окна, «лишние» символы переносятся на следующую экранную строку. При заполнении экрана или окна его содержимое сдвигается вверх на одну строку.

Процедура WRITELN Эта процедура полностью  идентична процедуре WRITE за исключением того, что выводимая строка символов завершается кодами CR и LF. При вызове WRITELN можно опускать параметр <ап. выеода>: в этом случае в файл передается маркер EOLN, что при выводе на экран приведет к переводу курсора в начало следующей строки.

Логическая функция EOLN. Возвращает TRUE, если во входном текстовом файле  дос1И1ну! маркер конца CipOi'". Форма! обращения.  EOLN (<ф.П.>)  Если параметр <ф.П.> опущен, функция проверяет стандартный  файл INPUT. Существует некоторое отличие в работе функций EOLN и EOF с дисковыми файлами и логическими устройствами. Дело в том, что для логического устройства невозможно предвидеть, каким будет результат чтения очередного символа. Поэтому при работе с логическим устройством функция EOLN возвращает TRUE, если последним считанным с устройства символом был EOLN или EOF, в то время как при чтении с диска TRUE возвращается в случае, если следующим считываемым символом будет EOLNvuivl EOF. Аналогичное различие наблюдается и в функции EOF: для логического устройства TRUE возвращается в случае, если последним символом был EOF, а при чтении с диска - если следующим считываемым символом будет EOF. Иными словами, функции тестируют соответствующие признаки для логического устройства очередного чтения, а для файла - перед чтением. Логическая функция SEEKEOLN. Пропускает все пробелы и знаки табуляции до маркера конца строки EOLN или до первого значащего символа и возвращает TRUE, если маркер обнаружен. Формат обращения:  SEEKEOLN (<ф.п.>) Если параметр <ф.п> опущен, функция проверяет стандартный файл INPUT.

Логическая функция SEEKEOF. Пропускает все пробелы, знаки табуляции  и маркеры конца строки EOLNj\o маркера  конца файла или до первого  значащего символа и возвращает TRUE, если маркер обнаружен. Формат обращения: SEEKEOF (<ф.п.>) Если параметр <ф.п. > опущен, функция проверяет стандартный файл INPUT. В следующем примере, иллюстрирующем работу с текстовым файлом, подсчитывается общее количество символов в файле и результат делится на 40000 - таким способом можно оценить объем рукописи в так называемых учетно-издательских листах:

var

. f: text;

s: String;

const

Sum: Longlnt = 0; fЗдесь будет количество  символов}

begin

Write('Имя файла: ') ; {Запрашиваем...}

Readln(s); {и вводим имя файла} 

assign(f,s) ;

Reset (f); {Открываем файл}

while not EOF(f) do {Подсчитываем. . .}

begin (количество...}

ReadLn(f,s); {символов...}

inc(Sum, Length(s)) {в файле}

end;

Cloee (f) ; {Закрываем файл}

WriteLn('Объем = ',Sum/40000:6:2,' уч.изд.л.')

end.

Строки

Тип STRING (строка) в Турбо Паскале  широко используется для обработки  текстов. Он во многом похож на одномерный массив символов ARRAY [0..N] OF CHAR, однако, в  отличие от последнего, количество символов в строке-переменной может  меняться от 0 до N, 'где N — максимальное количество символов в строке. Значение N определяется объявлением типа STRING [N] и может быть любой константой порядкового типа, но не больше 255. Турбо Паскаль разрешает не указывать N, в этом случае длина строки принимается максимально возможной, а именно N— 255. Строка в Турбо Паскале трактуется как цепочка символов. К любому символу в строке можно обратиться точно так же, как к элементу одномерного массива ARRAY to. . N] OF CHAR, например.