Методические указания по выполнению. Работа с файлами без типа

ЗАДАНИЕ

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

- чтение блока данных:

BLOCKREAD(<программный файл>, переменная, n[, m]);

- запись блока данных:

BLOCKWRITE(<программный файл>, переменная n[, m]);

где переменная - переменная любого типа

n - размер блока,

m – необязательный параметр, определяющий размер блока в записях.

При чтении блока данных формируется значение m.

Пример 1: Разработать программу для создания файла записей, если структура файла должна быть следующей:

- табельный номер

- должность

- зарплата

- месяц

Type tip_f=record

tn: byte;

dol: string[30];

zar: real;

mes: byte;

end;

Var z: tip_f;

Otv:char;

F:file of tip_z;

Begin

Assign(f, ‘a:\dat.dat’);

Rewrite(f);

Repeat

With z do

Begin

Write(‘введите табельный номер’);Readln(tn);

Write(‘должность’); readln(dol);

Write(‘зарплата’); readln(zar);

Write(‘месяц’); readln(mes);

End;

Write(f,z);

Writeln(‘продолжить ввод данных (д/н)’); readln(otv);

Until otv=’н’;

Close(f);

End.

Пример 2: Разработать программу для дополнения файла записями, если структура файла та же, что и в примере 1.

Type tip_f=record

tn: byte;

dol: string[30];

zar: real;

mes: byte;

end;

Var z: tip_f;

Otv:char;

F:file of tip_z;

Begin

Assign(f, ‘a:\dat.dat’);

Reset(f);

Seek(f, filesize(f));

Repeat

With z do

Begin

Write(‘введите табельный номер’);Readln(tn);

Write(‘должность’); readln(dol);

Write(‘зарплата’); readln(zar);

Write(‘месяц’); readln(mes);

End;

Write(f,z);

Writeln(‘продолжить ввод данных (д/н)’); readln(otv);

Until otv=’н’;

Close(f);

End.

Пример 3: Разработать программу для выборки информации из файла записями по табельному номеру, если структура файла та же, что и в примере 1.

Type tip_f=record

tn: byte;

dol: string[15];

zar: real;

mes: byte;

end;

Var z: tip_f;

Otv:char;

tn1:byte;

F:file of tip_z;

I, N:byte;

Begin

Assign(f, ‘a:\dat.dat’);

Reset(f);

Writeln(‘введите образец табельного номера’);

Readln(tn1);

Writeln(‘ВЕДОМОСТЬ’);

Writeln(‘начисления заработной платы по табельному номеру - ’, tn1);

Writeln(‘--------------------------------------------------’);

Writeln(‘I п/п I должность I месяц I зарплата I’);

Writeln(‘--------------------------------------------------’);

N:=0;

For i:=1 to filesize(f) do

Begin

Read(f,z);

If z.tn=tn1 then

Begin

N:=N+1;

With z do Writeln (‘I’, n:4, ’I’, dol:15, ‘I’, mes:5, ’I’,

zar:10:2, ‘I’);

End;

End;

Close(f);

End.

Составить алгоритм и программу создания файла записей.

Составить алгоритм и программу дополнения файла записями.

Составить алгоритм и программу поиска информации по критерию в файле записей.

Варианты задания приведены в п. 3 лабораторной работы № 4 на с. 38:

задания

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

4.2 Изучить теоретический лекционный материал и ознакомиться с описанием лабораторной работы.

4.3 Изучить файловый тип данныхTurbo Pascal.

4.4 Проанализировать задание для выполнения лабораторной работы.

4.5 Выполнить постановку задачи

4.6 Выполнить формализацию задачи.

4.7 Составить алгоритм решения задачи в графической форме.

4.8 Составить программу решения задачи на языке Turbo Pascal.

4.9 С помощью системы программирования Turbo Pascal создать текст программы и выполнить ее.

4.10 Проверить правильность составления программы с помощью контрольного примера.

4.11 Оформить отчет по лабораторной работе.

Дата добавления: 2014-12-17