procedure imprimir recursivo.
Publicado por matias (7 intervenciones) el 25/11/2016 15:59:32
hola buenos dias.
como puedo pasar este procedimiento a forma recursiva?
solo llamo al procedimiento desde el programa principal.
muchas gracias! matias.
como puedo pasar este procedimiento a forma recursiva?
solo llamo al procedimiento desde el programa principal.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type
T_NODO_NOMINA = ^NODO_NOMINA;
NODO_NOMINA = RECORD dato : empleado; sig : T_NODO_NOMINAprocedure imprimirnomina (aux:T_NODO_NOMINA) ;
begin
repeat
begin
writeln (aux^.dato.apellido, aux^.dato.nombre, aux^.dato.dni);
aux:=aux^.sig;
end;
until aux=NIL;end
muchas gracias! matias.
Valora esta pregunta
0