Информатика_всем
.pdf
236 9.3 Пример программы реализующей файлы записей
procedure DeleteRecords(var F: TDB) |
|
|||
|
|
|
|
Шаг 1-2 удаление |
|
|
|
|
|
|
|
|
|
|
|
reset(F) |
|
компоненты в файле |
|
|
|
|
||
|
|
|
|
|
Ввод N, M |
I := filePos(F) - 1 |
|
|
||
Not EOF(F) |
Not EOF(F) |
|
|
||
R←F |
R←F |
|
|
||
PrintRecord(R) |
seek(F, filePos(F)-2) |
|
|
||
‘Удалить 1-Да’ |
F←R |
|
|
||
Ввод C |
seek(F, filePos(F)+1) |
|
|
||
C=1 |
seek(F, fileSize(F)-1) |
|
1 |
||
|
||
Алгоритм удаления |
|
|
компоненты в файле |
truncate(F) |
|
2 |
|
|
|
seek(F, I) |
|
close(F) |
|
|
Выход |
|
|
Рисунок 9.10 Удаление записи |
||
238 9.3 Пример программы реализующей файлы записей
function MenuZ(x,y: byte):byte
k:=1
|
i := 1 , NZ |
|
Вывод Z[ i ] |
|
Ввод C |
|
ord(C) |
72 |
80 |
k=1 |
k=NM |
k:=NZ |
k:=k - 1 |
|
k:=k + 1 |
|
k:=1 |
|
ord(C)=13 |
|
MenuZ := k |
|
Выход |
|
Рисунок 9.12 Функция меню запроса |
244 9.3 Пример программы реализующей файлы записей
MY=80;
X=27;
Y=10;
OUTCOD = '*';
type
TDate = Record d,m:byte; y:word; end;
Trec = Record f1:string[30]; f2:TDate; f3:string[30]; f4:TDate; f5:word; f6:string[70]; f7:string[30]; end;
TDB = file of Trec;
TZA = array[1..NZ]of string; TMA = array[1..NM]of string; TNF = array[1..NF]of string;
const
Z:TZA = ('Список новорожденных, отсортированный по датам рождения',
'Список новорожденных, зарегистрированных в определенный день',
'Данные о ребенке по данным о родителях', 'Выход');
M:TMA = ('Создание БД', 'Вывод БД',
'Добавление записей в БД', 'Удаление записей из БД', 'Корректировка сведений в БД', 'Запрос', 'Выход');
FLD:TNF = ('ФИО',
'Дата рождения', 'Место рождения', 'Дата регистрации',
'Номер записи в книге регистрации', 'Сведения о родителях', 'Свидетельство о рождении');
var F:TDB; R:Trec; C:Char;
D,i:Byte;