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

@FunnyNeo · Регистрация: 25.11.2016

Студворк — интернет-сервис помощи студентам

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  type
    TItem = Integer;
    TNodePointer = ^TNode;
    TNode = record
      Data: TItem;
      Next: TNodePointer;
    end;
  var
    Head: TNodePointer;
implementation
 
{$R *.dfm}
 
// Создание узла стека
procedure make(var Head: TNodePointer; x: TItem);
begin
  New(Head);
  Head^.Data:=x;
  Head^.Next:=nil;
end;
 
// Добавление узла в стек
procedure push(var Head: TNodePointer; x: TItem);
var Buff: TNodePointer;
begin
  make(Buff,x);
  Buff^.Next:=Head;
  Head:=Buff;
end;
 
// Удаление узла из вершины стека
procedure pop(var Head: TNodePointer; var x: TItem);
var Buff: TNodePointer;
begin
  Buff:=Head;
  x:=Buff^.Data;
  Head:=Head^.Next;
  Buff^.Next:=nil;
  Dispose(Buff);
end;
 
// Извлечение информации из верхнего узла
function peek(Head: TNodePointer): TItem;
begin
  Result:=Head^.Data;
end;
 
// Удаление узла из конца стека
procedure deleteInTail(Head: TNodePointer; var x: TItem);
var Buff: TNodePointer;
begin
  while Head^.Next<>nil do
    begin
      Buff:=Head;
      Head:=Head^.Next
    end;
  x:=Head^.Data;
  Buff^.Next:=nil;
  Dispose(Head);
end;
 
// Проверка списка на пустоту
function IsEmpty(Head: TNodePointer): boolean;
begin
  Result:=Head=nil;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var x: TItem;
    i: Cardinal;
begin
  if(Edit1.Text='') then
    begin
      ShowMessage('Вы ничего не ввели!');
      exit;
    end;
  if isEmpty(Head) then
    begin
      x:=StrToInt(Edit1.Text);
      push(Head,x);
      StringGrid1.Cells[0,0]:=IntToStr(peek(Head));
    end
  else
    begin
      StringGrid1.RowCount:=StringGrid1.RowCount+1;
      x:=StrToInt(Edit1.Text);
      push(Head,x);
      for i:=StringGrid1.RowCount-1 downto 1 do
        begin
          StringGrid1.Cells[0,i]:=StringGrid1.Cells[0,i-1];
        end;
      StringGrid1.Cells[0,0]:=IntToStr(peek(Head));
    end;
  Edit1.Text:='';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var x: TItem;
    i: Cardinal;
begin
  if IsEmpty(Head) then
    begin
      ShowMessage('Стек пуст!');
      exit;
    end;
  if Head^.Next=nil then
    begin
      x:=Head.Data;
      Head:=nil;
      StringGrid1.Cells[0,0]:='';
      exit;
    end;
  pop(Head,x);
  for i:=0 to StringGrid1.RowCount-2 do
    begin
      StringGrid1.Cells[0,i]:=StringGrid1.Cells[0,i+1]
    end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var x: TItem;
begin
  if IsEmpty(Head) then
    begin
      ShowMessage('Стек пуст!');
      exit;
    end;
  if Head^.Next=nil then
    begin
      x:=Head.Data;
      Head:=nil;
      StringGrid1.Cells[0,0]:='';
      exit;
    end;
  deleteInTail(Head,x);
  StringGrid1.Cells[0,StringGrid1.RowCount-1]:='';
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,'-']) then
    begin
      key:=#0;
    end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
    x: TItem;
    i: Cardinal;
begin
  i:=0;
  Buff:=Head;
  if(Buff^.Next=nil) then
    begin
      ShowMessage('В стеке один элемент!');
      exit;
    end;
  while Buff <> nil do
    begin
      if(Buff^.Data=Buff^.Next^.Data) then
        begin
          while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
            begin
              pop(Buff^.Next,x);
              for i:=0 to StringGrid1.RowCount-2 do
                begin
                  StringGrid1.Cells[0,i]:=StringGrid1.Cells[0,i+1]
                end;
              StringGrid1.RowCount:=StringGrid1.RowCount-1;
            end;
         end;
      Buff:=Buff^.Next;
    end;
  
end;
 
end.

