Основы программирования (947332), страница 36
Текст из файла (страница 36)
Если импорт из страны отсутствует, вывести соответствующее сообщение.2066, Файловая система. ФайлыЗадание 2. Разработайте профамму, которая формирует типизированный файлиз К целых чисел в диапазоне -50 +120, используя датчик случайных чисел как длязадания К (К находится в диапазоне от 1 до 100), так и для задания значений компонент файла. Для сформированного файла определите сумму его четных отрицательных компонент и поместите эту сумму вместо максимального по абсолютной величине компонента этого же файла.Задание 3.
Дан типизированный файл вещественных чисел. Разработайте программу, которая определяет среднее арифметическое значение компонент файла.Удалите из файла все компоненты, меньшие найденного среднего арифметического.Выведите на экран исходный и переформированный файлы и значение среднегоарифметического.6.5. Нетипизированные файлыНетипизированными называют файлы, объявленные без указания типаего компонентов. Операции чтения и записи с такими файлами осуществляются блоками. Отсутствие типа компонента делает эти файлы совместимыми с любыми другими, а выполнение ввода/вывода блоками позволяет организовать высокоскоростной обмен данными между диском и памятью. Нетипизированные файлы, как и типизированные, допускают организацию прямого доступа.Нетипизированный файл можно открыть для записи и чтения, используяпроцедуры ReSet и Re Write.
При открытии нетипизированного файла этимипроцедурами вторым параметром recsize можно указать длину записи файлав байтах. Если длина записи не указана, она принимается равной 128 байтам:ReSet (Var f; [recsize:word\);ReWrite(Var f; [recsize:word ] /Длина записи recsize - положительное число, не превышающее 65535байт. Для обеспечения максимальной скорости обмена данными следует задавать длину, которая была бы кратна размеру сектора диска (512 байт), например: 1024,2048.При работе с нетипизированными файлами можно использовать всепроцедуры и функции, предназначенные для работы с типизированнымифайлами, за исключением процедур Read и Write. Эти процедуры заменяются высокоскоростными процедурами BlockRead и BlockWrite.1.
Процедура BlockRead(Var f:file;Var buf; CounCword [;res:word] ) осуществляет чтение блока записей из файла в буфер.Параметр buf определяет буфер, который будет участвовать в обменеданными. Размер буфера должен быть достаточен для размещения Count записей указанной в процедуре ReSet длины.207Часть L Основы алгоритмизации и процедурное программированиеПараметр res будет содержать количество фактически обработанных записей. Если последняя запись - неполная, т.е. ее длина меньше указаннойдлины записи, то значение параметра res не будет ее включать,2, Процедура BlockWrite(Var fifile; Var buf; Count:word [;res:word\) осуществляет запись блока из буфера buf в файл.Пример 6.6, Разработать программу копирования файлов.
При созданииданной программы нам безразлично, что именно хранится в файле, поэтомуиспользуем нетипизированные файлы. При этом длину записи установимравной 1, буфер предусмотрим на 2048 байт. Так мы гарантируем отсутствиенеполных записей и в то же время за одну операцию будем обрабатыватьблок большого размера.Program copir;Const recs=1024; {размер записи}Var y7,yi7.y/fe;{нетипизированные файлы}buf: array [L.2*recs] of byte;{буфер на 2048 байт}i:word;namein,nameout: string;BeginWriteLnCВведите имя файла - источника:');ReadLn(namein);{проверка наличия файла с указанным именем}Assign(fiynamein);{$ЧReSet(fiyl); {открываем файл для чтения}{$!+}iflOResultoО thenbeginWriteLn(#7,' Не существует файла с именем \namein);Haltend;WriteLn СВведите имя файла - приемника ');ReadLn(nameout);Assign(fo,nameout);ReWrite(fOyl); {открываем файл для записи}while not EOF(fi) dobeginBlockRead(ft,buf,sizeof(buf),i);{читаем блок из входного файла}BlockWrite(fo,bufi);{пишем блок из буфера в выходной файл}end;Close(fi);Close(fo)End2086.
Файловая система. Файлы6.6. Процедуры и функции библиотеки DOSдля работы с файламиBorland Pascal предоставляет программисту возможность обращения кнекоторым функциям MS DOS, обеспечивающим функционирование файловой системы. Для этого необходимо в начале программы подключить библиотеку Dos с помощью директивы Uses Dos, чтобы сделать доступными ее ресурсы, описанные в этом разделе.Для работы с файлами библиотека Dos содержит следующие процедурыи функции.1.
Функция DiskFree((lrive:byte):LongInt-опродоляет и возвращает объем свободного места на диске drive в байтах. Параметр drive может принимать значения: О - устройство по умолчанию, 1 - диск А, 2 - диск В и т.д.2. Функция DiskSize(drive:byte):LongInt - возвращает полный объемуказанного диска в байтах. Параметр drive принимает те же значения, как ив предыдущей функции.3. Процедура GetFTime(Var f; Var time:LongInt) - возвращает время создания или последнего обновления указанного файла f.
Время возвращаетсяв упакованном формате, который необходимо распаковать.4. Процедура UnPackTime (time:LongInt; Var DT:DateTime) - распаковывает значение параметра time, который содержит время в упакованномформате, в специальный тип DateTime, описанный в модуле Dos следующимобразом:Туре DateTime = recordyear:word; {год}month: word; {месяц: 1..12}day:word;{число: 1..31}hair:word; {часы: 0..23}min:word;{минуты: 0..59}sec:word;{секунды: 0..59}end;5. Процедура PackTime(DT:DateTime;Var time:LongInt) - позволяетупаковать параметр DT типа DateTime в целое число time.6.
Процедура SetFTime(Varf; time:LongInt) - используется для установки даты создания или обновления файла; time - время и дата в упакованномформате.7. Процедура GetFAttr (Varf; Var Attnword) - применяется для получения атрибутов файла, указанного файловой переменной.
Атрибуты файла(«только чтение», «скрытый», «системный» и т.д.) кодируются битами байтаатрибутов файла. Комбинация битов в байте может указывать самые разныеварианты. Байт атрибутов возвращается в младшем байте параметра Attr.209Часть 1. Основы алгоритмизации и процедурное программированиеДля расшифровки байта атрибутов в модуле Dos описаны специальные маски длиной 1 байт:ConstReadonlyHiddenSysfileVolumelDDirectoryArchiveAnyfile= $01:= $02;= $04;= $08;= $10;= $20;= $3F;{только чтение}{скрытый файл}{системный файл}{идентификатор тома}{имя подкаталога}{архивный файл}{любой файл}Для того чтобы определить, установлен или нет соответствующий бит,используют фрагменты, аналогичные следующему:GetFAttr(fMrF);if Lo(AttrF) && Readonly oO thenWriteLn('0am имеет атрибут ''только чтение'**);8.
Процедура SetFAttr(Var f; Attr:word) - служит для установки атрибутов файла указанного файловой переменной.9. Функция FSearch(path:PathStr; DirList:s(rlng):PathStr - возвращаетпуть к файлу, заданному в строке path, который ищется в указанном спискекаталогов; имена каталогов в списке должны быть разделены точкой с запятой «;». Если файл не найден, то возвращается пустая строка.\0. Процедура FSpllt(patlt:PathStr; Var DinDlrStr; Var name:NameStr;Var Ext:ExtStr) - осуществляет расщепления имени файла, заданного в path,т.
е. возвращает в качестве отдельных строк путь к файлу dir, его имя name ирасширение ext. Процедура не проверяет наличие на диске указанного файла.11. Функция FExpand(path:PathSrt):PathStr - возвращает полное имяуказанного файла. Функция не проверяет наличие файла на диске, а простодополняет имя файла недостающими параметрами.Пример 6.7. Разработать программу, которая обращается к функциямбиблиотеки Dos для:• определения и изменения даты создания файла;• определения атрибутов файла;• определения количества свободного места на диске.Program fundos; { проверка функций библиотеки dos}Uses dos,crt;Var fiJo:text;{текстовые файлы}к, i:word;tinte,size:longint;date:DateTime;patltf:DirStr;namef:NameStr;extfiExtStr;atribyte; {переменные для хранения байта атрибутов файла}name:string;2106.
Файловая система. ФайлыBeginClrScr;WriteLnf'Введите имя файла:');ReadLn(name);Assign(fhname);{$!-} ReSet(ft);{$!+} {проверяем наличие файла с именем name}iflOResultoOthenbeginWriteLn(#7, * нет файла с именем \namej;Halt;end;GeiFTime(fiyiime);{определяем дату создания файла}UnPackTifne(time,date); {распаковываем дату}WriteLn(^ama создания файла= \date.year:5,date.month:3, date,day:3);WriteLnCВремя создания файла = \dateMour:3,date,min:3ydate.sec:3);with date dobegin year:=200J; month: =3; day: =8end;PackTime(date,tinte); {упаковываем дату}SetFTime(fi,time); {меняем дату}WriteLn(*Пocлe изменения даты: ');WriteLn('dama создания файла = \date,year:5,date,month:3,date.day:3);WriteLn(*вpeмя создания файла =\date.hour:3,date,min:3,date,sec:3);FSplit(nameypathf,namef,extJ); {расщепляем имя файла}WriteLn(*Пoлнoe имя файла =\pathf:25,namef:J2,extf:8);GetFAttr(ft,k);{определяем атрибуты файла}atr:=lo(k);WriteLnC байт атрибутов \atr);size: =DiskFree(l);WriteLn(*Ceo6odHoe место на диске А \size:10, * байт ');Close(fi);EndРезультат работы программы:Введите имя файла:c:\iva\primer.pas\file\primer.txtДата создания файла = 2001 3 7Время создания файла = 10 47 22После изменения датыдата создания файла = 2001 3 8время создания файла = 10 47 22Полное имя файла = c:\iva\primer.pas\file\байт атрибутов 32Свободное место на диске А 9104 байтprimer .txt211?• ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМДИНАМИЧЕСКОЙ ПАМЯТИДо настоящего момента мы имели дело с переменными, которые размещаются в памяти согласно вполне определенным правилам.
Так, память под глобальные переменныепрограммы выделяется в процессе компиляции, и эти переменные существуют в течениевсего времени работы программы. Для локальных переменных, описанных в подпрограмме, память отводится при вызове подпрограммы, при выходе из нее эта память освобождается, а сами переменные прекращают свое существование. Иными словами, распределение памяти во всех случаях осуществляется полностью автоматически. Переменные, память под которые выделяется описанным образом, называют статическими. Подэту категорию подпадают все переменные, объявленные в области описаний программных блоков.
Однако Borland Pascal предоставляет возможность создавать новые переменные во время работы программы, сообразуясь с потребностями решаемой задачи, и уничтожать их, когда надобность в них отпадает.Переменные, созданием и уничтожением которых может явно управлять программист, называют динамическими. Для более полного понимания механизма работы с динамическими переменными следует сначала разобраться в механизме адресации оперативной памяти MS DOS.7.1. Указатели и операции над нимиНаименьшей адресуемой единицей памяти персонального компьютера,построенного на базе микропроцессоров фирмы Intel и их аналогов, является байт. Таким образом, память представляет собой последовательность нумерованных байтов.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
