Презентация на тему: Примеры программ на ЯП Паскаль. Часть 3

Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
Примеры программ на ЯП Паскаль. Часть 3
1/11
Средняя оценка: 4.6/5 (всего оценок: 55)
Код скопирован в буфер обмена
Скачать (56 Кб)
1

Первый слайд презентации: Примеры программ на ЯП Паскаль. Часть 3

Изображение слайда
2

Слайд 2

Работа с внешними файлами 1. Текстовые файлы Объявление файловой переменной и установление связи с файлом на диске Объявление переменной файлового типа text : var Text_File : text ; {Text_File – файловая переменная } Установление связи файловой переменной с РЕАЛЬНЫМ файлом осуществляется следующей процедурой: Assign(Text_File: text, name: string); Первый параметр ( TxtFile ) — файловая переменная, второй — строка, содержащая имя файла на диске c указанием пути к этому файлу, например: A ssign( Text_File, ‘ c :\ DOCS \ my text.txt'); { правила DOS!}

Изображение слайда
3

Слайд 3

2. Чтение данных из файла Обход файла осуществляется ПОСЛЕДОВАТЕЛЬНО! Для открытия существующего файла для чтения, который был указан при вызове assign, используется процедура Reset ( T е xt _ File : text ); Если файл НЕ СУЩЕСТВУЕТ, - программа аварийно завершится! После открытия файла можно начинать чтение данных. Для этого используются процедуры read и readln : read(Text_File: text, v1: type1, v2: type2,... vN: typeN); readln(Text_File: text, v1: type1, v2: type2,... vN: typeN); Пример использования процедуры чтения: var f : text ; s : string ; n : integer ; ... readln ( f, n, s ); { чтение переменных n,s из файла f}

Изображение слайда
4

Слайд 4

Полезно использовать функции: Проверка достижения конца строки: eoln ( Text_File : text ): boolean ; Проверка достижения конца файла: eof ( Text_File : text ): boolean ; После завершения операций чтения / записи, файл необходимо закрыть с помощью процедуры Close ( Text_File : text );

Изображение слайда
5

Слайд 5

Пример 1. Чтение данных из файла: program FileReading ; var f : text ; c: char; begin assign(f, ‘myfile.pas'); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,c); write(c); end ; readln(f); writeln; end ; close(f); readln; end.

Изображение слайда
6

Слайд 6

3. Запись данных в файл Процедура открытия и удаления данных из существующего файла или создание нового файла для записи: Rewrite ( Text_File : text ); Если файл не существовал, то эта процедура создаст его, если существовал, - то содержимое будет стёрто. Для записи используются процедуры write ( Text_File : text, p 1: type 1, p 2: type 2,... pN : typeN ); writeln(Text_File: text, p1: type1, p2: type2,... pN: typeN);

Изображение слайда
7

Слайд 7

Пример 2. Запись данных в файл: Дан произвольный текстовый файл. Цель: получить другой файл, в каждой строке которого записана длина соответствующей строки исходного файла. program FileWriting ; var f1,f2: text; s: string ; begin assign(f1,'writelen.pas'); reset(f1); assign(f2,'result.txt'); rewrite(f2); while not eof(f1) do begin readln(f1,s); writeln(f2,length(s)); end ; close(f1); close(f2); end. Процедура открытия файла для ДОБАВЛЕНИЯ информации в конец файла. append ( Text_File : text ); Если файл открыт с помощью append, то всё его содержимое сохраняется.

Изображение слайда
8

Слайд 8

2. Двоичные файлы Двоичный файл - последовательность одинаковых элементов, записанных на диске. Особенности двоичных файлов и их отличия от текстовых: нет разбиения на строки; файл представляет собой массив; доступ только последовательный. 2 типа двоичных фалов: типизированные и нетипизированные. var f : file of < тип_элемента > ; Тип_элемента - как простые, так и структурированные типы данных.

Изображение слайда
9

Слайд 9

Assign( var f; FileName : String ) связь файловой переменной f с физическим файлом с именем FileName. Reset( var f ) открытие файла f для последующего чтения данных. Rewrite( var f ) открытие файла f для последующей записи данных. Close( var f ) закрывает открытый до этого файл f. Для входных файлов использование оператора закрытия файла необязательно. EOF( var f ) : Boolean. Возвращает значение TRUE при достижении конца файла. Rename( var f ; NewName : String ) позволяет переименовать файл f. Переименование возможно после закрытия файла. Erase( var f ) уничтожает файл f на диске. Перед этим файл должен быть закрыт. IOResult: Integer. Возвращает целое число, соответствующее коду последней ошибки ввода - вывода. При нормальном завершении операций функция вернет значение 0. Функция IOResult работает только при выключенном режиме проверок ошибок ввода - вывода или с ключом компиляции {$I-}. 3. Процедуры и функции для работы с внешними файлами

Изображение слайда
10

Слайд 10

Пример 3. Открытие и запись в файл структуры типа «запись»: program data; { Пример открытия типизированного файла } uses crt; type tabl = record name,author:string[30]; year:integer end; var k: char; inf: tabl; f: file of tabl; procedure opn; begin assign(f,'ba z a.bkz'); reset(f); { попытка открыть существующий файл } if ioresult<>0 then rewrite(f) { если файла не существует, - создание нового end ; пустого файла } procedure news; begin write('Введите название: '); readln(inf.name); write('Введите автора: '); readln(inf.author); write('Введите год: '); readln(inf.year); write(f,inf); end ;

Изображение слайда
11

Последний слайд презентации: Примеры программ на ЯП Паскаль. Часть 3

procedure poisk; var i,a:integer; begin clrscr; write('Введите год: '); i:=0; readln(a); seek(f,0); { перемещаем файловый указатель на начало файла } repeat read(f,inf); inc(i); if inf.year<a then begin writeln; writeln('Запись №',i); write('Название: '); writeln(inf.name); write('Автор: '); writeln(inf.author); write('Год: '); writeln(inf.year); readkey end until eof(f); end; {$I-} Begin opn; news; poisk End. {$I + }

Изображение слайда