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

Pointer28. Даны указатели $$P_1$$ и $$P_2$$ на начало и конец очереди. Используя тип TQueue (см. задание Pointer26), описать функцию QueueIsEmpty(Q) логического типа, которая возвращает True, если очередь $$Q$$ пуста, и False в противном случае ($$Q$$ — входной параметр типа TQueue). Используя эту функцию для проверки состояния очереди, а также функцию Dequeue из задания Pointer27, извлечь из исходной очереди пять начальных элементов (или все содержащиеся в ней элементы, если их менее пяти) и вывести их значения. Вывести также значение функции QueueIsEmpty для полученной очереди и новые адреса ее начала и конца.

Решение:

program Pointer28;
type
  PNode=^TNode;
  TNode=record
    Data: Integer;
    Next: PNode;
//    Prev: PNode;
  end;

 TQueue=record
  Head,Tail:PNode;
 end;

procedure CreateQueue(var P1,P2:PNode);
var
 pt1,pt2:PNode;
 i,N:integer;
begin
 Write('NumEl:');
 Readln(N);
 new(p1);
 Write('num: ');
 Readln(P1^.Data);
 pt2:=p1;

 for i:=1 to N-1 do
  begin
   new(pt1);
   Write('num: ');
   Readln(pt1^.Data);
   pt2.Next:=pt1;
   pt2:=pt2.Next;
  end;
 pt2.Next:=nil;
 p2:=pt2;
end;

function Dequeue(var Q:TQueue):integer;
var
 head: PNode;
begin
 if Q.Head<>nil then
  begin
   if Q.Head=Q.Tail then
    begin
     Result:=Q.Head^.Data;
     Q.Head:=nil;
     Q.Tail:=nil;
    end
   else
    begin
     Result:=Q.Head^.Data;
     head:=Q.Head^.Next;
     Dispose(Q.Head);
     Q.Head:=head;
    end;
  end
  else Result:=0;
end;

Function QueueIsEmpty(Q:TQueue):boolean;
begin
 if Q.Head = nil then QueueIsEmpty:=True
 else QueueIsEmpty:=False;
end;


var
 Q:TQueue;
 i:integer;
 a:^Word;
begin
 CreateQueue(Q.Head,Q.Tail);
 For i:=1 to 5 do
  if not(QueueIsEmpty(Q)) then Writeln(Dequeue(Q));

 Writeln('Empty: ',QueueIsEmpty(Q));

 if Q.Head=nil then Writeln('Q.Head: nil')
 else
  begin
   a:=Addr(Q.Head);
   Writeln('Q.Head: ',a^);
  end;

 if Q.Tail=nil then Writeln('Q.Tail: nil')
 else
  begin
   a:=Addr(Q.Tail);
   Writeln('Q.Tail: ',a^);
  end;
end.

program Pointer28;

type

PNode=^TNode;

TNode=record

Data: Integer;

Next: PNode;

// Prev: PNode;

end;

TQueue=record

Head,Tail:PNode;

end;

procedure CreateQueue(var P1,P2:PNode);

var

pt1,pt2:PNode;

i,N:integer;

begin

Write('NumEl:');

Readln(N);

new(p1);

Write('num: ');

Readln(P1^.Data);

pt2:=p1;

for i:=1 to N-1 do

begin

new(pt1);

Write('num: ');

Readln(pt1^.Data);

pt2.Next:=pt1;

pt2:=pt2.Next;

end;

pt2.Next:=nil;

p2:=pt2;

end;

function Dequeue(var Q:TQueue):integer;

var

head: PNode;

begin

if Q.Head<>nil then

begin

if Q.Head=Q.Tail then

begin

Result:=Q.Head^.Data;

Q.Head:=nil;

Q.Tail:=nil;

end

else

begin

Result:=Q.Head^.Data;

head:=Q.Head^.Next;

Dispose(Q.Head);

Q.Head:=head;

end;

end

else Result:=0;

end;

Function QueueIsEmpty(Q:TQueue):boolean;

begin

if Q.Head = nil then QueueIsEmpty:=True

else QueueIsEmpty:=False;

end;

var

Q:TQueue;

i:integer;

a:^Word;

begin

CreateQueue(Q.Head,Q.Tail);

For i:=1 to 5 do

if not(QueueIsEmpty(Q)) then Writeln(Dequeue(Q));

Writeln('Empty: ',QueueIsEmpty(Q));

if Q.Head=nil then Writeln('Q.Head: nil')

else

begin

a:=Addr(Q.Head);

Writeln('Q.Head: ',a^);

end;

if Q.Tail=nil then Writeln('Q.Tail: nil')

else

begin

a:=Addr(Q.Tail);

Writeln('Q.Tail: ',a^);

end;

end.

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

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

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

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