Приложение В. Описание числовых файлов для лабораторных работ

Текстовые файлы DATF.TXT и DATI.TXT содержат соответственно вещественные и целые числа, набитые по 10 чисел в строке, DATF.BIN и DATI.BIN содержат вещественные и целые числа во внутримашинной кодировке. Файлы SIMBOL.TXT, RUS.TXT и LAT.TXT содержат символьную информацию. Имена, строение и метод доступа к данным файлов приведены ниже.

1. Файл DATI.TXT – последовательный символьный (текстовый) набор целочисленных данных, содержит 1000 чисел в виде 50 строк (записей) по 20 чисел в каждой строке. Значения чисел не превосходят 999 по абсолютной величине.

Пример открытия файла и чтения из него чисел с 310 по 315:

VAR

mas: array[1..5] of integer;

fin: text;

...

BEGIN

...

Assign(fin, 'D: \LAB1\DATI.TXT');

Reset(fin);

пропуск 300 чисел в виде 15 строк по 20 чисел:

for i: =1 to 15 readln(fin);

пропуск первых 9 чисел (301-309)

и чтение 6 чисел (310-315):

for i: =1 to 9 read(fin);

for i: =1 to 6 read(fin, mas[i]);

close(fin); закрытие файла

...

Примечание: Если рассматривать этот набор данных, как содержащий последовательность символов – цифр, пробелов и других служебных символов, то при чтении его в символьный массив рекомендуется пропускать концы строк. Например, при чтении из этого набора данных в одномерный символьный массив Txt следует использовать функцию Eoln:

for i: =... do

if not Eoln(fin) then Read(fin, Txt[i])

else Readln(fin);

Если желательно дополнительно также пропускать все пробелы (и символы табуляции), то лучше использовать функцию SeekEoln:

for i: =... do

if not SeekEoln(fin) then Read(fin, Txt[i])

else Readln(fin);

И, наконец, если при чтении желательно брать только цифры, то можно в программу добавить " шаг назад" при каждом вводе не цифрового значения:

for i: =... do

begin

Read(fin, Txt[i])

if (Txt[i] < '0') or (Txt[i] > '9') then i: =i-1;

end;

2. Файл DATF.TXT – последовательный символьный (текстовый, форматный) набор вещественных данных, содержит 500 чисел в виде 50 строк (записей) по 10 чисел в каждой строке. Значения чисел не превосходят 1000000 по абсолютной величине. Пример открытия файла и чтения из него чисел с 32 по 35:

VAR

mas: array[1..4] of real;

fin: text;

...

BEGIN

...

Assign(fin, 'D: \LAB1\DATF.TXT');

Reset(fin);

пропуск 31 числа:

for i: =1 to 31 read (fin);

чтение 4 чисел:

for i: =1 to 4 read(fin, mas[i]);

close(fin);

...

Примечание: Если читать из этого набора данных в символьный массив, рекомендуется пользоваться приемами, описанными для файла DATI.TXT.

3. Файл DATI.BIN – файл прямого доступа, представляет набор целочисленных данных, содержит 1000 двухбайтовых целых чисел. Должен описываться как файл из данных целого типа или массивов целого типа. Значения чисел не превосходят 999 по абсолютной величине. Пример открытия файла и чтения из него каждого 5-го числа:

VAR

dann, fict: integer;

fin: file of integer;

...

BEGIN

Assign(fin, 'D: \LAB1\DATI.BIN');

Reset(fin);

While not Eof do

begin

for i: =1 to 4 do read(fin, fict); { пропуск 4 чисел, чтением их в фиктивную переменную}

Read(fin, dann); { чтение числа }

...

end;

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

...

4. Файл DATF.BIN – бесформатный (двоичный, внутримашинный) файл прямого доступа, представляет набор вещественных данных, содержит 500 шестибайтовых вещественных чисел. Должен подключаться к файловой переменной вещественного типа. Значения чисел не превосходят 99 по абсолютной величине. Пример открытия файла и чтения из него всех чисел после 90-го по 10 штук:

