Лабораторная работа №7 Инициализация и использование в программах текстовых файлов

Материал из wiki.nntc.nnov.ru
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к навигации Перейти к поиску

Теоретические сведения

Файловый   тип   представляет   собой   последовательность компонент  одного типа,
расположенных на внешнем  устройстве.
Компоненты  могут быть любого типа, за исключением объектного
и файлового. Для работы с файлами требуется:
   ·   связать объявленную файловую переменную с файлом (процедурой Assign);
   ·   открыть файл для чтения (процедурой Reset) или для записи
       (процедурой ReWrite);
   ·   читать данные из файла (процедурой Read) или писать данные в файл
       (процедурой Write);
   ·   закрыть файл (процедурой Close);
   Текстовый   файл  представляет  собой  последовательность символов,
разделённую  на строки. Текстовый  файл  позволяет хранить и использовать
данные символьного, строкового, целого и вещественного  типов.  Доступ
к  данным   осуществляется последовательно.

Пример

Сформировать текстовый файл prim.dat и вывести данные из этого файла построчно на экран. В каждой строке содержатся два поля (р1 и р2) переменной типа запись (х). Данные записываются в файл до тех пор, пока не будет введено значение переменной ch, равное y (лат.)

Program TtxFile;
 type zap=record
     p1:string[5];
     р2:byte;
   end;
var
  f:text; {объявление текстовой файловой  переменной }
  x:zap; ch:char;
begin
 assign(f,'d:\prim1.dat'); {связывание файловой переменной с файлом}
 rewrite(f);{открыть файл для записи}
  repeat       {пока не введена с клавиатуры *}
   readln(x.p1, x.p2);   {вводим запись с клавиатуры}
   writeln(f,x.p1, x.p2); {и пишем в файл }
   write('ch=');
   readln(ch);
  until ch='*';
  close(f); );{закрыть  файл}
  reset(f); );{открыть файл для чтения}
  while not eof(f) do);{пока не конец  файла}
    begin
      readln(f,x.p1, x.p2);   {читаем из файла}
      writeln(x.p1, x.p2);     { выводим на экран}
    end;
  readln;
 end.

Задания к работе

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

Вариант 1.

Вычислите среднее арифметическое чисел из первого файла.

Вариант 2.

Составьте строку из символов второго файла. В строку следует поместить только буквы.

Вариант 3.

Вычислите сумму чётных чисел первого файла.

Вариант 4.

Из символов первых пяти строк второго файла сформируйте пять строковых переменных. Выведите их на экран по алфавиту.

Вариант 5.

Определите, что больше во втором файле: количество букв или количество цифр?

Вариант 6.

Выведите на экран символы второго файла в алфавитном порядке.

Вариант 7.

Определите наибольшее число первого файла.

Вариант 8.

Упорядочите символы второго файла по алфавиту.

Вариант 9.

Вычислите сумму нечётных чисел первого файла.

Вариант 10.

Составьте строку из символов-букв второго файла.