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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
| Program lab03;
uses crt;
type tabl=record
e:string[30];
cst:integer;
ed:string[20];
cok:integer;
og:integer;
pg:integer;
end;
fail=file of tabl;
var b:boolean;
procedure CreateFile(var f:fail);
var t:tabl;
begin
{ᮧ¤**ЁҐ *®ў®Ј® д*©«*}
clrscr;
rewrite(f);
writeln('‚ўҐ¤ЁвҐ ¤***лҐ ў Ў*§г:');
repeat
with t do
begin
write('Ќ*Ё¬Ґ*®ў**ЁҐ ®б*®ў*®Ј® нЄ®*®¬ЁзҐбЄ®Ј® Ї®Є*§*⥫п ');readln(e);
write('‚ўҐ¤ЁвҐ Є®¤ бва®ЄЁ ');readln(cst);
write('‚ўҐ¤ЁвҐ Ґ¤Ё*Ёжг Ё§¬ҐаҐ*Ёп ');readln(ed);
write('‚ўҐ¤ЁвҐ Є®¤ ЋЉ…? ');readln(cok);
write('‚ўҐ¤ЁвҐ зЁб«® §* ®взҐв*л© ЇҐаЁ®¤ ');readln(og);
write('ўўҐ¤ЁвҐ зЁб«® §* Їа®и«л© Ј®¤ ');readln(pg);
end;
write(f,t);
until readkey=#27;
close(f);
readln;
end;
{˜*ЇЄ* в*Ў«Ёжл}
Procedure Tab;
begin
writeln('---------------------------------------------------------------------');
writeln('| ќЄ. Ї®Є*§*⥫м | Љ®¤ бва®ЄЁ | …¤. Ё§¬. | ЋЉ…? | Ћвз.Ј®¤ | Џа. Ј®¤ |');
writeln('---------------------------------------------------------------------');
end;
{®вЄалвЁҐ д*©«*}
procedure ResetFile(var f:fail;var b:boolean);
begin
b:=true;
{$I-}reset(f);{$I+}
if IOResult<>0 then
begin
b:=false;
writeln('д*©« Ґйс *Ґ ᮧ¤** ўҐа*ЁвҐбм Є Їг*Євг 1');
readln;
exit;
end;
end;
{Їа®б¬®ва д*©«*}
procedure ReadFile(var f:fail);
var t:tabl;
begin
clrscr;
ResetFile(f,b);
writeln('Џ®«*л© бЇЁб®Є: ':40);
writeln;
Tab;
while not eof(f) do
begin
read(f,t);
with t do
begin
gotoXY(1,whereY);write('|',e);
gotoXY(16,whereY);write('|',cst);
gotoXY(25,whereY);write('|',ed);
gotoXY(35,whereY);write('|',cok);
gotoXY(55,whereY);writeln('|',pg);
end;
writeln('---------------------------------------------------------------------');
readln;
close(f);
end;
{§*¬Ґ** §*ЇЁбЁ}
procedure Zamena(f:fail);
var n:integer;
t:tabl;
begin
clrscr;
ResetFile(f,b);
write('‚ўҐ¤ЁвҐ *®¬Ґа §*ЇЁбЁ Є®в®аго ўл е®вЁвҐ Ё§¬Ґ*Ёвм ');
readln(n)
if(n<1)or(filesize(f)<n) then
begin
writeln('‚ д*©«Ґ *Ґв в*Є®© §*ЇЁбЁ!');
readln;
exit;
end;
writeln('‚ўҐ¤ЁвҐ *®ўлҐ ᢥ¤Ґ*мп ');
with t do
begin
write('Ќ*Ё¬Ґ*®ў**ЁҐ ®б*®ў*®Ј® нЄ®*®¬ЁзҐбЄ®Ј® Ї®Є*§*⥫п ');readln(e);
write('‚ўҐ¤ЁвҐ Є®¤ бва®ЄЁ ');readln(cst);
write('‚ўҐ¤ЁвҐ Ґ¤Ё*Ёжг Ё§¬ҐаҐ*Ёп ');readln(ed);
write('‚ўҐ¤ЁвҐ Є®¤ ЋЉ…? ');readln(cok);
write('‚ўҐ¤ЁвҐ зЁб«® §* ®взҐв*л© ЇҐаЁ®¤ ');readln(og);
write('ўўҐ¤ЁвҐ зЁб«® §* Їа®и«л© Ј®¤ ');readln(pg);
end;
see;(f,n-1);
write(f,t);
close(f);
readln;
end;
{¤®Ў*ў«Ґ*ЁҐ}
procedure Add(var f:fail);
var t:tabl;
begin
clrscr;
ResetFile(f,b);
with t do
begin
write('Ќ*Ё¬Ґ*®ў**ЁҐ ®б*®ў*®Ј® нЄ®*®¬ЁзҐбЄ®Ј® Ї®Є*§*⥫п ');readln(e);
write('‚ўҐ¤ЁвҐ Є®¤ бва®ЄЁ ');readln(cst);
write('‚ўҐ¤ЁвҐ Ґ¤Ё*Ёжг Ё§¬ҐаҐ*Ёп ');readln(ed);
write('‚ўҐ¤ЁвҐ Є®¤ ЋЉ…? ');readln(cok);
write('‚ўҐ¤ЁвҐ зЁб«® §* ®взҐв*л© ЇҐаЁ®¤ ');readln(og);
write('ўўҐ¤ЁвҐ зЁб«® §* Їа®и«л© Ј®¤ ');readln(pg);
end;
seek(f,filesize(f));
write(f,t);
close(f);
readln;
end;
var f:fail;
w:char;
Begin
clrscr;
assign(f,'c:\bazik.txt');
b:=false;
repeat
clrscr;
writeln('‚лЎҐаЁвҐ ¦Ґ«*Ґ¬®Ґ ¤Ґ©бвўЁҐ ');
writeln('1.‘®§¤**ЁҐ д*©«*');
writeln('2.Џа®б¬®ва д*©«*');
writeln('3.?§¬Ґ*Ґ*ЁҐ д*©«*');
writeln('4.„®Ў*ў«Ґ*ЁҐ §*ЇЁбҐ©');
writeln('¤агЈ®=ўл室');
readln(w);
case w of
'1':CreateFile(f);
'2':Readfile(f);
'3':Zamena(f);
'4':Add(f);
else exit;
end;
intil not (w in ['1'..'4'];
end. |