1.
.
- , .
, , . , . , :
Type
< >=^<>;
<>=record
<__>:<_._>;
<__1>,<__2>:<_>;
d;
, , (inf) , sled, rd:
type kolco=^k;
k=record
inf:char;
sled, pred:kolco;
end;
head .
:
new (head);
head^.sled:=head;
head^.pred:=head;
:
young^.pred:=old;
young^.sled:=old^.sled;
old^.sled^.pred:=young;
old^.sled:=young;
:
young^.sled:=old;
young^.pred =old^.pred;
old^.pred ^.sled:=young;
old^.pred:=young.
1. :
2. : new(p);
3. :
p^.inf:=88;
4. : 4.1. p^.pred:=ukaz^. pred (p^.pred , ukaz^.pred);
4.2. p^.sled:=ukaz (p^.sled , ukaz);
4.3. ukaz^.pred^.sled:=p (ukaz^.pred^.sled sled , / , );
4.4. ukaz^.pred:=p (ukaz^.pred , );
- :
2. new(p);
3. :
p^.inf:=88;
4. : 4.1. p^.sled:=ukaz^. sled (p^.sled , ukaz^.sled);
4.2. p^.pred:=ukaz (p^.pred , ukaz);
4.3. ukaz^.sled^.pred:=p (ukaz^.sled^.pred pred , / , );
ukaz^.sled:=p ( ukaz^.sled , );
( Ukaz)
Ukaz^.pred^.sled:=Ukaz^.sled;
|
|
Ukaz^.sled^.pred:=Ukaz^.pred;
dispose (Ukaz);
.
: .
Res, i1.
function poisk (nead:ukaz; i1:integer; var p:ukaz):booleam;
var u:ukaz;
begin
poisk:=false;
res:=nil;
u:=nead;
while (u<>nil) and (p=nil) do
begin
if u^.inf=i1 then begin
poisk:=true;
p:=u
end;
u:=u^.next;
end
end;