Файл: Литература Введение файл чтение запись открытие множество.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 23.10.2023
Просмотров: 170
Скачиваний: 2
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
СОДЕРЖАНИЕВведение1 Описание типизированных файлов2 Принципы работы с файлами3 Создание и открытие на запись нового файла4 Чтение из файла5 Открытие существующего файла на чтение6 Распознавание конца файла7 Определение имени файла8 Закрытие файла9 Описание текстовых файлов10 Чтение из текстового файла11 Запись в текстовый файл12 Множества. Описание множества13 Операции над множествамиЗаключениеЛитератураВведениефайл чтение запись открытие множествоТема реферата «Файлы» по дисциплине «Вычислительная техника и основы программирования».Цель работы – ознакомиться с описанием типизированных файлов; принципами работы с файлами; созданием и открытием на запись нового файла; чтением из файла; открытием существующего файла на чтение; распознаванием конца файла; определением имени файла; закрытием файла; описанием текстовых файлов; чтением из текстовых файлов; записью в текстовый файл; множествами и их описанием; операциями над множествами.1 Описание типизированных файловФайл - последовательность компонент, являющихся объектами одного типа. Количество компонент в файле заранее не оговаривается, компоненты файла не имеют индекса. Доступ к компонентам файла возможен только последовательным путем (т.е. перебрав по очереди все предыдущие компоненты).Определение типаTypeF= fileof<тип компонент>;Var X: F; или Var X: file of <типкомпонент>;где F- новое имя типа;<тип компонент> - любой кроме файлового или записи, поле которой содержит файловую компоненту.Пример:Type VECT = array [1..10] of real;COMPLEX= recordRe,Im: realend;Var Inf: file of integer; {файл, содержащийцелыекомпоненты}Mas: fileofVECT; {файл, состоящий из массивов}Chis: fileofCOMPLEX;
{файл, состоящий из записей}2 Принципы работы с файламиОбозначения:- признак конца файла; - компонента файла;F- имя файла;A - файловая переменная, которая имеет тот же тип, что и компоненты файла; - головка записи/чтения.Пример:файл из трех компонент пустой файлЗапись в файлИспользование процедуры записи возможно, когда файл открыт для записи, т.е. головка записи/чтения совмещена с признаком конца файла (новые элементы помещаются в конец файла).3 Создание и открытие на запись нового файлаRewrite(F);Если имя файла F связано с уже существующим файлом, то данные его уничтожаются, а признак конца помещается в начало файла - создается пустой файл.Пример:Var F: file of integer;I,J : integer;...{Запись в файл квадратов первых 100 натуральных чисел}Rewrite (F);for I:= 1 to 100 dobegin J:= Sqr(I);Write(F,J)end;4 Чтение из файлаПроцедура чтения из файла возможна только тогда, когда файл открыт для чтения, т.е. головка записи/чтения совмещена с искомой компонентой файла.5 Открытие существующего файла на чтениеЕсли файл не пустой, то после выполнения процедуры открытия файла для чтения, головка записи/чтения будет совмещена с первой компонентой файла. Если файл пуст, то головка записи/чтения указывает на признак конца файла.6 Распознавание конца файлаРаспознавание конца файла осуществляется с помощью функции:Пример:Var F: file of integer;S,I: integer;...{Чтение из непустого файла всех его компонент ивычисление суммы их квадратов}Reset(F); S
:=0;While not Eof(F) dobeginRead(F,I); S:=S+Sqr(I)end;7 Определение имени файлаОпределение имени файла осуществляется с помощью процедуры, которая связывает имя файла, определенное в программе с реально существующим файлом на физическом носителе информации.Assign(F,Name);где F- имя файла, определенное в программе;Name - переменная типа String или строка символов, указывающая путь к файлу на физическом носителе информации.Пример:Var F1,F2:file of real;Name:string;...Assign (F1, ‘A:\Myfile.Dat’); {исходныйфайлнаходитсянадискеAподименемMyfile.Dat}Name:=’B:\File2.Dat’;Assign(F2,Name); {исходный файл находится на диске Bподименем File2.Dat}8 Закрытие файлаClose (F);Процедура закрывает открытый (с помощью процедур Rewriteили Reset)файл.Настройка на требуемую компоненту файлаSeek(F,Nom);где F- любой файл, кроме Text;Nom- номер текущей компоненты файла (переменная типа Longint).Процедура осуществляет настройку на требуемую компоненту файла, который предварительно был открыт процедурами Rewriteили Reset. Номер текущей компоненты файла можно получить с помощью функции FilePos(Nom:=FilePos(F);).Размер файла в компонентах может быть получен с помощью функции FileSize(F).9 Описание текстовых файловОсобую роль в обмене информацией с внешними носителями в среде Turbo-Pascal 7.0 играют текстовые файлы, компоненты которых рассматриваются как последовательность символов.Определение типаVarCHF : Text; {это эквивалентно описаниюVar CHF: file of char;}10 Чтение из текстового файлаДля чтения данных из файла он должен быть предварительно открыт для чтения с помощью процедуры Reset(CHF).Чтение осуществляется с помощью процедур:Read(CHF, <список переменных>);илиReadln
(CHF,<список переменных>);Процедура Readlnпо окончании чтения обеспечивает переход к новой строке файла CHF(Readlnбез параметров обеспечивает только переход на новую строку файла).При чтении из текстового файла CHF данных, их значения присваиваются переменным, указанным в списке переменных в соответствии с их типом:- целые читаются с текущего символа, пропуская начальные пробелы, до первого символа отличного от цифры (или конца строки/файла);- вещественные читаются с текущего символа, пропуская начальные пробелы, до символа синтаксически несовместимого с представлением вещественного числа (или конца строки/файла);- символьные принимают значение текущего символа файла;- строки читаются с текущего символа до конца строки (файла).Пример:Путь к исходному файлу: A:\File1.DatСодержимое файла: 36 25+PASCAL16.5Var CHF : Text;S : real:I,J : integer;ST : string;C : char;...Assign(CHF, ‘A:\File1.Dat’);Reset(CHF);Readln(CHF, I,J,C,ST);{I:=36; J:=25; C:=’+’; ST:=’PASCAL’}Read(CHF,S); (S:=16.5}11 Запись в текстовый файлДля записи значений в файл он должен быть предварительно открыт для записи с помощью процедуры Rewrite(CHF).Запись осуществляется с помощью процедур:Write(CHF,<список переменных (функций, выражений)>);илиWriteln(CHF,<список переменных (функций, выражений)>);Процедура Writeln после записи значений в файл обеспечивает переход на новую строку файла (Writelnбез параметров осуществляет только переход на новую строку файла).Каждый элемент списка переменных (функций, выражений) может снабжаться характеристикой длины, то есть элементы списка, X, могут быть представлены в одном из трех видов:XX:wX:w:dгде w-общая длина поля записи;d-количество цифр в дробной части для элементоввещественного типа.Пример:Путь к файлу с результатами: A:\File2.DatМакет расположения Файл с результатамирезультатов в файле: I= 36 J= 25
ST= PASCALVar CHF : Text;I,J : integer;ST : string;...I:=36; J:=25; ST:=’PASCAL’;Assign(CHF,’A:\File2.Dat’);Rewrite(CHF);Writeln(CHF,’ Файлсрезультатами’);Writeln(CHF,’ I=’, I:3, ‘ J=’, J:3);Writeln(CHF,‘ ST= ’, ST);Close(CHF);С процедурами, обеспечивающими чтение и запись информации в файлы, тесно связаны две функции:12 Множества. Описание множестваМножество - произвольный набор однотипных элементов, понимаемых как единое целое ([1, 3, 5, 7, 9] - множество нечетных цифр). В среде Turbo-Pascal 7.0 существует ряд ограничений на тип и количество элементов составляющих множество:- тип элементов может быть любой ординальный, но целый задается диапазоном значений;- количество элементов в множестве не более 256, а порядковые номера лежат в диапазоне 0..255.Определение типаTypeMN=setof<тип компонент>;где Х – идентификатор множества;VarX: MN; MN- новое имя типа;}Пример:VarLET1 : setofchar;{множество символов в диапазоне 0..255}LET2: setof ‘A’..’Z’;{множество заглавных латинских букв}DAY : setof 1..31;{множество целых чисел, заданных диапазоном}MONTH: set of (FEB, MAR, APR, MAY);{множество, заданноеперечислением элементов}...LET1:=[‘0’, ‘2’, ‘A’, ‘C’];LET2:=[‘A’, ‘B’, ‘C’, ‘D’];MONTH:=[MAR,MAY];DAY:=[ ]; {пустоемножество}13 Операции над множествамиРассмотрим допустимые в среде Turbo-Pascal 7.0 операции над множествами, воспользовавшись следующим описанием:Type MN=set of (‘0’..’9’, ‘A’..’F’);Var CHIS, CHIS16, LET, RMN : MN;B: boolean;X: ‘A’..’F’;...
{файл, состоящий из записей}2 Принципы работы с файламиОбозначения:- признак конца файла; - компонента файла;F- имя файла;A - файловая переменная, которая имеет тот же тип, что и компоненты файла; - головка записи/чтения.Пример:файл из трех компонент пустой файлЗапись в файлИспользование процедуры записи возможно, когда файл открыт для записи, т.е. головка записи/чтения совмещена с признаком конца файла (новые элементы помещаются в конец файла).3 Создание и открытие на запись нового файлаRewrite(F);Если имя файла F связано с уже существующим файлом, то данные его уничтожаются, а признак конца помещается в начало файла - создается пустой файл.Пример:Var F: file of integer;I,J : integer;...{Запись в файл квадратов первых 100 натуральных чисел}Rewrite (F);for I:= 1 to 100 dobegin J:= Sqr(I);Write(F,J)end;4 Чтение из файлаПроцедура чтения из файла возможна только тогда, когда файл открыт для чтения, т.е. головка записи/чтения совмещена с искомой компонентой файла.5 Открытие существующего файла на чтениеЕсли файл не пустой, то после выполнения процедуры открытия файла для чтения, головка записи/чтения будет совмещена с первой компонентой файла. Если файл пуст, то головка записи/чтения указывает на признак конца файла.6 Распознавание конца файлаРаспознавание конца файла осуществляется с помощью функции:Пример:Var F: file of integer;S,I: integer;...{Чтение из непустого файла всех его компонент ивычисление суммы их квадратов}Reset(F); S
:=0;While not Eof(F) dobeginRead(F,I); S:=S+Sqr(I)end;7 Определение имени файлаОпределение имени файла осуществляется с помощью процедуры, которая связывает имя файла, определенное в программе с реально существующим файлом на физическом носителе информации.Assign(F,Name);где F- имя файла, определенное в программе;Name - переменная типа String или строка символов, указывающая путь к файлу на физическом носителе информации.Пример:Var F1,F2:file of real;Name:string;...Assign (F1, ‘A:\Myfile.Dat’); {исходныйфайлнаходитсянадискеAподименемMyfile.Dat}Name:=’B:\File2.Dat’;Assign(F2,Name); {исходный файл находится на диске Bподименем File2.Dat}8 Закрытие файлаClose (F);Процедура закрывает открытый (с помощью процедур Rewriteили Reset)файл.Настройка на требуемую компоненту файлаSeek(F,Nom);где F- любой файл, кроме Text;Nom- номер текущей компоненты файла (переменная типа Longint).Процедура осуществляет настройку на требуемую компоненту файла, который предварительно был открыт процедурами Rewriteили Reset. Номер текущей компоненты файла можно получить с помощью функции FilePos(Nom:=FilePos(F);).Размер файла в компонентах может быть получен с помощью функции FileSize(F).9 Описание текстовых файловОсобую роль в обмене информацией с внешними носителями в среде Turbo-Pascal 7.0 играют текстовые файлы, компоненты которых рассматриваются как последовательность символов.Определение типаVarCHF : Text; {это эквивалентно описаниюVar CHF: file of char;}10 Чтение из текстового файлаДля чтения данных из файла он должен быть предварительно открыт для чтения с помощью процедуры Reset(CHF).Чтение осуществляется с помощью процедур:Read(CHF, <список переменных>);илиReadln
(CHF,<список переменных>);Процедура Readlnпо окончании чтения обеспечивает переход к новой строке файла CHF(Readlnбез параметров обеспечивает только переход на новую строку файла).При чтении из текстового файла CHF данных, их значения присваиваются переменным, указанным в списке переменных в соответствии с их типом:- целые читаются с текущего символа, пропуская начальные пробелы, до первого символа отличного от цифры (или конца строки/файла);- вещественные читаются с текущего символа, пропуская начальные пробелы, до символа синтаксически несовместимого с представлением вещественного числа (или конца строки/файла);- символьные принимают значение текущего символа файла;- строки читаются с текущего символа до конца строки (файла).Пример:Путь к исходному файлу: A:\File1.DatСодержимое файла: 36 25+PASCAL16.5Var CHF : Text;S : real:I,J : integer;ST : string;C : char;...Assign(CHF, ‘A:\File1.Dat’);Reset(CHF);Readln(CHF, I,J,C,ST);{I:=36; J:=25; C:=’+’; ST:=’PASCAL’}Read(CHF,S); (S:=16.5}11 Запись в текстовый файлДля записи значений в файл он должен быть предварительно открыт для записи с помощью процедуры Rewrite(CHF).Запись осуществляется с помощью процедур:Write(CHF,<список переменных (функций, выражений)>);илиWriteln(CHF,<список переменных (функций, выражений)>);Процедура Writeln после записи значений в файл обеспечивает переход на новую строку файла (Writelnбез параметров осуществляет только переход на новую строку файла).Каждый элемент списка переменных (функций, выражений) может снабжаться характеристикой длины, то есть элементы списка, X, могут быть представлены в одном из трех видов:XX:wX:w:dгде w-общая длина поля записи;d-количество цифр в дробной части для элементоввещественного типа.Пример:Путь к файлу с результатами: A:\File2.DatМакет расположения Файл с результатамирезультатов в файле: I= 36 J= 25
ST= PASCALVar CHF : Text;I,J : integer;ST : string;...I:=36; J:=25; ST:=’PASCAL’;Assign(CHF,’A:\File2.Dat’);Rewrite(CHF);Writeln(CHF,’ Файлсрезультатами’);Writeln(CHF,’ I=’, I:3, ‘ J=’, J:3);Writeln(CHF,‘ ST= ’, ST);Close(CHF);С процедурами, обеспечивающими чтение и запись информации в файлы, тесно связаны две функции:12 Множества. Описание множестваМножество - произвольный набор однотипных элементов, понимаемых как единое целое ([1, 3, 5, 7, 9] - множество нечетных цифр). В среде Turbo-Pascal 7.0 существует ряд ограничений на тип и количество элементов составляющих множество:- тип элементов может быть любой ординальный, но целый задается диапазоном значений;- количество элементов в множестве не более 256, а порядковые номера лежат в диапазоне 0..255.Определение типаTypeMN=setof<тип компонент>;где Х – идентификатор множества;VarX: MN; MN- новое имя типа;}Пример:VarLET1 : setofchar;{множество символов в диапазоне 0..255}LET2: setof ‘A’..’Z’;{множество заглавных латинских букв}DAY : setof 1..31;{множество целых чисел, заданных диапазоном}MONTH: set of (FEB, MAR, APR, MAY);{множество, заданноеперечислением элементов}...LET1:=[‘0’, ‘2’, ‘A’, ‘C’];LET2:=[‘A’, ‘B’, ‘C’, ‘D’];MONTH:=[MAR,MAY];DAY:=[ ]; {пустоемножество}13 Операции над множествамиРассмотрим допустимые в среде Turbo-Pascal 7.0 операции над множествами, воспользовавшись следующим описанием:Type MN=set of (‘0’..’9’, ‘A’..’F’);Var CHIS, CHIS16, LET, RMN : MN;B: boolean;X: ‘A’..’F’;...
Объединение множеств
| S1+S2 | Результат объединения - множество, которое содержит элементы, либо принадлежащие множеству S1, либо S2 либо тому и другому. |