С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 12.12.2012
Сообщений: 16

Связные списки. "Автобусный парк"

27.05.2013, 18:37. Показов 1613. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток!
Требуется помощь в написании следующей программы:

Составить программу, которая содержит динамическую информацию о наличии автобусов в автобусном парке.
Сведения о каждом автобусе содержат:
- номер автобуса;
- фамилию и инициалы водителя;
- номер маршрута;
Программа должна обеспечивать:
- начальное формирование данных в виде списка о всех автобусах;
- при выезде каждого автобуса из парка вводится номер автобуса, и программа удаляет
данные об этом автобусе из списка автобусов, находящихся в парке, и записывает эти
данные в список автобусов, находящихся на маршруте;
- при въезде каждого автобуса в парк вводится номер автобуса, и программа удаляет дан-
ные об этом автобусе из списка автобусов, находящихся на маршруте, и записывает эти
данные в список автобусов, находящихся в парке;
- по запросу выдаются сведения об автобусах, находящихся в парке, или об автобусах,
находящихся на маршруте.


Пока есть только начальное формирование данных в виде списка и процедура удаления элемента из списка.

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.
Добавлено через 21 час 49 минут
Актуально.
Нашел данную задачу на 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;
}
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.05.2013, 18:37
Ответы с готовыми решениями:

Связные списки в паскале
Помогите, пожалуйста! Никак не могу решить задачу. Мне нужно создать программу, которая создает список L, элементами которого являются...

Двунаправленные связные списки
Помогите написать программу на TurboPascal для двунаправленных связных списков, она должна выполнять операции: 1 Добавление элемента к...

Связные списки, переписать код с использованием Case
Препода не устраивает &quot;простыня&quot; вот в этом куске. требует переписать кейсами, но как-то не ахти получается, выручите пожалуйста ...

3
0 / 0 / 0
Регистрация: 12.12.2012
Сообщений: 16
28.05.2013, 19:22  [ТС]
Актуально. Помогите кто-нибудь..
0
0 / 0 / 0
Регистрация: 12.12.2012
Сообщений: 16
29.05.2013, 19:38  [ТС]
Актуально.
0
0 / 0 / 0
Регистрация: 05.01.2018
Сообщений: 1
18.01.2018, 16:56
Добрый вечер, есть программа, кто может помочь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.01.2018, 16:56
Помогаю со студенческими работами здесь

Базовые динамические структуры данных. Связные списки
Условие: Циклический односвязный список с барьером (фиктивным элементом). Порядок :FIFO (очередь) Задача: В соответствии с условием...

Связные списки: Добавить в программу ввод списка с клавиатуры
Дан код программы которая преобразует связный список... Нужно добавить в эту программу ввод списка с клавиатуры (в списке 5 чисел), и...

Автобусный парк
Информация о каждом автобусе в автобусном парке: номер автобуса фамилия и инициалы водителя номер маршрута признак того, где...

Автобусный парк
Составить программу, которая содержит динамическую информацию о наличии автобусов в автобусном парке. Сведения о каждом автобусе...

Автобусный парк.С++
Построить класс для работы со двусвязным списком. Элемент списка содержит информацию об автобусе: a) номер автобуса; b) фамилию и...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru