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
153
154
155
156
157
158
159
160
| uses crt;
const nmax=20;
line='--------------------------------------------';
shap='| Марка | Номер | Владелец |';
type avto=record
m: string[15];
n: string[10];
v: string[10];
end;
var f: file of avto; r: byte;
procedure Vvod (var ff: file of avto);
var i,nn: byte;
z: avto;
begin
clrscr;
rewrite(ff);
repeat
write('Количество автомобилей, не более ',nmax,', n='); readln(nn);
until nn in [1..nmax];
writeln('Внесите данные об автомобилях');
for i:=1 to nn do
begin
with z do
begin
write('Марка: ',i,' автомобиля '); readln(m);
write('Номер: '); readln(n);
write('Фамилия владельца: '); readln(v);
end;
write(ff,z);
end;
close(ff);
writeln('для продолжения нажмите Enter');
readln;
end;
procedure Vyvod (ff: file of avto);
var z: avto; nn: integer;
begin
clrscr;
reset(ff); nn:=0;
writeln('Данные об автомобилях');
writeln(line);
writeln(shap);
writeln(line);
while not eof(ff) do
begin
inc(nn);
read(ff,z);
with z do
begin
writeln('|',m:16,'|':2,n:10,'|':2,v:11,'|':2);
writeln(line);
end;
end;
writeln(line);
writeln('Всего автомобилей ',nn);
writeln;
writeln('для продолжения нажмите Enter');
readln;
end;
procedure Poisk (ff: file of avto);
var k: byte; mm: string;
z: avto;
begin
clrscr;
write('Марка для поиска: '); readln(mm);
k:=0;
reset(ff);
writeln('Данные об автомобилях марки "',mm,'"');
while not eof(ff) do
begin
read(ff,z);
with z do
if m=mm then
begin
inc(k);
if k=1 then
begin
writeln(line);
writeln(shap);
writeln(line);
end;
writeln('|',m:16,'|':2,n:10,'|':2,v:11,'|':2);
writeln(line);
end;
end;
writeln(line);
writeln('Всего автомобилей ',k);
writeln;
close(f);
writeln('для продолжения нажмите Enter');
readln;
end;
procedure Count (ff: file of avto);
var mar: array [1..nmax] of string;
kol: array [1..nmax] of integer;
i,j,k,d: byte;
z: avto;
begin
clrscr;
i:=0; k:=0;
reset(ff);
while not eof(ff) do
begin
read(ff,z);
with z do
begin
k:=0;
for j:=1 to i do
if mar[j]=m then inc(k);
if k=0 then
begin
inc(i);
mar[i]:=m;
end;
end;
end;
reset(ff);
d:=i;
while not eof(ff) do
begin
read(ff,z);
with z do
for i:=1 to d do
if mar[i]=m then inc(kol[i]);
end;
writeln(line);
writeln('Количество автомобилей каждой марки:');
for i:=1 to d do
writeln(mar[i],'-',kol[i]);
writeln;
close(f);
writeln('для продолжения нажмите Enter');
readln;
end;
begin
assign(f,'C:\avto.dta');
r:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных об автомобилях');
writeln('2-вывод данных об автомобилях');
writeln('3-вывод данных о владельцах автомобилей заданной марки');
writeln('4-количество автомобилей каждой марки');
readln(r);
case r of
1: Vvod (f);
2: Vyvod (f);
3: Poisk (f);
4: Count (f);
else r:=0;
end;
until r=0;
end. |
(
Сообщение было отмечено Sergey_x как решение
