{Mira esto te ayudara}
uses
crt;
type
punteroejemp = ^ejemplo;
ejemplo = record
datos : string;
sig : punteroejemp;
end;
var
tecla : char;
prime, anter, actu : punteroejemp;
procedure otroregistroentra;
procedure entramosdatos;
begin
with actu^ do
begin
write('Introduzca Datos : '); readln(datos);
end;
end;
begin
if prime = nil then
begin
new(actu);
entramosdatos;
prime := actu;
actu^.sig := nil;
end
else
begin
anter := actu;
new(actu);
entramosdatos;
anter^.sig := actu;
actu^.sig := nil;
end;
end;
procedure listardatos;
var
ver : punteroejemp;
begin
ver := prime;
while ver <> nil do
begin
with ver^ do
writeln(datos);
ver := ver^.sig;
end;
writeln;
writeln('Pulse [Enter]'); readln;
end;
procedure insertaprimero(entrada : string);
var
pt : punteroejemp;
begin
new(pt);
pt^.datos := entrada;
pt^.sig := prime;
prime := pt;
end;
procedure insertafinal(entrada : string);
var
pt : punteroejemp;
begin
new(pt);
pt^.datos := entrada;
actu^.sig := pt;
pt^.sig := nil;
actu := pt;
end;
procedure insertamosporordendebalor(entrada : string);
var
rr, pp, pt : punteroejemp;
nofin, salir : boolean;
begin
new(pt);
pt^.datos := entrada;
pp := prime;
rr := prime;
if pp^.datos > entrada then
begin
insertaprimero(entrada);
end
else
begin
salir := false;
nofin := false;
repeat
rr := pp;
pp := pp^.sig;
if pp^.datos > entrada then
begin
salir := true;
nofin := true;
end;
until (pp^.sig = nil) or (salir = true);
if (salir = false) and (nofin = false) then
begin
insertafinal(entrada);
end
else
begin
pt^.sig := pp;
rr^.sig := pt;
end;
end;
end;
procedure insertaregistro;
var
dat : string;
tt : char;
begin
clrscr;
writeln;
write('Insertamos Entre Datos : '); readln(dat);
writeln;
writeln(' Pulse 1 = Al Principio 2 = Al Final 3 = Ordenado ', ' 4 = Nada');
writeln(' Elija Opcion'); repeat
tt := readkey
until tt in[#49..#52];
case tt of
#49 : insertaprimero(dat);
#50 : insertafinal(dat);
#51 : insertamosporordendebalor(dat);
#52 :;
end;
end;
begin
prime := nil;
repeat
clrscr;
repeat
write('1 = entrar datos 2 = listar datos 3 = Insertar 4 = final'); tecla := readkey;
until tecla in[#49..#52];
if tecla = #49 then
begin
clrscr;
otroregistroentra;
end;
if tecla = #50 then
begin
clrscr;
listardatos;
end;
if tecla = #51 then
begin
clrscr;
insertaregistro;
end;
until tecla = #52;
end.
Crear cuenta