type och=^elem;
elem=record
data:char;
next:och
end;
var p1,p2,p3,p4,p5,p6,q1,q2,t1,t2:och;
im,i:char;
j,k:integer;
procedure v(var p:och;i:char);
begin new(p);
p^.data:=i;
p^.next:=nil;
end;
procedure show(p:och);
begin while p<>nil do
begin write(p^.data,' ');
p:=p^.next;
end;
writeln
end;
begin j:=1;
writeln('введите первую очередь, окончание ввода - "?"');
readln(i);
v(p1,i);
p2:=p1;
repeat readln(i);
if i<>'?' then
begin v(p2^.next,i);
p2:=p2^.next;
j:=j+1;
end
until i='?';
k:=1;
writeln('введите вторую очередь,',j,' элементов');
readln(i);
v(p3,i);
p4:=p3;
for k:=2 to j do
begin readln(i);
v(p4^.next,i);
p4:=p4^.next;
end;
writeln('первая очередь:');
show(p1);
writeln('вторая очередь:');
show(p3);
p5:=p1;
p6:=p4;
q1:=p1;
q2:=p3;
while q1<>nil do
begin t1:=q1^.next;
t2:=q2^.next;
q1^.next:=q2;
q2^.next:=t1;
q1:=t1;
q2:=t2
end;
writeln('итоговая очередь:');
show(p5)
end.
Очереди, помогите переделать задачу |