Ayuda con c贸digo, Urgente
tonicX
13 de Junio del 2009
Por favor, necesito que me expliquen este c贸digo con algo as铆 como un pseudoc贸digo, ser铆a una gran ayuda.
k=5 : n=0
a$=space$(2^k+k)
call principal(1)
end
procedure principal(z)
inc n
if n=2^k
print a$
end if
if instr(left$(a$,z+k-1),mid$(a$,z+1,k-1)&"0")=0
mid$(a$,z+k)="0"
call principal(z+1)
end if
if instr(left$(a$,z+k-1),mid$(a$,z+1,k-1)&"1")=0
mid$(a$,z+k)="1"
call principal(z+1)
end if
dec n
end procedure
De antemano, Gracias.
Este es mi correo: [email protected]
k=5 : n=0
a$=space$(2^k+k)
call principal(1)
end
procedure principal(z)
inc n
if n=2^k
print a$
end if
if instr(left$(a$,z+k-1),mid$(a$,z+1,k-1)&"0")=0
mid$(a$,z+k)="0"
call principal(z+1)
end if
if instr(left$(a$,z+k-1),mid$(a$,z+1,k-1)&"1")=0
mid$(a$,z+k)="1"
call principal(z+1)
end if
dec n
end procedure
De antemano, Gracias.
Este es mi correo: [email protected]