Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 23.12.2012
Сообщений: 5
1

Построение динамических структур данных

26.12.2012, 20:15. Показов 932. Ответов 1
Метки нет (Все метки)

Использование структурных ячеек, которые собственноручно создаются пользователем с помощью средств языка Паскаль.
Средствами Паскаля создать структуру линейного списка и процедуру вставки нового элемента перед некоторым предварительно указанным элементом.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2012, 20:15
Ответы с готовыми решениями:

Разработка алгоритмов и программ с использованием динамических структур данных
Перевернуть список L, то есть изменить ссылки в этом списке так, чтобы его элементы оказались...

Построение динамических графиков в режиме реального времени
Здравствуйте,как можно построить график(тренд) такого разностного уравнения(уравнение прилагается)...

Реализовать операции работы со стеком, построенным на основе динамических структур. Распечатать символы введен
Реализовать операции работы со стеком, построенным на основе динамических структур. Распечатать...

Превращение простых динамических структур данных
Пожалуйста, помогите решить задачу!! Под именами х и y заданы списки Лиспы (a b c d e) и (1 2 3 4...

1
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
27.12.2012, 00:44 2
Лучший ответ Сообщение было отмечено Tyrbostart как решение

Решение

Delphi
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
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
type
  //Тип основных данных.
  TData = Integer;
  //Указатель на элемент списка.
  TPElem = ^TElem;
  //Элемент списка.
  TElem = record
    Data : TData; //Основные данные.
    PNext : TPElem; //Указатель на следующий элемент.
  end;
  //Список.
  TDList = record
    Cnt : Integer; //Количество элементов в списке.
    PFirst, PLast : TPElem; //Указатели на первый и на последний элементы списка.
  end;
 
//Процедура инициализации списка. Внимание! Эту процедуру можно выполнять
//только в отношении пустого списка. Иначе, произойдёт утечка памяти.
procedure Init(var aList : TDList);
begin
  aList.Cnt := 0;
  aList.PFirst := nil;
  aList.PLast := nil;
end;
 
//Добавление элемента в конец списка.
procedure Add(var aList : TDList; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := nil;
  if aList.PFirst = nil then
    aList.PFirst := PElem
  else
    aList.PLast^.PNext := PElem;
  aList.PLast := PElem;
  Inc(aList.Cnt);
end;
 
//Освобождение памяти, занятой под список.
procedure Free(var aList : TDList);
var
  PElem, PDel : TPElem;
begin
  PElem := aList.PFirst;
  while PElem <> nil do begin
    PDel := PElem;
    PElem := PElem^.PNext;
    Dispose(PDel);
  end;
  Init(aList);
end;
 
//Распечатка всего списка.
procedure Print(var aList : TDList);
var
  PElem : TPElem;
  i : Integer;
begin
  PElem := aList.PFirst;
  i := 0;
  while PElem <> nil do begin
    Inc(i);
    if i > 1 then Write(', ');
    Write(PElem^.Data);
    PElem := PElem^.PNext;
  end;
  Writeln;
end;
 
//Добавление элемента перед первым элементом с заданным значением.
//Функция возвращает позицию вставленного элемента в списке.
//Если элемент не вставлен в список, то функция возвращает значение равное нулю.
function InsertBefore(var aList : TDList; const aData, aDataIns : TData) : Integer;
var
  PElem, PPrev, PIns : TPElem;
  Cnt : Integer;
  F : Boolean;
begin
  InsertBefore := 0;
  if aList.PFirst = nil then Exit;
 
  //Поиск первого элемента с заданным значением.
  PPrev := nil; //Указатель на предыдущий элемент.
  PElem := aList.PFirst; //Указатель на текущий элемент.
  F := False; //True - элемент найден. Иначе - False.
  Cnt := 0; //Позиция текущего элемента в списке.
  while not F and (PElem <> nil) do begin
    Inc(Cnt);
    //Если текущий элемент имеет искомое значение. Значит искомый элемент найден.
    if PElem^.Data = aData then
      F := True
    //Если значение текущего элемента отличается от искомого, то продолжаем
    //поиск и переходим к следующему элементу.
    else begin
      PPrev := PElem;
      PElem := PElem^.PNext;
    end;
  end;
 
  //Если элемент с заданным значением найден, то выполняем вставку.
  if F then begin
    //Создаём новый элемент.
    New(PIns);
    PIns^.Data := aDataIns;
    PIns^.PNext := nil;
    //Вставляем новый элемент.
    PIns^.PNext := PElem;
    //Если найденный элемент был первым в списке, то теперь первым является PIns.
    if PElem = aList.PFirst then
      aList.PFirst := PIns
    else
      PPrev^.PNext := PIns;
  end;
 
  InsertBefore := Cnt;
end;
 
//Диалог для добавления элементов в конец списка.
procedure WorkAdd(var aList : TDList);
var
  S : String;
  Data : TData;
  Code : Integer;
begin
  Writeln('Добавление элементов в список.');
  Writeln('Ввод каждого значения завершайте нажатием Enter.');
  Writeln('Чтобы прекратить ввод оставьте пустую строку и нажмите Enter.');
  repeat
    Write('Элемент №', aList.Cnt + 1, ': ');
    Readln(S);
    if S = '' then begin
      Writeln('Отмена.');
      Code := 0;
    end else begin
      Val(S, Data, Code);
      if Code = 0 then begin
        Add(aList, Data);
        Writeln('Элемент добавлен.');
        Code := 1;
      end else
        Writeln('Неверный ввод. Повторите.');
    end;
  until Code = 0;
  Writeln('Ввод элементов списка завершён.');
end;
 
var
  L : TDList;
  Data, DataIns : TData;
  Cmd, Code, Cnt : Integer;
  S : String;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  //Начальная инициализация списка.
  Init(L);
 
  repeat
    //Меню
    Writeln('Выберите действие:');
    Writeln('1: Добавление элементов в список.');
    Writeln('2: Распечатка списка.');
    Writeln('3: Вставка нового элемента до первого элемента с заданным значением.');
    Writeln('4: Удаление списка.');
    Writeln('5: Выход.');
    Write('Введите команду: ');
    Readln(Cmd);
    case Cmd of
      1: WorkAdd(L);
      2:
        if L.PFirst = nil then
          Writeln('Спиосок пуст.')
        else begin
          Writeln('Содержимое списка:');
          Print(L);
        end;
      3:
      begin
        Writeln('Вставка нового элемента до первого элемента с заданным значением.');
        repeat
          Write('Задайте значение искомого элемента: ');
          Readln(S);
          Val(S, Data, Code);
          if Code <> 0 then
            Writeln('Неверный ввод. Вы должны ввести целое число. Повторите.');
        until Code = 0;
        repeat
          Write('Задайте значение добавляемого элемента: ');
          Readln(S);
          Val(S, DataIns, Code);
          if Code <> 0 then
            Writeln('Неверный ввод. Вы должны ввести целое число. Повторите.');
        until Code = 0;
        Write('Продолжить? д/н, y/n: ');
        Readln(S);
        if (S <> '') and (S[1] in ['Д', 'д', 'Y', 'y']) then begin
          Cnt := InsertBefore(L, Data, DataIns);
          if Cnt > 0 then
            Writeln('Новый элемент вставлен в список. Его позиция в списке: ', Cnt)
          else
            Writeln('Искомый элемент не найден. Новый элемент в список не вставлен.');
        end else
          Writeln('Операция отменена.');
      end;
      4, 5:
      begin
        Free(L);
        Writeln('Список удалён из памяти (очищен).');
      end;
      else
        Writeln('Незарегистрированная команда. Повторите ввод.');
    end;
  until Cmd = 5;
 
  Writeln('Работа программы завершена. Для выхода нажмите Enter.');
  Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2012, 00:44

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Преобразование простых динамических структур данных
Помогите пожалуйста с заданием :( Под именами х и у заданы списки Лиспа (а (b с)) и (d е),...

Разработка динамических структур данных и функций их обработки
Длинное» целое число представляется как однонаправленный линейный список, где каждая цифра –...

Описать одну из сложных динамических структур данных
Нужно написать программку... Тема: Линейный односвязный список. Добавление узла после заданного. ...

Формирование, сортировка и обработка динамических структур данных.
Требуется решить задачу формирования, сортировки и обработки динамических структур данных. ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.