File (516215), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

fsplit(name,pathf,namef,extf); {«расщепление» имени файла на составляющие}

writeln('полное имя файла =',pathf:25,namef:12,extf:8);

getfattr(fi,k); {определение атрибутов файла}

atr:=lo(k); {}

writeln(' байт атрибутов ',atr);

size:=diskfree(1);

writeln(' свободноe место на диске ',size:10,' байт ');

close(fi);

end.

Результат работы программы:

введите имя файла для работы

c:\tanya\pasc\filezap\pr.res

дата создания файла = 1998 12 11

время создания файла = 10 47 22

после установки новой даты

дата создания файла = 1998 7 31

время создания файла = 10 47 22

полное имя файла = c:\tanya\pasc\filezap\ pr .res

байт атрибутов 32

свободное место на диске 559104 байт

2.4.Операции ввода - вывода Borland Pascal для работы с файлами различной внутренней структуры

2.4.1.Типизированные файлы.

Типизированный файл - это файл, компоненты которого имеют один тип, задаваемый при объявлении файловой переменной. Компоненты файла хранятся на диске во внутреннем формате, в соответствии с типом, определенном при описании файла. Поэтому, иногда типизированные файлы называют файлами без преобразования. Определить файл можно двумя способами:

1. предварительно ввести новый тип - файл переменных определенного типа, а затем определить файловую переменную этого типа, например

TYPE <имя типа> = FILE of <тип>

VAR <файловая переменная >: <имя типа>;

2. сразу определить файловую переменную как файл определенного типа, например

VAR <файловая переменная >: FILE of <тип>

Компоненты типизированного файла могут быть любого типа, кроме файлового. Поскольку длина каждой компоненты файла строго постоянна, возможен прямой доступ к каждой компоненте.

Типизированный файл открывается одновременно на запись и на чтение процедурами REWRITE или RESET. Однако есть различие в применении этих процедур. При использовании процедуры REWRITE, открывается новый файл и если файл с таким именем уже есть, он уничтожается. Применение процедуры RESET вызывает открытие уже существующего файла. Его отсутствие на диске вызывает ошибку ввода-вывода. После открытия файла, указатель обоих случаях устанавливается в начало.

Следовательно, перед первым обращением к процедурам ввода-вывода указатель файла стоит в его начале и указывает на первую компоненту с номером 0. После каждого чтения или записи указатель сдвигается к следующей компоненте файла. Такой способ доступа к файлу называется последовательным. Однако, есть процедуры, обеспечивающие реализацию прямого доступа к компонентам файла.

Процедуры и функции работы с типизированными файлами.

1. Процедура READ(<файловая переменная>,<список ввода>) предназначена для чтения очередных компонент типизированного файла.

<список ввода> список, содержащий одну или несколько переменных такого же типа, что и компоненты файла, разделенных запятыми.

Если файл исчерпан, обращение к процедуре вызывает ошибку ввода-вывода.

1. Процедура WRITE(<файловая переменная>,<список ввода>) служит для записи данных в типизированный файл.

<список ввода> список, содержащий одно или более выражений такого же типа, что и компоненты файла, разделенных запятыми.

1. Процедура SEEK(<файловая переменная>,<номер компоненты>) предназначена для реализации прямого доступа к типизированному файлу, обеспечивая установку указателя на требуемую компоненту файла.

Местоположение компоненты определяется ее смещением относительно начала файла. Это смещение определяется как число компонент, которое надо пропустить, чтобы встать на нужную. Так, у первой компоненты смещение 0, у второй 1 и т.д., поэтому:

<номер компоненты> переменная типа longint, указывающая смещение компоненты от начала файла и совпадающая с номером компоненты, если отсчет компонент вести с 0..

1. Функция FILESIZE(<файловая переменная>) служит для определения размера файла, указанного файловой переменной. Функция возвращает значение типа longint, которое содержит количество компонент файла. Отсчет компонент файла ведется с 1.

Может использоваться для установки на конец файла совместно с SEEK():

SEEK(<файловая переменная>, FILESIZE(<файловая переменная>)).

1. Функция FILEPOS(<файловая переменная>) применяется для определения текущего положения указателя файла. Функция возвращает значение типа longint, содержащее порядковый номер того компонента, который будет обрабатываться следующей операцией ввода-вывода.. Нумерация компонент в функции файла начинается с 0.

• Пример 2-5. Определение суммы компонент файла, стоящих на четных местах.

{программа создает файл, содержащий случайное количество случайных целых чисел. Затем определяется сумма чисел, стоящих на четных местах в файле. }

Program tipfile1;

uses crt;

Type t=file of integer; {вводится новый тип - файл целых чисел}

var f1:t; {файловая переменная типа файл целых чисел}

k,i,l:integer;

s:real;

Begin

clrscr;

Assign(f1,'pr.dat');{ связать файловую переменную с реальным файлом}

Rewrite(f1); { открыть файла на запись}

randomize;

k:=random(50); { случайное количество}

for i:=1 to k do begin

l:=random(21); { случайных чисел}

write(f1,l); end; {записать очередной компоненты в файл }

seek(f1,0); {установка указателя на начало файла}

writeln(' исходный файл ');

i:=0;

while not eof(f1) do {цикл пока не конец файла - обработка}

begin

read(f1,l);

i:=i+1;

if (i mod 5)=0 then writeln(l:4)

else write(l:4);

end;

writeln;

writeln('**********************************');

writeln(' искомые числа файла ');

seek(f1,0); {установка указателя на начало файла}

i:=1;s:=0;k:=0;

while(not eof(f1)) and (i<=filesize(f1)-1) do

begin{ пока не конец файла или пока i не больше номера последней комп.}

seek(f1,i);

read(f1,l);

s:=s+l;

i:=i+2;

k:=k+1;

if (k mod 5)=0 then writeln(l:4)

else write(l:4);

end;

writeln;

writeln('**********************************');

writeln(' сумма чисел,стоящих на четных местах в файле равна ',s:8:2);

close(f1); { закрыть файл}

End.

Результат работы программы

исходный файл

6 8 13 5 18

8 9 11 4 5

5 12 3 18 3

11 13 7 3 1

3 9 7 18

**********************************

искомые числа файла

8 5 8 11 5

12 18 11 7 1

9 18

**********************************

сумма чисел, стоящих на четных местах в файле равна 113.00

• Пример 2-6. Определение среднего арифметического положительных компонент типизированного файла.

{ Программа сoздает файл целых чисел, вычисляет среднее арифметическое положительных чисел, используя функцию }

Program Fileintegeк;

Uses CRT;

Type

t=file of integer; {новый тип - файл целых чисел}

var

f:t; { переменная типа файл целых чисел}

filename:string[6]; {переменная для имени файла}

kol,i,n,a:integer; sar:real;

Function Sr(var f1:t;var k:integer):real;

{ функция вычисляет и возвращает среднее значение положительных компонент файла; входной параметр - файловая переменная выходной параметр к - количество положительных компонент }

var

s:real; n1:integer;

begin

s:=0;

k:=0;

Reset(f1); {открыть файл на чтение}

writeln(' содержимое файла ');

while not Eof(f1) do { цикл пока не конец файла}

begin

read(f1,n1); { читать компонент }

write(n1:4); {вывести на печать компонент}

if n1>0 then

begin

s:=s+n1;

k:=k+1;

end;

Sr:=s/k;

end;

writeln;

close(f1); { закрыть файл}

end;

Begin { Основная программа}

clrscr;

writeln('введите имя файла');

readln(filename);

Assign(f,filename); {установить связь с файлом на диске}

Rewrite(f); {открыть файл на запись}

writeln(' введите число компонентов файла ');

readln(n);

for i:=1 to n do

begin

read(a); {читать с клавиатуры}

write(f,a); {писать в фал }

end;

Close(f); {закрыть файл}

sar:=sr(f,kol);

writeln('среднее арифм. положительных компонент файла=',sar:5:3);

writeln('корличество положительных компонент файла=',kol:5)

End.

Результат работы программы:

введите имя файла

yyy.dat

введите число компонент файла

10

23 -45 8 0 5 0 -6 12 35 0

содержимое файла:

23 -45 8 0 5 0 -6 12 35 0

среднее арифм. положительных компонент файла=16.600

количество положительных компонент файла= 5

• Пример 2-7. Применение типизированного файла для создания систем учета товаров на складе.

{Программа вводит данные о товаре с пульта и выводит эти данные в файл записей. Затем проверяется информации путем поиска в файле и подсчета стоимости товара на складе}

program ex;

uses crt;

type st=string[10];

tovar=record

nazv:st;

kol:word;

cena:word;

end;

var tv:tovar; {переменная типа tovar}

fname:string; {переменная для задания имени файла}

f1:file of tovar; {файлвая переменная - файл типа запись}

max,sum:longint;

n,i:integer;

nazm:st;

begin clrscr;

writeln('введите имя файла ');

readln(fname);

assign(f1,fname); {связывание файловой переменной с файлом на диске}

{$I-}reset(f1);{$I+} {открытие на чтение файла }

if ioresult <> 0 then

begin {если файла с таким именем нет открытие на запись}

rewrite(f1); { и ввод информации о товарах}

writeln('Введите данные о количестве товара ');

readln(n);

for i:=1 to n do

begin

with tv do begin

write(' название ',i:3, '-го товара ');readln(nazv);

writeln(' количество цена');readln(kol,cena);

end;

write(f1,tv); { запись данных о товаре в файл на диск}

end;

end;

writeln('Название товара количество цена');

seek(f1,0); { установка указателя файла на начало}

sum:=0;max:=-200;nazm:='';

while not eof(f1) do

begin

read(f1,tv); {чтение записей из файла для анализа }

writeln(tv.nazv:10,' ',tv.kol:10,' ',tv.cena:9);

sum:=sum+tv.cena*tv.kol;

if tv.kol >=max then

begin

max:=tv.kol;nazm:=tv.nazv

end;

end;

writeln;

writeln('общая цена товара на складе равна ');

writeln(sum,' условных единиц ');

writeln(' наибольшее количество товара ',max:6,' с названием ',nazm);

readln;

close(f1);

end.

Результат работы программы

введите имя файла

tt.dat

Название товара количество цена

сумки 100 300

портфели 1000 200

кошельки 2000 58

бумажники 1200 60

папки 3000 45

общая цена товара на складе равна

94248 условных единиц

наибольшее количество товара 3000 с названием папки

Характеристики

Список файлов книги