Всем доброго времени суток!
Требуется помощь в написании следующей программы:
Составить программу, которая содержит динамическую информацию о наличии автобусов в автобусном парке.
Сведения о каждом автобусе содержат:
- номер автобуса;
- фамилию и инициалы водителя;
- номер маршрута;
Программа должна обеспечивать:
- начальное формирование данных в виде списка о всех автобусах;
- при выезде каждого автобуса из парка вводится номер автобуса, и программа удаляет
данные об этом автобусе из списка автобусов, находящихся в парке, и записывает эти
данные в список автобусов, находящихся на маршруте;
- при въезде каждого автобуса в парк вводится номер автобуса, и программа удаляет дан-
ные об этом автобусе из списка автобусов, находящихся на маршруте, и записывает эти
данные в список автобусов, находящихся в парке;
- по запросу выдаются сведения об автобусах, находящихся в парке, или об автобусах,
находящихся на маршруте.
Пока есть только начальное формирование данных в виде списка и процедура удаления элемента из списка.
| 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
| type
PRec = ^TRec; { Указатель на запись, – здесь TRec ещё не объявлен! }
TRec = record { Тип записи для базы данных }
mNumber : integer; { Номер авто }
mFam : string[31]; { Фамилия владельца }
mMarsh : integer;
mNext : PRec; { Указатель на следующую запись }
end;
var List : PRec;
procedure AddToList(aNumber: integer; const aFam : string; aMarsh: integer);
var P : PRec;
begin
New(P); { Создаем динамическую переменную-запись }
{ Размещаем данные в полях записи }
P^.mNumber:= aNumber; P^.mFam:= aFam; P^.mMarsh:= aMarsh;
P^.mNext:= List; { Цепляем предыдущую запись к новой записи }
List:= P; { Теперь голова указывает на новую запись }
end;
procedure PrintList;
var P : PRec;
begin
P:= List;
while P<>NIL do begin
Writeln(P^.mNumber, '':3, P^.mFam, '':3, P^.mMarsh);
P:= P^.mNext;
end;
end;
function Find(aNumber: integer): PRec;
var p : PRec;
begin
p:= List; { Поиск начинаем с головы списка }
{ Продвигаемся по списку, пока не найдем нужный номер
или не "упремся" в конец списка }
while (p<>nil) and (P^.mNumber <> aNumber) do p:= p^.mNext;
Find:= p; { результат поиска }
end;
procedure Delete(aNumber:integer);
var P,Y:PRec;
begin
P:=list;
while (p<> nil) and (p^.mNumber<>aNumber) do
begin
y:=p;
p:=p^.mnext;
end;
y^.mnext:= p^.mnext;
dispose(p);
end;
var i, N : integer; P : PRec;
begin {--- Главная программа ---}
List:= nil;
AddToList(1, 'Иванов', 45);
AddToList(2, 'Петров', 34);
AddToList(3, 'Сидоров', 48);
AddToList(4, 'Скворцов', 32);
AddToList(5, 'Смирнов', 12);
AddToList(6, 'Федоров', 1);
AddToList(7, 'Немов', 14);
AddToList(8, 'Чернов', 4);
AddToList(9, 'Кузнецов', 7);
PrintList;
repeat { Цикл попыток поиска в списке }
Write('Укажите номер автобуса = '); Readln(N);
if N>0 then begin
P:= Find(N);
if P<>NIL
then Writeln(P^.mNumber, '':3, P^.mFam, '':3, P^.mMarsh)
else Writeln ('Не найдено!');
end;
until N=0
end. |
|
Актуально.
Нашел данную задачу на C++, может кто-нибудь сможет переписать на паскаль?
| C++ |
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
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
| #include "stdafx.h"
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <string.h>
#include <iostream>
#include <time.h>
using namespace std;
struct Rec {
int num;
int fio;
int mnum;
Rec* pNext;
};
typedef Rec* PtrRec;
int ShowMenu(); // Функция показывающая меню (возвращает код выбранного пункта меню)
void Create_List();
void Print_List();
void Otpravl();
void VPark();
int ShowMenu()
{
char ch = '\0';
// рисуем меню
puts("1 : Sozdat Spisok avtobusov");
puts("2 : Pokazat Spisok Avtobysov");
puts("3 : Poslat Avtobys v Put");
puts("4 : Poslat Avtobus na parkovku");
puts("5 : Exit");
ch = getch(); // считываем выбор пользователя
return atoi(&ch); // возвращаем код выбранного меню
}
int main()
{
PtrRec spPark;
PtrRec spMarsh;
while (1) // выполняем в бесконечном цикле
{
switch( ShowMenu() ) // показываем меню и проверяем что выбрал пользователь
{
case 1: Create_List(); break; // если 1, то создаём список автобусов
case 2: Print_List(); break; // если 2, то смотрим список
case 3: Otpravl(); break; // если 3, то отправляем автобусы на маршрут
case 4: VPark(); break; // если 4, то отправляем автобусы в парк
case 5: return 0; // если 5 то выходим из программы
default: // если другая кнопка, ничего не делаем
break;
}
}
}
void Create_List() // процедура создания списка автобусов
{
PtrRec pAux;
PtrRec pT;
char ch = '\0';
PtrRec pBegin;
pBegin = new Rec;
pBegin->pNext = 0;
cout << endl << "Vvedite nomer avtobysa\n"; cin >> pBegin->num;
cout << endl << "Vvedite Fio voditelya\n"; cin >> pBegin->fio;
cout << endl << "Vvedite nomer marshruta\n"; cin >> pBegin->mnum;
pAux = pBegin;
cout << endl << "Vvesti ewe avtobyc? (y-yes n-no)\n";
ch = getch();
while (ch == 'y')
{
pT = new Rec;
pAux->pNext = pT;
pT->pNext = 0;
cout << endl << "Vvedite nomer avtobysa\n"; cin >> pT->num;
cout << endl << "Vvedite Fio voditelya\n"; cin >> pT->fio;
cout << endl << "Vvedite nomer marshruta\n"; cin >> pT->mnum;
pAux = pT;
cout << endl << "Vvesti ewe avtobyc? (y-yes n-no)\n";
ch = getch();
}
delete pBegin;
}
void Print_List() // процедура печати списка автобусов
{
PtrRec pAux;
PtrRec pBegin;
pBegin = new Rec;
pBegin->pNext = 0;
pAux = pBegin;
cout << endl << "Nomer avtobyca | Fio vodiLbl | Nomer marshruta\n";
while (pAux != 0){
cout << endl << pAux->num << " " << pAux->fio << " " << pAux->mnum;
cout << endl << "----------------------------------\n";
pAux = pAux->pNext;
}
delete pBegin;
}
void Otpravl () // процедура отправки автобуса на маршрут
{
int nomer;
PtrRec pLmarsh;
pLmarsh = new Rec;
pLmarsh->pNext = 0;
PtrRec pLpark;
pLpark = new Rec;
pLpark->pNext = 0;
PtrRec pAux,pT1,pT2;
PtrRec pNext;
cout << endl << "Vvedite nomer avtobyca dlya otpravki na marshrut: "; cin >> nomer;
pAux = pLpark;
while ((pAux != 0) && (pAux->num != nomer))
{
pAux = pAux->pNext;
if (pAux == 0)
cout << endl << "V parke Het avtobyca s takim nomerom!";
else // удаляем автобус из парка и ставим его на маршрут
{
if (pAux = pLpark) pLpark = pAux->pNext;
else
{
pT1 = pLpark;
while (pT1->pNext != pAux)
{
pT1 = pT1->pNext;
pT1->pNext = pAux->pNext;
}
pAux->pNext = pLmarsh;
pLmarsh = pAux;
}
}
}
delete pLmarsh;
delete pLpark;
}
void VPark() // процедура отправки автобуса в парк
{
int nomer;
PtrRec pLmarsh;
pLmarsh = new Rec;
pLmarsh->pNext = 0;
PtrRec pLpark;
pLpark = new Rec;
pLpark->pNext = 0;
PtrRec pNext;
PtrRec pAux,pT1,pT2;
cout << endl << "Vvedite nomer avtobyca dlya otpravki v park"; cin >> nomer;
pAux = pLmarsh;
while ((pAux != 0) && (pAux->mnum != nomer))
{
pAux = pAux->pNext;
if (pAux = 0)
cout << endl << "V parke Het avtobyca s takim nomerom!";
else // удаляем автобус из парка и ставим его на маршрут
{
if (pAux = pLmarsh) pLmarsh = pAux->pNext;
else
{
pT1 = pLmarsh;
while (pT1->pNext != pAux)
{
pT1 = pT1->pNext;
pT1->pNext = pAux->pNext;
}
pAux->pNext = pLpark;
pLpark = pAux;
}
}
}
delete pLmarsh;
delete pLpark;
} |
|
(
