Todavia no logro entender mucho punteros.. entiendo el concepto.. pero no lo se pasar a la maquina. Hice un código que supuestamente hace esto:
Te pregunta una cantidad de veces que que queres ingresar X números, luego de ingresar estos X números te los muestra.
Este codigo puede que este muy mal. Estoy haciendo esto medio a ciegas.
Pues bien.. ^^ ahí esta el código.. voy a seguir intentando.. pero por ahora no sale nadaCódigo:MODULE eqf; FROM InOut IMPORT ReadCard,WriteCard, WriteString,WriteLn; TYPE Cardlista = POINTER TO Nodo; Nodo = RECORD elemen:CARDINAL; Resto:Cardlista; END; VAR l:Cardlista; a,i:CARDINAL; BEGIN l:=NIL; WriteString ("Ingrese un número"); WriteLn; ReadCard(a); WriteLn; FOR i:=1 TO a DO NEW(l); (* aca me da error el compilador.. no tengo muy claro lo que hace el comando NEW, creo que agrega un espacio al puntero *) ReadCard (l^.elemen); l^.Resto:=NIL; END; FOR i:= 1 TO a DO WriteCard (l^.elemen); END; END eqf.
Saludos,
Cypress
Marcadores