Главная

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

вс, 02/13/2011 - 16:57 — tech
Темы учебника
Работа с файлами в Паскале. Общие сведения
Создание файла и запись данных в него
Циклы в Паскале
Чтение данных из файла
Программа на языке Паскаль:  

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) переводит файловый указатель на новую строку с тем, чтобы последующее чтение началось именно оттуда.

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