hola
saludos
la presente es para pedir una ayuda para resolver un problema que anteriormente habia anunciado en el club.
el problema consiste en diseñar e implementar una clase que permita crear una lista simple ordenada ascendentemente; y cada nodo debe almacenar una letra del alfabeto.
unit Uplista;
interface
type
TPclase=^TClistletras;
TClistletras=OBJECT
letras:string;
sig:TPclase;
procedure putletras(_letras:string);
procedure putsig(_sig:tpclase);
function getletras:string;
function getsig:tpclase;
constructor init;
destructor liberar;
procedure insertar(otronodo:tpclase);
end;
var
primernodo,anteriornodo,nuevonodo:tpclase;
implementation
uses Unit1;
{ TClistnum }
function TClistletras.getletras: string;
begin
Result:=letras;
end;
function TClistletras.getsig: tpclase;
begin
Result:=sig;
end;
constructor TClistletras.init;
begin
New(nuevonodo);
end;
procedure TClistletras.insertar(otronodo: tpclase);
begin
IF primernodo = NIL THEN
begin
primernodo:= otronodo;
anteriornodo:= otronodo;
anteriornodo^.sig:= nil;
End
else
Begin
anteriornodo^.sig:=otronodo;
anteriornodo:= otronodo;
anteriornodo^.sig:= nil;
End;
while primernodo <> nil do
if primernodo ^.letras > nuevonodo ^.letras then
begin
nuevonodo ^.putsig(primernodo);
primernodo:=nuevonodo;
end;
end;
destructor TClistletras.liberar;
begin
dispose(nuevonodo);
end;
procedure TClistletras.putletras(_letras: string);
begin
letras:= _letras;
end;
procedure TClistletras.putsig(_sig: tpclase);
begin
sig:= _sig;
end;
end.