0 / 0 / 0
Регистрация: 01.08.2011
Сообщений: 4
1

Разработать базу данных "Автобусные маршруты"

28.11.2012, 14:18. Показов 947. Ответов 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.
Добавлено через 10 минут
Ах да, еще, вот программа самой записи и поиска. А вот как раз из нее нужно сделать с заполнением и обработкой файлов.

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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2012, 14:18
Ответы с готовыми решениями:

Разработать базу данных "Адресное бюро города"
выкладываю свой решеный пример по записям , может кому-то пригодиться)))).Или можно использовать...

Разработать базу данных "Администратор железнодорожных касс"
Разработать базу данных "Администратор железнодорожных касс" (Номер поезда, пункты и время...

Разработать базу данных "Легковые автомобили". Вывести на экран данные обо всех автомобилях стоимостью менее 80 тысяч рублей
Всем привет. Помогите плииз с задачкой =( Разработать базу данных «Легковые автомобили». Название...

Создать базу данных "Одноклассники"
«Одноклассники» - фамилия - месяц и год рождения - номер телефона Составить типизированный...

1
0 / 0 / 0
Регистрация: 01.08.2011
Сообщений: 4
30.11.2012, 18:14  [ТС] 2
Ребят, не ужели не кто не знает как
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2012, 18:14
Помогаю со студенческими работами здесь

Создать базу данных "Товар"
Люди помогите сделать, хотя бы подскажите как.

Разработать модуль, который заменяет в тексте букву "а" на символ "*".
Разработать модуль, который заменяет в тексте букву "а" на символ "*".

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". 2) Вывести...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который".


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru