Решаем задачи Абрамян на Паскале. Pointer9

Pointer9. Даны указатели $$P_1$$ и $$P_2$$ на вершины двух непустых стеков. Перемещать элементы из первого стека во второй, пока значение вершины первого стека не станет четным (перемещенные элементы первого стека будут располагаться во втором стеке в порядке, обратном исходному). Если в первом стеке нет элементов с четными значениями, то переместить из первого стека во второй все элементы. Вывести адреса новых вершин первого и второго стека (если первый стек окажется пустым, то вывести для него константу $$nil$$). Операции выделения и освобождения памяти не использовать.

Решение:

program Pointer9;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

procedure CreateStack(var P1:PNode);

var

p:PNode;

i,N:integer;

begin

Write('N:');

Readln(N);

p1:=nil;

for i:=1 to N do

begin

new(p);

Write('num: ');

Readln(P^.Data);

p^.Next := P1;

P1:=p;

end;

procedure cat2(var P1:PNode; P2:PNode);

var

Pt1:PNode;

begin

Pt1:=P1;

while (Pt1.Next<>nil) do Pt1:=Pt1.Next;

Pt1.Next:=P2;

while (Pt1.Next<>nil) do

begin

pt1:= pt1.Next;

if (Pt1.Next.Data mod 2)=0 then

pt1.Next:= nil;

end;

var

P1,P2:PNode;

begin

CreateStack(P1);

CreateStack(P2);

Cat2(P2,P1);

end.

Другие задачи из раздела Pointer можно посмотреть здесь.

Комментарии 1

Решение для задачника PT4

program Dynamic09; //pabc.net

uses PT4;

begin

Task('Dynamic9');

var P1, P2: PNode;

Read(P1, P2);

while (P1 <> nil) and (P1^.data mod 2 <> 0) do

begin

var P := P1;

P1 := P1^.next;

P^.next := P2;

P2 := P;

end;

Write(P1, P2)

end.

Решение с предварительным заполнением стеков P1 и P2:

program Dynamic09; //pabc.net

type

PNode = ^TNode;

TNode = record

data: integer;

next: PNode;

end;

/// Создает элемент типа TNode и возвращает его адрес

function NewNode(d: integer; next: PNode): PNode;

begin

New(result);

result^.data := d;

result^.next := next;

end;

begin

var P1: PNode := nil;

var P2: PNode := nil;

//создаем первый стек

for var i := 1 to Random(5) + 1 do

P1 := NewNode(Random(100), P1);

//создаем второй стек

for var i := 1 to Random(5) + 1 do

P2 := NewNode(2 * i - 1, P2);

// решение

while (P1 <> nil) and (P1^.data mod 2 <> 0) do

begin

var P := P1;

P1 := P1^.next;

P^.next := P2;

P2 := P;

end;

Write(P1, ' ', P2)

end.

Ответить

Решаем задачи Абрамян на Паскале. Pointer9

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