Библиотека программиста

Книги-online

Лабораторная работа 9

Работа с файлами

Цель работы: познакомить с понятием файлового типа данных (типизированные, текстовые и нетипизированные файлы); выработать навыки работы с файловым типом данных в языке программирования Pascal. научиться считывать информацию из файлов, записывать информацию в файл; научится решать задачи с использованием файлов

Общие сведения

Файл представляет собой структурированный тип данных, содержащий последовательность компонентов одного типа и одной длины. Число элементов в файле (длина файла) не фиксировано. Это является основным отличием файла от массива. Файл можно представить как ленту, у которой есть начало, а конец не фиксирован. Элементы файла записываются на эту ленту последовательно, друг за другом с помощью некоторого устройства - указателя файла. При чтении или записи этот указатель перемещается к следующему элементу и делает его доступным для обработки. В каждый момент доступен для чтения или записи только тот элемент файла, на который установлен указатель.

Пример

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

Этапы решения задачи:

Будем считывать файл f построчно и перевертывая строки будем записывать их в массив, далее создадим файл и заполним его строками из массива меняя порядок строк на обратный.

Составим блок -схему программы.

Содержимое самих блоков не должно вызвать больших затруднений в смысловом понимании, главное здесь это - техническая реализации на языке Паскаль, поэтому запишем реализации каждого блока на Паскале.

а) "Считываем строки из файла F" 
      assign(f,'input.dat'); 
        reset(f); 
       while not eof(f) do 
     begin readln(f,st); 
    end; 
б) "Переворачиваем строки и записываем их в массив" 
      st1:=''; 
       for i:= 1 to length(st) do 
        st1:= st[i]+st1; 
       m[k]:=st1; 
      k:=k+1; 
в) "Записываем в файл g" 
      assign(g,'output.dat'); 
       rewrite(g); 
      for i:= 1 to k do writeln(g,m[i]); 
    3. Программа целиком 
    program example; 
      var 
       f,g:text; 
        m:array[1..100] of string; 
       k,i:integer; 
    begin 
       assign(f,'input.dat'); 
        reset(f); 
         k:=0; 
          while not eof(f) do 
    begin readln(f,st); 
      k:=k+1; 
       st1:=''; 
         for i:= 1 to length(st) do st1:= st[i]+st1;
          m[k]:=st1; 
end; 
       assign(g,'output.dat'); 
        rewrite(g);
       for i:= 1 to k do writeln(g,m[i]); 
end.

Контрольные вопросы

Что такое файл? Какие существуют виды файлов?

Какими стандартными процедурами и функциями располагает Borland Pascal для работы с файлами?

Каково должно быть содержание программы по созданию файла и его корректировки (замена элементов, добавление элементов, удаление элементов)?

Каковы особенности работы с текстовыми файлами?

Каковы особенности работы с типизированными файлами?

Как подсчитать число строк в текстовом файле?

Задания

Работа с текстовыми файлами:

Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Использовать вспомогательный файл h.

Дан текстовый файл f. Записать в файл g компоненты файла f в обратном порядке.

Даны текстовые файлы f и g. Записать в файл h сначала компоненты файла f, затем - компоненты файла g с сохранением порядка.

Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f: а) являющимися четными числами; б) делящиеся на 3 и не делящиеся на 7; в) являющимися точными квадратами.

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

Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы в файле g:
a) не было двух соседних чисел с одинаковым знаком;
b) вначале шли положительные, затем отрицательные числа;
c) числа шли в следующем порядке: два положительных, два отрицательных, два положительных, два отрицательных и т.д. (предполагается, что число компонент в файле f делится на 4).

Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Числа в файле идут в следующем порядке: десять положительных, десять отрицательных, десять положительных, десять отрицательных и т.д. Переписать компоненты файла f в файл g так, чтобы в файле g числа шли в следующем порядке: а) пять положительных, пять отрицательных, пять положительных, пять отрицательных и т.д.; б) двадцать положительных, двадцать отрицательных, двадцать положительных, двадцать отрицательных и т.д. (предполагается, что число компонент в файле f делится на 40).

Дан файл f, компоненты которого являются целыми числами. Записать в файл g наибольшее значение первых пяти компонент файла f, затем - следующих пяти компонент и т.д. Если в последней группе окажется менее пяти компонент, то последняя компонента файла g должна быть равна наибольшей из компонент файла f, образующих последнюю (неполную) группу.

