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

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

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

Delphi

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

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.

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

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

Опции темы

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

Решение