Паскаль, стек

[Lizoveta]

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

uses crt;
type pstack=^stack;         {стек}
     stack=record
       nomber: integer;
       next: pstack;
     end;
var ptop: pstack;   {вершина стека}
    x,i,n: integer;

procedure push (chto: integer);        {добавление в конце стека}
var p: pstack;
begin
     new(p);
     p^.nomber:=chto;
     p^.next:=ptop;
     ptop:=p;
end;
                                       {удаление из вершины стека}
function pop : integer;
var p: pstack;
begin
     p:=ptop;
     pop:=p^.nomber;
     ptop:=p^.next;
     dispose(p);
end;

function stackempty: boolean;          {проверка на пустоту}
begin
     stackempty:=ptop=nil;
end;

begin                                            {тело программы}
clrscr;
     ptop:=nil;
     read(n);                                     {ввод переменной. Она обязательно 
                                                      четная и положительная}
     writeln;
     i:=1;
     while i<=n do                            {ввод N цифр - последовательность}
           begin
                read(x);
                push(x);
                i:=i+1;
           end;
     writeln;
     while not stackempty do              {вывод этой последовательности в 
                                                         обратном порядке}                                                                                                                                                                                                         
           begin
                write(pop);
           end;

end.

[ViktorR]

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

Вместе с тем, если уж стек - это неотвратимо, то предлагаю вводить в стек только половину последовательности.
При вводе второй части цифр, необходимо извлекать очередную цифру из стека и сравнивать с введенной. Если совпадение до последней введенной цифры и стек пуст, то все Ок, иначе ...



Как-то так, ...

[puporev]

Примерно так, пустоту не проверяем, это само собой

uses crt;
type pstack=^stack;         {стек}
     stack=record
       nomber: integer;
       next: pstack;
     end;
var ptop: pstack;   {вершина стека}
    x,i,n,k: integer;
    f:boolean;
procedure push (chto: integer);        {добавление в конце стека}
var p: pstack;
begin
     new(p);
     p^.nomber:=chto;
     p^.next:=ptop;
     ptop:=p;
end;
                                       {удаление из вершины стека}
function pop : integer;
var p: pstack;
begin
     p:=ptop;
     pop:=p^.nomber;
     ptop:=p^.next;
     dispose(p);
end;

begin
ptop:=nil;
read(n); {ввод размера, неважно четное или нет}
k:=n div 2;
i:=1;
while i<=k do  {ввод первой половины цифр в стек}
 begin
  read(x);
  push(x);
  i:=i+1;
 end;
f:=true; {пусть палиндром}
if odd(n) then read(x); {если нечетное, то вводим середину, она не влияет на палиндром}
 for i:=1 to k do {вводим вторую половину чисел}
  begin
   read(x);
   if pop<>x then f:=false; {если удаленное из стека не совпадает введенным
                             числом, не палиндром}
  end;
if f then write('Палиндром'){если все совпало}
else write('Не палиндром')
end.

[Lizoveta]

Спасибо большое!