Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2012, 01:37   #1
ksu04061992
Пользователь
 
Регистрация: 29.11.2011
Сообщений: 23
Печаль Работа со стеком

С помощью стека организовать получение палиндрома, в котором вторая половина является зеркальным отражением первой без последнего символа. Первую половину вводит самостоятельно.
Например:
123454321

Помогите пожалуйста,когда вывожу стек получается последовательность 1234543210 , но нуля быть не должно
в чем ошибка и как ее исправить?

Код:
 type Ptr=^rec;
Rec=record
key:integer;
next:Ptr;
end;
var
  Form1: TForm1;
  p,Top1:Ptr;

implementation

{$R *.dfm}
procedure Push(x:Integer; var Top:Ptr);
var p:Ptr;
begin
New(p);
p^.key:=x;
P^.next:=Top;
Top:=p;
end;

procedure Pop(var x:Integer; var Top:Ptr);
var
p:Ptr;
begin
x:=Top^.key;
p:=Top;
Top:=p^.next;
Dispose(p);
end;
procedure TForm1.Button1Click(Sender: TObject);

var
i,x:Integer;
s:string;
begin
s:='';
Top1:=nil;
for i:=1 to stringgrid1.colcount-1 do
begin
Push(strtoint(StringGrid1.Cells[i,0]),Top1);
s:=s+StringGrid1.Cells[i-1,0];
end;
Push(StrToInt(StringGrid1.Cells[i-1,0])+1,Top1);
s:=s+StringGrid1.Cells[i-1,0];
while Top1<>nil do
begin
Pop(x,Top1);
s:=s+inttostr(x-2);
end;

Memo1.Lines.Add(s);

end;

end.
ksu04061992 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со стеком 0479 Общие вопросы по Java, Java SE, Kotlin 2 27.02.2011 21:38
Работа со стеком KBAC Помощь студентам 0 26.12.2010 12:54
работа со стеком Sparky Паскаль, Turbo Pascal, PascalABC.NET 2 23.09.2010 11:08
работа со стеком xarvenx Общие вопросы C/C++ 1 25.06.2009 13:31
работа со стеком Katovski Помощь студентам 8 12.06.2008 11:30