Type
Cadena=^Caracters;
Caracters = ‘A’..’B’,
Var ApuntaCadena:Cadena;
Type
ApuntaElement=^element;
Element=Record
info:string[20];
apuntador:ApuntaElement;
end;
Var ApuntaDada : ApuntaElement
New(ApuntaCadena)
New(ApuntaDada)
Begin
New(apuntaDada);
primer:=apuntaDada;
repeat
aux:=apuntaDada;
New(apuntaDada);
aux^.apuntador:=apuntaDada;
read(continuar);
until continuar=‘N’;
apuntaDada^.apuntador:=NIL;
End;
Cap comentari:
Publica un comentari a l'entrada