metodo burbuja
Publicado por veo (3 intervenciones) el 13/02/2007 17:53:41
neceito que alguien me ayude a saber en que instruccion le fallo para el funcionamiento de este ordeanmiento aca se los paso. espero que alguien me ayude saludos
cls
n=0
aux=0
puntero=1
i=0
k=0
@ 10,5 say "Ingrese el tama¤o del vector"get n picture "99" valid n>0
read
private v[n]
for i= 1 to n
v[i]=0
@ 15,5 say "Ingrese el valor de c/elem del vector" get v[i]
read
next
for i = 1 to n-1
aux= v[i]
for k=1+i to n
if v[k] < aux
aux=v[k]
puntero=k
endif
next
v[puntero]=v[i]
v[i]=aux
next
for i=1 to n
@ 15+i, 5 say v[i]
next
cls
n=0
aux=0
puntero=1
i=0
k=0
@ 10,5 say "Ingrese el tama¤o del vector"get n picture "99" valid n>0
read
private v[n]
for i= 1 to n
v[i]=0
@ 15,5 say "Ingrese el valor de c/elem del vector" get v[i]
read
next
for i = 1 to n-1
aux= v[i]
for k=1+i to n
if v[k] < aux
aux=v[k]
puntero=k
endif
next
v[puntero]=v[i]
v[i]=aux
next
for i=1 to n
@ 15+i, 5 say v[i]
next
Valora esta pregunta


0