Разработать программу создания и корректировки файла, содержащего сведения о книгах, находящихся в читальном зале библиотеки. Каждый элемент этого файла должен содержать следующую информацию : фамилию и инициалы автора, название книги, наименования издательства, год издания, количество страниц.
Имеется задачка на PASCAL ABC как её реализовать в DELPHI
Хотя бы основные моменты!
Код PASCAL ABC
| Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
| uses crt;
const l='-------------------------------------------------------------------------------';
s='| Ф.И.О. Автора |Название Книги|издательство|Год издания|Кол-во страниц|';
type
tovar = record
nam: string[20];
nambook:string[20];
nameizd:string[20];
god:integer;
str:integer;
end;
fi= file of tovar;
var f:fi;
pm: byte;
name: string;
procedure menu;
begin
writeln('1-запись базы данных ');
writeln('2-просмотр базы данных ');
writeln('3-добавление в базу данных ');
writeln('4-коррекция базы данных ');
writeln('0-выход');
writeln('Введите пункт меню ');
end;
procedure input(var dd: tovar);
begin
with dd do
begin
write('Ф.И.О Автора: '); readln(nam);
write('Название книги: '); readln(nambook);
write('Наименование издательства: '); readln(nameizd);
write('Год издания: '); readln(god);
write('Колличество страниц: '); readln(str);
end;
end;
procedure vvod (var ff: fi);
var ch: char; d:tovar;
begin
rewrite(ff);
repeat
input(d);
write(ff,d);
write('Еще вводить y/n? ');
readln(ch);
writeln;
until ch='n';
end;
procedure lookfl(ff: fi);
var d:tovar;
begin
clrscr;
reset(ff);
writeln(l);
writeln(s);
writeln(l);
while not (eof (ff)) do
begin
read(ff,d);
with d do
writeln('|',nam:21,'|':2,nambook:13,'|':2,nameizd:11,'|':2,god:10,'|':2,str:13,'|':2);
end;
writeln(l);
readln;
end;
procedure dobav (var ff: fi);
var ch: char; d:tovar;
begin
reset(ff);
seek(ff,filesize(ff));
repeat
input(d);
write(ff,d);
writeln('Еще вводить y/n? ');
readln(ch);
write;
until ch='n';
end;
procedure correct (var ff: fi);
var nkz:byte; ch: char; d:tovar;
begin
lookfl(ff);
reset(ff);
repeat
writeln('Укажите номер корректируемой записи ');
readln(nkz);
seek(ff,nkz-1);
input(d);
write(ff,d);
writeln('Еще корректировать y/n? ');
readln(ch);
writeln;
until ch='n';
end;
begin
cls;
writeln('Введите имя файла ');
readln(name);
assign(f,name+'.dat');
repeat
clrscr;
menu;
readln(pm);
case pm of
1:vvod (f);
2:lookfl (f);
3:dobav (f);
4:correct (f);
else pm:=0;
end;
until pm=0;
close(f);
end. |
|
(