TYPE

MAS10 = array[1..10] of real;

VAR

dann: MAS10;

fin: file of MAS10;

...

BEGIN

...

Assign(fin, 'D: \LAB1\DATI.BIN');

Reset(fin);

пропуск 90 чисел, чтением их в переменную dann длиной 10 чисел 9 раз

for i: =1 to 9 do

read(fin, dann);

While not Eof do {пока не кончится файл}

begin

Read(fin, dann); { чтение очередных 10 чисел: }

...

end;

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

...

5. Файл SIMBOL.TXT – символьный (текстовый) файл последовательного доступа, представляет набор символьных данных, содержит 410 элементов (без переводов строк). Этот набор данных можно связывать как с текстовой, так и с типизированной (типа char) файловой переменной.

Пример 1. Чтение из файла с 20-го по 50-ый символы в одномерный символьный массив:

VAR

mas: array[0..30] of char;

fin: text;

...

BEGIN

...

Assign(fin, 'D: \LAB1\SIMBOL.TXT');

Reset(fin);

пропуск 19 символов:

for i: =1 to 19 read (fin);

чтение 31 символа, с 20-го по 50-й:

for i: =0 to 30 read(fin, mas[i]);

close(fin); закрытие файла

...

Пример 2. Чтение из файла с каждого четвертого символа в одномерный символьный массив длиной 40 байт:

TYPE

SimMas = array[1..40] of char;

VAR

Sim: SimMas;

fin: file of char;

i, j: integer; {i- счетчик элементов массива, j - номер символа в файле }

...

BEGIN

...

Assign(fin, 'D: \LAB1\SIMBOL.TXT');

Reset(fin);

...

j: =3; { нумерация в файле начинается с 0! }

for i: =1 to 40 do

begin

Seek(fin, j) { ищем нужный номер символа в файле }

read(fin, Sim[i]); { читаем его в очередной элемент массива }

j: =j+4; { устанавливаем новый номер }

end;

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

...

6. Файл RUS.TXT – символьный (текстовый) файл последовательного доступа, представляет набор строк, длиной не более 80 символов кириллицы в строке. Файл может читаться только как текстовый.

Пример 1. Чтение из файла с 5-го по 9-ю строки в одномерный строчный массив:

TYPE Ss = string[80];

VAR mas: array[1..5] of Ss;

fin: text;

...

BEGIN

...

Assign(fin, 'D: \LAB1\RUS.TXT');

Reset(fin);

{ пропуск 4-х строк: }

for i: =1 to 4 do ReadLn (fin);

{ чтение 5-и строк: }

for i: =1 to 5 do ReadLn (fin, mas[i]);

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

...

7. Файл LATS.TXT – символьный (текстовый) файл. Может рассматриваться как файл последовательного доступа, если читать в строковые переменные, и как файл последовательного или прямого доступа, при чтении в символьные переменные. В последнем случае содержит он служебные символы возврата каретки и перевода строки. Представляет набор строк, длиной строго по 50 символов ASCII в каждой строке, не считая двух служебных символов.

Пример 1. Чтение из файла ASCII символов в символьный массив [2х55] элементов:

VAR

mas: array[1..2, 1..55] of char;

fin: text;

...

BEGIN

...

Assign(fin, 'D: \LAB1\LATS.TXT');

Reset(fin);

for i: =1 to 2 do

for j: =1 to 55 do

if not Eol(Fin) then

Read (fin, mas[i])

else {пропуск конца записи (служебных символов)}

begin

ReadLn(fin);

j: =j-1; { отмена смещения в массиве }

end;

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

...

Приложение Г.
Таблица ASCII-кодов (с альтернативной кодировкой)

Первая половина таблицы – стандартный набор кодов символов

Вторая половина таблицы – альтернативный набор кодов символов