В общем как-то так, не работает если в стеке много разных символов, но если просто одинаковая группа, то все отлично работает. И еще одна просьба, сделайте пожалуйста для символов, а то у меня шаблонно цифры)

Добавлено через 8 минут
4 баттон это и есть само преобразование если что)

@FunnyNeo · 13.03.2017, 22:45 **[ТС]**

Вот проект, так будет легче помочь)

@Matan! · 14.03.2017, 10:34

Сообщение от FunnyNeo

В общем как-то так, не работает если в стеке много разных символов, но если просто одинаковая группа, то все отлично работает.

У тебя ошибка вылетает, когда ты пытаешься приравнять несуществующий Buff^.Next^.Data к последнему Buff^.Data.
Тебе надо делать проверку на последний элемент.

Добавлено через 7 минут
Смотри:

Delphi
1
2
3
if(Buff^.Data=Buff^.Next^.Data) then
        begin
          while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do

Да, ты проверку сделал, Buff^.Next = nil, но перед этим программа сравнивает Buff^.Data=Buff^.Next^.Data, а последний уже ничему не равен.
Ты остаешься в цикле, ибо поток Buff у тебя не nil.
Предлагаю включить в цикл

Delphi
1
while Buff <> nil do

условие

Delphi
1
if(Buff^.Next=nil) then break;

Добавлено через 1 минуту
Ещё одно маленькое замечание:

Delphi
1
i: Cardinal;

замени на

Delphi
1
i: Integer;

Добавлено через 10 минут
Чтобы можно было вводить текст подкорректируй Edit1KeyPress и Button1Click.
Ты в Button1Click писал

Delphi
1
x:=StrToInt(Edit1.Text);

.
Преобразовывай непосредственно в процедуре Button4Click (Преобразовать стек).
Кроме того, убери Edit1KeyPress, либо разреши в ней ввод букв.

@FunnyNeo · 14.03.2017, 22:27 **[ТС]**

Matan!, Спасибо, это помогло, но есть один недочет в общем если ввести 1 2 3 5 7 6 6 6 6 8 то остается 1 2 3 5 7 6 6 не знаю с чем это связанно. И это не только в этой комбинации а вообще в похожих. Или если 2 группы одинаковые ввести, то тоже бред получается.

@FunnyNeo · 09.04.2017, 11:52 **[ТС]**

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
procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
    x: TItem;
    i: Cardinal;
begin
  i:=0;
  Buff:=Head;
  if(Buff^.Next=nil) then
    begin
      ShowMessage('В стеке один элемент!');
      exit;
    end;
  while Buff <> nil do
    begin
      if(Buff^.Data=Buff^.Next^.Data) then
        begin
          while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
            begin
              pop(Buff^.Next,x);
              for i:=0 to StringGrid1.RowCount-2 do
                begin
                  StringGrid1.Cells[0,i]:=StringGrid1.Cells[0,i+1]
                end;
              StringGrid1.RowCount:=StringGrid1.RowCount-1;
            end;
         end;
      Buff:=Buff^.Next;
    end;
  
end;
 
end.

Помогите с данной задачей, в общем если ввести к примеру 1 2 3 4 5 5 5 5 , то останется 1 2 3 4 5, а если ввести 1 2 3 4 5 5 5 5 6, то остается 1 2 3 4 5 5, не знаю с чем связано, к коду прикладываю проект. Скорее всего ошибка с выводом на StringGrid

@Matan! · 10.04.2017, 11:41

Ну, во-первых, для Button4Click... В блоке while Buff <> nil do у Вас Buff^.Next обращается в nil, и происходит ошибка, ибо Вы пытаетесь получить значение Data у пустого Buff^.Next.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@FunnyNeo 0 / 0 / 0 Регистрация: 25.11.2016 Сообщений: 31
	14.03.2017, 22:27 [ТС]
	Matan!, Спасибо, это помогло, но есть один недочет в общем если ввести 1 2 3 5 7 6 6 6 6 8 то остается 1 2 3 5 7 6 6 не знаю с чем это связанно. И это не только в этой комбинации а вообще в похожих. Или если 2 группы одинаковые ввести, то тоже бред получается. 0

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	10.04.2017, 11:41
	Ну, во-первых, для Button4Click... В блоке while Buff <> nil do у Вас Buff^.Next обращается в nil, и происходит ошибка, ибо Вы пытаетесь получить значение Data у пустого Buff^.Next. 0

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

Решение