PDA

Visualizza la versione completa : [PASCAL] Lista ordinata semplice


skizzofrenico
23-01-2007, 21:40
Ciao,io dovrei fare un programma fatto da procedure riguardante una lista ordinata semplice;di questa lista dovrei fare :
linserimento;
cancellazione;
visita della lista;
qualcuno mi puo aiutare?
io ho inziato facendo la dichiarazione dei tipi

program gest_lista;
type
pnodi=^nodi;
nodi=record
dato:integer;
succ:Pnodi;
end;
var t:Pnodi;

(poi ho fatto la procedure per svuotare la lista)

procedure svuota_lista;
begin
T:=nil;
writeln('la lista vuota');
end;

ora devo fare la procedura dell'inserimento e la cancellazione....
grazie per l'eventuale aiuto...
a presto

skizzofrenico
24-01-2007, 22:13
ho fatto qualche modifica al codice di sopra ora giusto:

Program gest_lista;
TYPE Pnodo:^nodo;
nodo=record
dato,info:integer;
succ.prec,corr:Pnodo;
end;
var T,nuovo:Pnodo;
Procedure svuota_lista;
begin
T:=nil;
writeln('la lista vuota');
end;
Procedure visita(T);
var a:Pnodo;
begin
a:=T;
if t=nil then
writeln('la lista vuota')
else
REPEAT
write('',a^.info,'-');
a:=a^.succ;
UNTIL (a=nil);
end;

Loading