стэк для символов, переделать Опции

[kr3v3tkus]

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

Сообщение отредактировано: kr3v3tkus - 25.10.2006 21:41

[kr3v3tkus]

фуф отмучил :D
мисс_граффити ууу пасиба терь после наглядного примера усё стало по полкам

Код

  q:=0;
  i:=1;
  ch:=Memo1.Lines[0][1];
  while ch<>';' do
    begin
    l.Push(ch);
    ch:=Memo1.Lines[i][1];
    inc(q);
    inc(i);
    end;

  q:=(i div 2);
  {howmessage(inttostr(q));}

  for i := q+1 to 2*q do
    begin
    l.Pop(ch);
    t.Push(ch);
    end;
  for i := q+1 to 2*q do
    begin
    t.Pop(ch);
    p.Push(ch);
    Memo2.Lines.Add(ch);
    end;
   while (not l.Empty) do
     begin
     l.Pop(ch);
     t.Push(ch);
     end;
   while (not t.Empty) do
     begin
     t.Pop(ch);
     p.Push(ch);
     Memo2.Lines.Add(ch);
     end;

ток пришлося 3 стэка делать, чтоб перевернуть усё это гадство как надо ;)))
ща буду ещё очередь отмучивать

Сообщение отредактировано: kr3v3tkus - 27.10.2006 0:43