Дан символьный файл f: а) подсчитать число вхождений в файл сочетаний 'ab'; б) определить входит ли в файл сочетание 'abcdefgh'; в) подсчитать число вхождений в файл каждой из букв 'a','b','c','d', 'e','f' и вывести результат в виде таблицы
a --> Na b --> Nb c --> Nc
d --> Nd e --> Ne f --> Nf
где Na, Nb, Nc, Nd, Ne, Nf - числа вхождений соответствующих букв.

Дан символьный файл f. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл g. Типизированные файлы

Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно - действительное (вес в килограммах).
a) Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса одной вещи.
b) Найти число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей.
c) Определить, имеются ли два пассажира, багажи которых совпадают по числу вещей и различаются по весу не более чем на 0,5 кг.
d) Выяснить, имеется ли пассажир, багаж которого превышает багаж каждого из остальных пассажиров и по числу вещей, и по весу.
e) Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг.

Прямая на плоскости задается уравнением ax+by+c=0, где a и b одновременно не равны нулю. Будем рассматривать только прямые, для которых коэффициенты a,b,c - целые числа. Пусть f - файл, содержащий коэффициенты нескольких прямых (не менее трех). Переписать из файла f в файл g коэффициенты тех прямых, которые:
a) параллельны первой из прямых, заданной в файле f;
b) указаны в пункте а), но дополнительно требуется, чтобы все прямые были различны;
c) пересекают первую из прямых, заданных в файле f;
d) указаны в пункте b), но дополнительно требуется, чтобы среди прямых не было параллельных.

Условие предыдущей задачи сохраняется. Требуется получить в файле g коэффициенты всех различных прямых файла f.

Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дан файл f, содержащий сведения об учениках школы:
a) выяснить, имеются ли в школе однофамильцы;
b) выяснить, имеются ли однофамильцы в каких-либо параллельных классах;
c) выяснить, имеются ли однофамильцы в каком-нибудь классе;
d) ответить на вопросы а)-в), но в отношении учеников, у которых совпадают и имя, и фамилия;
e) выяснить, в каких классах насчитывается более 35 учащихся;
f) выяснить на сколько человек в восьмых классах больше, чем в десятых;
g) собрать в файле g сведения об учениках 9-х и 10-х классов, поместив вначале сведения об учениках класса 9а, затем 9б и т.д., затем 10а, 10б и т.д.

Дан файл f, содержащий те же сведения об учениках, что и в предыдущей задаче, и дополнительно отметки, полученные учениками в последней четверти.
a) выяснить, сколько учеников школы не имеют отметок ниже четырех;
b) собрать в файле g сведения о лучших учениках школы, т.е. об учениках, не имеющих отметок ниже четырех и по сумме баллов не уступающих другим ученикам своего и параллельных классов.

Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий сведения о нескольких автомобилях. Найти: а) фамилии владельцев и номера автомобилей данной марки; б) количество автомобилей каждой марки. Найденные данные записать в файл g.

Дан файл f, содержащий различные даты. Каждая дата - это число, месяц и год. Найти: а) год с наименьшим номером; б) все весенние даты; в) самую позднюю дату. Найденные данные записать в файл g.

Дан файл f, содержащий сведения о книгах. Сведения о каждой из книг - это фамилия автора, название и год издания. 1) Найти названия книг данного автора, изданных с 1960 г. 2) Определить, имеется ли книга с названием "Информатика". Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющиеся сведения обо всех книгах.

Дан файл f, содержащий сведения о кубиках: размер каждого кубика (длина ребра в сантиметрах), его цвет (красный, зеленый, желтый или синий) и материал (деревянный, металлический, картонный). Найти: а) количество кубиков каждого из перечисленных цветов и их суммарный объем; б) количество деревянных кубиков с ребром 3 см и количество металлических кубиков с ребром, большим 5 см.

Дан файл f, содержащий сведения о веществах: указывается название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор). 1) Найти удельные веса и названия всех полупроводников. 2) Выбрать данные о проводниках и упорядочить их по убыванию удельных весов.

Задачи повышенной сложности

Написать программу для сжатия и распаковки фалов: а) текстового, б) типизированного (file of string), в) нетипизированного.

Дан текстовый фал, содержащий программу на языке Паскаль. Проверить эту программу на соответствие числа открывающихся и закрывающихся скобок (любых).

Дан нетипизированный файл. Записать фал "в обратном порядке" (с изменением порядка байтов).

Назад На главную Учебник по языку Pascal Лабораторные работы по программированию bookdelphi bookdelphi

Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском

.

книги по программированию исходники компоненты шаблоны сайтов C++ PHP Delphi скачать