Презентація на тему:
Презентація "Типізовані файли"

Типізовані файли Приклади використання

Особливості типізованих файлів призначені для збереження однотипних даних будь-якого типу, крім файлового ; при роботі з файлами можна здійснювати послідовний і прямий доступ до даних ; позиції даних нумеруються, починаючи з нуля ; процедура Reset відкриває файл в режимі читання – запису даних;

Особливості типізованих файлів не використовуються процедури Readln, Writeln та Append; переглядати вміст файлів на екрані не можна — вони зберігаються в машинних кодах(компактно); можна перезаписувати значення будь-якого компоненту файлу.

Приклад 1 Створити типізований файл і записати в нього 10 цілих випадкових чисел. Var f : file of integer ; a, i : integer ; Begin Assign( f, ‘ab.dat’ ) ; Rewrite (f) ; { - відкрити файл для запису } For i :=1 to 10 do begin a:=Random(10); { -утворення випадкового числа} write (f, a ) ; { - запис числа у файл без пробілів} End ; Close (f) Еnd.

Приклад 2 Прочитати дані з файла і вивести їх на екран Var f : file of integer ; a : integer ; Begin Assign( f, ‘ab.dat’ ) ; Reset (f) ; { - відкрити файл для читання даних} While not eof (f) do {- поки не кінець файла} begin read(f, a); { - читання числа з файлу } write ( a :3) ; { - виведення даних на екран} end ; Close (f) Еnd.

Приклад 3 Обчислити суму першого і останнього компонентів файлу (фрагмент). . . . . . . . . . . . . . Reset (f) ; Read (f, a) { - читання першого числа з файлу } Seek (f, filesize(f)-1) ; {- покажчик в кінці файла } Read(f, b) { - читання другого числа з файлу } Writeln(‘a+b=’, a+b) End ; . . . . . . . . . . . .

Приклад 4 Подвоїти п’ятий компонент файлу (фрагмент). . . . . . . . . . . . . . Reset (f) ; {- відкрити файл для запису } Seek (f, 4); {- покажчик вказує на п’ятий компонент, відлік від нуля } read(f, a ); { - читання числа з файлу, покажчик переміщується на шостий компонент} a:=a*2; Seek( f, 4); { - покажчик вказує на п’ятий компонент } Write (f, a) { - запис подвоєного числа у файл } . . . . . . . . . . . .

Увага! Помилка Error 100 : read disk error виникає при намаганні читати дані з файла в момент, коли покажчик файлу встановлено на кінець файлу. Переміщують покажчик в початок файла процедури Reset(f) або Seek (f, 0)