Разработать базу данных "Автобусные маршруты"
28.11.2012, 14:18. Показов 1142. Ответов 1
Задача: Разработать базу данных "Автобусные маршруты", содержащую: номер маршрута, конечный пункт 1, конечный пункт 2, протяженность маршрута, время рейса. Организовать вывод списка маршрутов по конечному пункту.
Дополнить эту программу заполнением и обработкой файлов.
Вот что у меня вышло:
m - номер
k - конечный пункт 1
o - конечный пункт 2
p - протяженность маршрута
w - время рейса
В программе должен быть организован поиск, просмотр информации, добавление (если есть такой маршрут, то выводить "Такой маршрут уже существует".
Без поиска все работает нормально, с поиском пошли проблемы. Помогите пожалуйста.
| 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
| program lab9_1;
uses crt;
type bus= record
m: string;
k: string;
o: string;
p: integer;
w: real;
end;
const FName=('bus.dat');
var a,b:bus;
n,i,c: integer;
x:string;
Key:Char;
FindRez:boolean;
f:file of bus;
{procedure Init;
var a: bus;
begin
with a do
begin
m:='nj';
k:='a';
o:='b';
p:=23;
w:=13;
end;
rewrite (f);
write(f,a);
close(f);
end;}
procedure Add;
var FindRez: boolean;
a,b:bus;
begin
FindRez:=False;
reset(f);
write('#bus: ');
readln(b.m);
write('Kone4_1: ');
readln(b.k);
write('Kone4_2: ');
readln(b.o);
write('Putb: ');
readln(b.p);
write('Bpem9: ');
readln(b.w);
repeat
read(f,a);
if (a.m=b.m) and (a.k=b.k) and (a.o=b.o) and (a.p=b.p) and (a.w=b.w) then FindRez:=true;
until (FindRez=True) or Eof(f);
if FindRez=False then write(f,b) else writeln ('YIIE ectb');
readln;
n:=n+1;
end;
procedure Search;
begin
rewrite(f);
write('Kone4: ');
readln(x);
c:=0;
for i:=1 to n do
begin
read(f,a);
if b.o= x then
writeln(b.m,' ', b.k,' ',b.o,' ',b.p,' ',b.w:6:2);
c:=1;
end;
begin
if c=0 then writeln ('poisk ne dal rez');
end;
end;
procedure Print;
var a:bus;
begin
reset(f);
repeat
read(f,a);
writeln(a.m,',',a.k,',',a.o,',',a.k,',',a.p,',',a.w);
until eof(f);
readln;
end;
begin
assign (f,FName);
{init; }
repeat
writeln;
writeln('a-add,e-exit,p-print,s-search');
Key:=ReadKey;
Case Key of
'A','a': Add;
'P','p': Print;
'S','s': Search;
end;
until (Key='E') or (Key='e');
close(f);
end. |
|
Ах да, еще, вот программа самой записи и поиска. А вот как раз из нее нужно сделать с заполнением и обработкой файлов.
| 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
| program lab9_1;
type bus= record
m: string;
k: string;
o: string;
p: integer;
w: real;
end;
var s: array[1..20] of bus;
n,i,fd: integer;
x:string;
f: text;
begin
assign(f,'out.txt');
rewrite(f);
write('Kol-Bo_bus: ');
readln(n);
for i:=1 to n do begin
write('#bus: ');
readln(s[i].m);
write('Kone4_1: ');
readln(s[i].k);
write('Kone4_2: ');
readln(s[i].o);
write('Putb: ');
readln(s[i].p);
write('Bpem9: ');
readln(s[i].w);
end;
begin
for i:=1 to n do
write(f,s[i].m,' ', s[i].k,' ',s[i].o,' ',s[i].p,' ',s[i].w);
close(f);
writeln;writeln('Poisk...');writeln;
write('Kone4: ');
readln(x);
fd:=0; for i:=1 to n do
if s[i].o= x then
begin writeln(s[i].m,' ', s[i].k,' ',s[i].o,' ',s[i].p,' ',s[i].w:6:2); fd:=1;end;
if fd=0 then writeln('Takou kone4hou octanobki net');
readln;
end;
end. |
|
0
|
(
