Список,стэк[Delphi]

[MariaD]

С помощью стека, организовать получение палиндрома, в котором вторая половина является зеркальным отражение первой без последнего символа. Первую половину вводить с клавиатуры
н р 1 2 3 4, получить 1 2 3 4 3 2 1. Как доработать чтобы работало?
Я создала стек и очередь. После заполнения стэка, его верхний элемент запоминается в р и удаляется, заполняется очередь, потом из очереди все перемещается в стэк и выводится в мемо2.Так надо было делать или все неправильно?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const a:array[1..5] of Integer=(1,2,3,4,5);
type ptr=^zap;
zap = record
chis:Integer;
next:ptr;
end;
var p,i,r:Integer; x:array[1..10]of Integer;
t,h1,h2,q:Ptr;
begin
  h1:=nil;
                            //äîáàâëåíèå
new(t);
 for i:=1 to 5 do begin
  // GetMem(t,SizeOf(zap));
   t^.chis:=a[i];
   t^.next:=nil;
   if h1=nil then h1:=t
   else begin t^.next:=h1; h1:=t; end;
   end;
  p:=t^.Chis;
  t:=h1;
  h1:=h1^.next;

  Memo2.Lines.Add(IntToStr(p));

  new(q);
  for i:=4 downto 1 do begin
   q^.chis:=a[i];
   q^.next:=nil;
   if h2=nil then h2:=q
   else begin q^.next:=h2; h2:=q; end;
 end;

 q:=h2;
 h2:=h2^.Next;
 r:=h1^.chis;
 t^.chis:=r;
 t^.next:=nil;
 h1:=t;
 for i:=1 to 10 do begin
 x[i]:=t^.Chis;
  t:=h1;
  h1:=h1^.next;
  Memo2.Lines.Add(IntToStr(x[i]));
   end;

end;

end.

[s-andriano]

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

С помощью стека, организовать получение палиндрома, в котором вторая половина является зеркальным отражение первой без последнего символа. Первую половину вводить с клавиатуры
н р 1 2 3 4, получить 1 2 3 4 3 2 1. Как доработать чтобы работало?
Я создала стек и очередь. После заполнения стэка, его верхний элемент запоминается в р и удаляется, заполняется очередь, потом из очереди все перемещается в стэк и выводится в мемо2.Так надо было делать или все неправильно?

Алгоритм неправильный.
Не нужно сначала заполнять стек, а только потом приступать к формированию выходной информации.
Вы синхронно заполняете стек и отправляете результат на выход.
Затем опустошаете стек, продолжая отправлять на выход то, что достали из стека.
Очередь не нужна.

Запихиваем 1, выводим 1,
Запихиваем 2, выводим 2,
Запихиваем 3, выводим 3,
Выводим 4,
Извлекаем 3, выводим 3,
Извлекаем 2, выводим 2,
Извлекаем 1, выводим 1.

[Stilet]

rocedure TForm1.Button1Click(Sender: TObject);
const a:array[1..5] of Integer=(1,2,3,4,5);
type ptr=^zap;
zap = record
chis:Integer;
next:ptr;
end;
var p,i,r:Integer; x:array[1..10]of Integer;
Head,Item,p:Ptr;
begin
new(head); Item:=Head;Head.Next:=nil;
 for i:=1 to 4 do begin
   Item^.chis:=a[i]; Memo2.Lines.Text:=Memo2.Lines.Text+ IntToStr(Item^.chis);
   new(p);
   p^.next:=Item; Item:=p;
  
 end;
 Memo2.Lines.Text:=Memo2.Lines.Text+ IntToStr(a[high(a)]);
 while Item<>nil do begin
   Memo2.Lines.Text:=Memo2.Lines.Text+ IntToStr(Item^.chis);
   Item:=item.Next;
 end;
end;

Это если не ошибаюс с утра )