🗊Презентация Файлы данных в языке Pascal

Файлы данных в языке Pascal

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

В языке Pascal различают 3 типа файлов данных: 1) Типизированный файл –- последовательность элементов одного типа. Все компоненты файла имеют общее имя, а каждый – ещё и свой номер. Нумерация элементов начинается с нуля. Одинаковый размер всех компонентов файла дает возможность организовать прямой доступ к каждому из них (т.е. доступ к компоненту по его порядковому номеру). Длина файла, то есть количество элементов в файле - величина произвольная, изменяемая в процессе работы. После последнего элемента автоматически записывается признак конца файла. Компонентами типизированного файла могут быть: вещественные, целочисленные, символьные, логические типы данных и записи.

Типы файлов данных 2) Текстовый файл – это совокупность символов, разделенных на строки переменной длины. В конце каждой строки стоит признак конца строки EOLN ( end of line). Доступ к каждой строке возможен только последовательно, начиная с первой. Компонентами текстового файла могут быть данные следующих типов: символьные, строки, вещественные и целочисленные.

Типы файлов данных 3) Нетипизированный файл – файл без типа представляется как последовательность элементов произвольного типа, но оговоренного размера. Это значит, что в файл можно записать значение любой переменной, имеющей заданный размер, а при чтении из такого файла допускается произвольная интерпретация содержимого очередного элемента. Отсутствие типа компонентов делает эти файлы совместимыми с любыми другими файлами и позволяет организовать высокий скоростной обмен данными между внешним запоминающим устройством (ВЗУ) и оперативной памятью (ОП). Относятся к файлам прямого доступа.

Чтение данных из файла (т.е. ввод данных в оперативную память машины) и запись данных в файл (т.е. вывод данных из оперативной памяти на внешнее запоминающее устройство) осуществляется через файловые переменные.

Объявление файловых переменных а) для типизированных файлов где file, of - служебные слова ( файл, из)

Объявление файловых переменных а) для текстовых файлов где text - служебнoе слово ( текстовый)

Объявление файловых переменных а) для нетипизированных файлов где file- служебное слово ( файл)

После описания файловой переменной в ОЗУ выделяется место под значение данной переменной. Над файловыми переменными нельзя выполнять операции присваивания, сравнения и т.п. Их можно использовать только для выполнения операций над файлами: чтение, записи, удаления, открытия,переименования и т.д. С каждым файлом связана своя файловая переменная.

При работе с любым типом файла необходимо выполнить следующие 5 операций: объявление файловой переменной; связь файловой переменной с конкретным файлом на физическом уровне; инициализация файла – означает указать направление передачи данных ( т.е. открыть файл для чтения, записи или добавления); обработка данных ; закрытие файла.

Стандартные процедуры для работы с файлами

Стандартные процедуры для работы с файлами

Стандартные процедуры для работы с файлами

Стандартные процедуры для работы с файлами

Стандартные процедуры для работы с файлами

Стандартные процедуры для работы с файлами

Стандартные процедуры для работы с файлами

Стандартные процедуры для работы с файлами

Стандартные функции для работы с файлами

Стандартные функции для работы с файлами

Стандартные функции для работы с файлами

Стандартные функции для работы с файлами

Стандартные функции для работы с файлами

Пример 1: Создать файл, содержащий информацию о студентах: фамилия, гражданство. Вывести фамилии иностранных граждан.

Program file2; Type ved=record fam:string[20]; gr:string[15] end; Var f1:file of ved; // 1-ая z:ved; i,n:integer; l:boolean; begin assign(f1,'e:\a.dat'); // 2-ая rewrite(f1); // 3-я writeln('введите количество студентов'); readln(n); for i:=1 to n do begin readln(z.fam); readln(z.gr); write(f1,z) // 4-ая end ; close(f1); // 5-ая

reset(f1); l:=true; repeat read(f1,z); if z.gr<>'Россия' then begin writeln(z.fam,' ',z.gr); l:=false; end Until eof(f1); close(f1); if l then write('все граждане России') end.

Результаты решения задачи:   введите количество студентов 4 Иванов А.Р. Россия Бортко П.О. Украина Смирнова К.Р. Россия Сванидзе А.О. Грузия Бортко П.О. - Украина Сванидзе А.О. - Грузия

Пример 2: Текстовый файл представляет собой фрагмент программы на языке Pascal. Определить количество строк в которых есть служебное слово «begin».

Program file1; Var f:text; S,name:string; n,k:byte; Begin Writeln(‘введите путь и имя файла’); Readln(name); Assign(f, name); Rewrite(f); {открыть файл для записи} Repeat Readln(s); Writeln(f,s); {запись строки в файл} Until s=’end.’; {пока не end.} Close(f); {закрыть файл}

Reset(f); {открыть файл для чтения} n:=0; While not(eof(f)) do {пока не конец файла} Begin Readln(f,s); {читать строку из файла} S:=LowerCase(s); {преобразует строку к нижнему регистру} K:=pos(‘begin’,s); If k<>0 then n:=n+1; end; close(f); if n=0 then wrieln(‘нет строк со словом begin’) else writeln(‘кол-во строк=’,n) end.

Результат решения задачи введите путь и имя файла e:\a.txt BegiN end. кол-во строк=1