Pascal: Занятие № 12 Часть1. Работа с файлами в паскале (текстовые файлы)

На занятии будет рассмотрена работа с текстовыми файлами в Паскале и разобраны конкретные решенные примеры задач

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

Виды файлов в зависимости от их описания и режимом работы

  1. текстовые (тип text) файлы со строками неопределенной длины;
  2. файлы с типом записей (двоичные или типизированные (file of) );
  3. файлы без типа для передачи данных блоками записей нетипизированные (file).

Описание файловых переменных:

var
   f1: file of char; {типизированный файл}
   f2: file of integer; {типизированный файл}
   f3: file; {нетипизированный файл}
   f: text; {текстовый файл}

Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN:

assign(myfile,'c:\text.txt');

где myfile — имя переменной (объявленной ранее в области var), ассоциированной с файлом
c:\text.txt — путь к реальному файлу
Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

Текстовые файлы в паскале: процедуры работы

Текстовый файл в Паскале — это совокупность строк произвольной длины, которые разделены между собой метками конца строки, а весь файл заканчивается меткой конца файла.

Важно: Если быть точными, то каждая строка текстового файла завершается специальной комбинацией, называемой «конец строки».
Комбинация «конец строки» состоит из двух символов: перевод каретки (ASCII-код #13) и перевод строки (#10). Завершается текстовый файл символом конец файла (#26).

Возможные расширения файлов:
*.txt, *.log,
*.htm, *.html

Метод работы с текстовым файлом в Паскале предусматривает лишь последовательный доступ к каждой строке файла. Это означает, что начинать всегда возможно только с первой строки, затем проходя по каждой строке, дойти постепенно до необходимой. Т.е. можно сказать, что чтение (или запись) из файла (в файл) ведутся байт за байтом от начала к концу.

Предусмотрены два режима работы: режим для записи в файл информации и для чтения ее из файла. Одновременная запись и чтение запрещены.

Открытие файла

Допустим, мы в программе описали переменную для работы с текстовым файлом:

var f: text;

Рассмотрим дальнейшую последовательность работы с ним, и рассмотрим процедуры, необходимые для работы с текстовым файлом в Паскале:

процедура открытия существующего файла для чтения при последовательном доступе:

Reset (f);

процедура открытия создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается:

Rewrite (f);

процедура добавления в конец:

Append (f);
  • При открытии курсор устанавливается в начало файла.

открытие файла

Чтение из файла

Read (f, список переменных);
ReadLn (f, список переменных);

Отличие ReadLn от Read в том, что при использовании readln после прочтения данных пропускаются все оставшиеся символы в данной строке, включая метку конца строки.

  • чтение осуществляется с той позиции, где в данный момент стоит курсор;
  • после чтения курсор сдвигается к первому непрочитанному символу.

чтение из файла

  • Чтение до конца файла: оператор EOF (end of file).
  • Чтение до конца строки: оператор EOL (end of line).
  • Чтение до конца строки

  • Для возврата в начало файла:
  • close ( f ); 
    reset ( f ); { начинаем с начала }

    Запись в текстовый файл

    Write (f, список переменных);
    WriteLn (f, список переменных);

    где f — файловая переменная, а второй параметр – выводимые из программы и вводимые в файл данные (в виде значений переменных или просто данные)

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

    Нахождение конца файла:

    Eof(f);

    Логическая функция, возвращающая True, если достигнут конец файла.

    Нахождение конца строки:

    eoln(f);

    Логическая функция, возвращающая True, если достигнут конец строки.

    Удалить файл в Паскале

    erase(переменная_файла);

    Переименование файла в Паскале

    rename(переменная_файла,'новое имя файла');

    Закрытие:

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

    Важно: Таким образом, работа с файлом осуществляется через три основных шага:

    1. Процедура assign.
    2. Процедура reset или rewrite.
    3. Процедура close.

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

    Пример: В файле text.txt записаны строки. Вывести первую и третью из них на экран.
    (предварительно создать text.txt с тремя строками)

    Решение:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    
    var
       filetext: text;
       a,b,c:string;
    begin
    assign(filetext,'c:\text.txt');
    reset(filetext);
    readln(filetext,a);
    readln(filetext,b);
    readln(filetext,c);
    close(filetext);
    writeln(a);
    writeln(c);
    end.

    Пример: Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

    * Из задачника М. Э. Абрамян (Text4)

    Показать решение:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    
    var
      F: Text;
      N,K:integer;
      Name:String;
      C:Char;
    begin
     Assign(F,'c:\text.txt');
     Reset(F);
     N:=0;
     K:=0;
     While not eof(F) do
      begin
       inc(N);
       While not eoln(f) do
        begin
         inc(K);
         Read(F,C);
        end;
       Readln(F);
      end;
     Close(F);
     Writeln(N,' ',K);
    end.

    Пример:
    Считать из файла input.txt числа (числа записаны в столбик). Затем записать их произведение в файл output.txt

    Решение:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    
    var p, x: integer;
        f: text; 
    begin
    assign(f, 'input.txt');
    reset(f);
    p := 1;
    while not eof(f) do begin
      readln(f, x); 
      p := p * x;
    end;
    close(f);   
    assign(f, 'output.txt');
    rewrite(f);
    writeln(f, 'Произведение чисел ', p);   
    close(f);
    end.

    pascal file text1. В цикле записать в файл числа от 1 до 10 (каждое — в своей строке), а затем их считать и отобразить на экране.
    Дополните код:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    
    var
       filetext: text;
       a:string;
       i:integer;
    begin
    assign(filetext,'c:\text.txt');
    rewrite(filetext);
    for i:=1 to 10 do
        ...
    reset(filetext);
    for i:=1 to 10 do begin
        ...
        ...
    end;
    close(filetext);
    end.

    pascal file text2. Даны целые положительные числа N и K. Создать текстовый файл и записать в него N строк, каждая из которых состоит из K символов «*» (звездочка).

    * Из задачника М. Э. Абрамян (Text1)

    pascal file text3. Дана строка S и текстовый файл. Добавить строку S в конец файла.

    * Из задачника М. Э. Абрамян (Text5)


    Пример: Дана строка S и текстовый файл. Добавить строку S в начало файла.

    * Возможно, в программе пригодятся новые процедуры удаления и переименования файла

    * Из задачника М. Э. Абрамян (Text7)

    Показать решение:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    
    var
      F_in,F_out: Text;
      Name,S: String;
     
    begin
     
     Write('S: ');
     Readln(S);
     Assign(F_in,'c:\text.txt');
     Reset(F_in);
     Assign(F_out,'c:\text1.txt');
     Rewrite(F_out);
     
     Writeln(F_out,S);
     While not eof(F_in) do
      begin
       Readln(F_in,S);
       Writeln(F_out,S);
      end;
     
     Close(F_in);
     Close(F_out);
     Erase(F_in);
     Rename(F_out,'c:\text.txt');
    end.

    pascal file text4. Дано целое число K и текстовый файл. В данном файле вставить пустую строку перед строкой с номером K. Если строки с таким номером нет, то оставить файл без изменений.
    Для решения задачи можно использовать дополнительный временный файл.

    * Из задачника М. Э. Абрамян (Text9)


    Пример: Дано целое число K и текстовый файл. Удалить из файла строку с номером K. Если строки с таким номером нет, то оставить файл без изменений.

    * Из задачника М. Э. Абрамян (Text15)

    Показать решение:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    
    var
      F_in,F_out: Text;
      Name,line: string;
      K,i:integer;
     
    begin
     Write('K: ');
     Readln(K);
     Assign(F_in,'c:\text.txt');
     Assign(F_out,'c:\text1.txt');
     Reset(F_in);
     Rewrite(F_out);
     
     i:=0;
     While not eof(F_in) do
      begin
       Readln(F_in,line);
       inc(i);
       if i<>K then Writeln(F_out,line);
      end;
     
     Close(F_in);
     Close(F_out);
     Erase(F_in);
     Rename(F_out,'c:\text.txt');
    end.

    Работа с данными из файла как с массивом

    Пример: В файле input.txt записаны числа (каждое — с новой строки), их количество не превышает 100. Необходимо отсортировать их по возрастанию и записать в файл output.txt.

    Трудности:

    • для сортировки необходим массив, для того чтобы одновременно работать со всеми числами;
    • неизвестно общее количество чисел.

    Алгоритм решения:

    • объявляем массив для 100 элементов;
    • открываем файл на чтение, просчитываем количество чисел, заполняя массив, сохраняем количество в N;
    • сортируем N элементов массива;
    • записываем результат в файл.


    Фрагмент решения:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    
    { Определяем глобальные переменные: }
    var A: array[1..100] of integer;
        f: text;
        N, i: integer;
    { Определяем функцию, считывающую числа из файла, и
    записывающую их в массив. Функция возвращает кол-во элементов массива: }
    function ReadFromFile: integer;
    var i: integer;
    begin
    assign(f, 'input.txt');
    ...;{ открытие файла в режиме чтения }
    i := 0;
    while (...) and (...) do begin
       i := i + 1;
       readln(...,...);   
    close(f);    
    ReadFromFile := i;
    end;
    { Основная программа }
    Begin
       N := ReadFromFile ;
    { сортировка N элементов по возрастанию }
    { ... }
    { запись отсортированного массива в файл: }
    assign(..., ...);
    ...;{ открытие файла в режиме записи }
    for i:=1 to N do 
      writeln(..., ...);     
    close(f);
    end.

    pascal file text5. В файле input.txt записаны числа (каждое — с новой строки), их количество не превышает 100. Необходимо найти максимальное и минимальное число и записать их в файл output.txt.

    pascal file text6. Дан текстовый файл. Удалить из него все пустые строки.

    * Из задачника М. Э. Абрамян (Text16)

    А теперь вернемся к олимпиадному заданию по Паскалю, частично решенному на одном из предыдущих заданиях:

    Пример: Шифр Цезаря заключается в том, что каждая буква исходной строки заменяется третьей после нее буквой в алфавите, который считается написанным по кругу (все символы текста латинские и прописные).
    Решить ту же задачу, в которой сдвиг будет не на 3 позиции, а на k, причем отрицательное значение является признаком сдвига влево, положительное — вправо.
    Формат входных данных (файл p.in): В первой строке записано число k, не превышающее по модулю 20. Во второй строке — текст, который необходимо зашифровать. Все символы текста латинские и прописные.
    Формат выходных данных (файл p.out): Выведите зашифрованный текст.
    Пример:

    p.in p.out
    3
    hello earth
    khoor hduwk

    * желательно создать файлы и записать данные в исходный файл «вручную»
    * программа решена для k=3, выполните программу для любых k (не превышающих 20 по модулю)


    Фрагменты кода:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    
    var a:char;
        i,n,k:byte;
        s,s1:string;
        f_in,f_out:text;
    begin
    Assign(F_in,'z:\p.in');
    Assign(F_out,'z:\p.out');
    Reset(F_in);
    Rewrite(F_out);
    s1:='';
    readln(f_in,k);
    readln(f_in,s);
    for i:=1 to length(s) do
        begin
         n:=ord(s[i]);
         if n<>32 then  {32 - пробел}
            n:=n+3;
         if ... then ...; 
         if ... then ...; 
         if ... then ...; 
         a:=chr(...);
         s1:=...;
         end;
         writeln(s1);
         writeln(f_out,s1);
         close(f_in);
         close(f_out)
    end.


    pascal file text7. Пять делителей.
    Имя входного файла: z3.in
    Имя выходного файла: z3.out

    Найти сумму всех чисел от 1 до n, имеющих ровно 5 делителей.
    Единица и само число входят в число его делителей.
    Входные данные
    В единственной строке входного файла z3.in записано одно натуральное число n(1 <= n <= 1012).
    Выходные данные
    В единственную строку выходного файла z3.out нужно вывести одно натуральное число — найденную сумму.

    Примеры:

    z3.in z3.out
    50 16
    200 97
    2015 722

    * Олимпиадное задание (11 класс, 2016)

    Поделитесь уроком с коллегами и друзьями:
    3 комментария

      D.U

      Зачем нужен c:char и name:string во втором примере?

        admin

        не вижу такого примера…

      LEX

      Моя программа:
      Program z1;
      var input,output: text;
      str,str1:string;
      i,j:integer;

      Begin
      assign(input,’input.txt’);
      assign (output,’output.txt’);
      reset(input);
      rewrite(output);

      while not eof(input)do Begin

      while not eoln(input)do Begin
      readln(input,str);
      i:=length(str);writeln(str);
      for j:= i downto 1 do str1:=str1+str[j];
      end;
      writeln(str1);
      writeln(output,str1);
      end;

      close(input);
      close(output);
      end.

      На входе:
      Mercury 50
      Venus 108
      Earth 150

      На выходе:
      05 yrucreM801 suneV051 htraE

      А надо:
      05 yrucreM
      801 suneV
      051 htraE

      Спасибо.

    Добавить комментарий

    Ваш e-mail не будет опубликован. Обязательные поля помечены *

    *
    *

    Вставить формулу как
    Блок
    Строка
    Дополнительные настройки
    Цвет формулы
    Цвет текста
    #333333
    Используйте LaTeX для набора формулы
    Предпросмотр
    \({}\)
    Формула не набрана
    Вставить