Pascal/Turbo Pascal - procedure imprimir recursivo.

   
Vista:

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.

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_NOMINA
 
 
procedure 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder