Здравствуйте...
Помогите решить задачку...


- Формируются два стека, нужно чтобы значения 2 стека присвоились 1, таким образом чтобы 1 стек получился таким - 1 эл 1 стека, 1 эл 2 стека, 2 эл 1 стека... то есть поочередным =)
Решить нужно не через массив
Через массив я решил... а вот через динамику ни могу
Заранее спасибо

Старая добрая рекурсия:

{ Собственно реализация стека }
type
  pstack = ^tstack;
  tstack = record
    info: integer;
    next: pstack;
  end;

procedure print(s: pstack);
begin
  while s <> nil do begin
    write(s^.info:6); s := s^.next;
  end;
  writeln
end;

procedure push(var s: pstack; x: integer);
var p: pstack;
begin
  new(p);
  p^.next := s; p^.info := x;
  s := p;
end;

function empty(s: pstack): boolean;
begin
  empty := (s = nil);
end;

function pop(var s: pstack): integer;
var T: pstack;
begin
  if empty(s) then pop := -1
  else begin
    pop := s^.info;
    T := s; s := s^.next;
    dispose(T);
  end
end;


const
  len = 3;
var
  ist, ist2: pstack;
  i: integer;

var
  flag: boolean;

{
  Вот та процедура, которая тебе нужна !!!
}
procedure convert(was_s1, was_s2: integer);
var w_1, w_2: integer;
begin
  if not flag then begin
    w_1 := pop(ist); w_2 := pop(ist2);
    if empty(ist2) then flag := true;
    convert(w_1, w_2);
  end;
  push(ist, was_s2);
  push(ist, was_s1);
end;

begin
  ist := nil; ist2 := nil;

    for i := 1 to len do
      push(ist, 12*i);
    print(ist);
    for i := 1 to len do
      push(ist2, 3*i);
    print(ist2);

    flag := false;
    convert(pop(ist), pop(ist2));
    print(ist);
end.

VolVO ПаСиба большое ))

чего-то у меня не получилось

Значит, ты избранный... У меня на 4-х разных машинах под четырьмя СОВЕРШЕННО разными компиляторами - получилось, у тебя - нет... А, собственно, что "не получилось"? Программу готовую запустить? Я же ПОЛНОСТЬЮ привел решение задачи, не стал предлагать тебе только процедуру, чтобы ты все остальное сам доделал...

малек руки кривоватые +))
а почему он на экран ничего не выводит?
просто пишет что программа откомилированна... )) а потом ни какой жизни

Не понял... Ты ее запускаешь, или только компилируешь? Ctrl+F9? Или Alt+F9?

А чтоб результаты посмотреть - жми Alt+F5 (или перед последним End поставь ReadLn, чтобы программа ждала перед завершением, пока ты на Enter не нажмешь)

у меня работает

Все работает +)))

Пасиба )

Теперь знаю хороших челов, которые могут релаьно помочь