Задание :
Создать два стека по 5 элементов. Слить их в один стек. Результирующий стек вывести на экран.
Создание стека я сделал.
Подскажите как слить 2 стека в один ?
program STACK_Pr;
type
PStack = ^TStack;
TStack = record
chislo: integer;
next : PStack;
end;
var
x, Stack : PStack;
i : integer;
Procedure INPUT_STACK;
begin
Stack := nil;
for i := 1 to 5 do
begin
New(x);
write ('Введите ', i, ' число '); readln(x^.chislo);
x^.next := Stack; Stack:=x;
end;
end;
Procedure OUTPUT_STACK;
begin
if Stack = nil
then writeln('Стек пуст!')
else begin
x := Stack;
while x<> nil do
begin
write (x^.chislo,' ');
x := x^.next;
end;
end;
end;
begin
INPUT_STACK;
OUTPUT_STACK;
end.
Расскажите как объединить 2 стека в один ?
Procedure ConcatStack(const s1, s2: PStack);
var p: PStack;
begin
p := s1;
while p ^.next <> nil do p := p^.next;
p^.next := s2; { К хвосту первого стека прицепить второй }
end;
Volvo спасибо
Да, мне нужно просто соединить 2 стека. А что нужно поменять в программе ?
Перестать использовать глобальные переменные. Ведь параметры процедур/функций не просто так придумали, правда? Через них ты и должен с процедурами общаться (это - правильный стиль программирования. Иначе побочных эффектов не избежать...)
program STACK_Pr;
type
PStack = ^TStack;
TStack = record
chislo: integer;
next : PStack;
end;
Procedure INPUT_STACK(var stack: pstack);
var
x: pstack;
i: integer;
begin
Stack := nil;
for i := 1 to 5 do
begin
New(x);
write('item #', i:2, ' = '); readln(x^.chislo);
x^.next := Stack;
Stack:=x;
end;
end;
Procedure OUTPUT_STACK(stack: PStack);
var x: PStack;
begin
if Stack = nil
then writeln('<empty>')
else begin
x := Stack;
while x <> nil do begin
write(x^.chislo:4);
x := x^.next;
end;
writeln;
end;
end;
Procedure ConcatStack(const s1, s2: PStack);
var p: PStack;
begin
p := s1;
while p ^.next <> nil do
p := p^.next;
p^.next := s2;
end;
var s1, s2: pstack;
begin
INPUT_STACK(s1);
INPUT_STACK(s2);
output_stack(s1);
output_stack(s2);
concatStack(s1, s2);
OUTPUT_STACK(s1);
end.
Спасибо
Так:
Procedure ConcatStack(var s1, s2: PStack);
var p, X: PStack;
begin
p := s1;
while s2 <> nil do begin
New(x);
x^.chislo := s2^.chislo;
x^.next := p;
p := x;
s2 := s2^.next
end;
s1 := p;
end;