Запись табличных данных в файл и их чтение оттуда

Задача

Записать в файл данные в виде таблицы. Прочитать их оттуда и вывести на экран.

Решение

 

Программа на языке Паскаль: 

 

const
    K = 10;
    L = 20;
 
var
    f: text;
    n: byte;
    i, j: integer;
 
begin
    assign (f, 'c:\tabl.txt');
    rewrite (f);
 
    randomize;
 
    for i := 1 to K do begin
        for j :=1 to L do begin
            n := random (100);
            write (f, n:4)
        end;
        writeln (f)
    end;
 
    close (f);
{------------------------------------}
    reset (f);
 
    while not eof (f) do begin
        while not eoln (f) do begin
            read (f, n);
            write (n:4)
        end;
        readln (f);
        writeln;
    end;
 
    close (f)
end.

 

Примечания: 

Таблица представляет собой двумерный массив – матрицу. Многие данные хранятся именно в виде двумерной таблицы.

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

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

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

 

Тема

Файлы

Уровень

Комбинированные задачи