Текст програми:
Program lab13; uses crt;
type zv=^pointer; pointer=record elem:char; next:zv; end;
procedure vudal(lanka:zv); var q:zv; begin q:=lanka^.next; lanka^.next:=lanka^.next^.next; dispose(q) end;
var zag,vkaz:zv; s:char; BEGIN clrscr; new(zag); zag^.next:=nil; vkaz:=zag; writeln('Vvedit ryad');
repeat read(s); new(vkaz^.next); vkaz:=vkaz^.next; vkaz^.elem:=s; vkaz^.next:=zag; until s='.';
writeln('Spysok bez zmin'); vkaz:=zag^.next; while vkaz^.next<>zag do begin s:=vkaz^.elem; write(s); vkaz:=vkaz^.next; end; writeln;
writeln('Vuvid modufikovanogo spusku'); vkaz:=zag; while vkaz^.next^.next<>zag do begin if (vkaz^.next^.elem='P')and(vkaz^.next^.next^.elem='A')then vudal(vkaz) else vkaz:=vkaz^.next; end;
vkaz:=zag^.next; while vkaz^.next<>zag do begin s:=vkaz^.elem; write(s); vkaz:=vkaz^.next; end; writeln; readkey end.
| 