elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ejercicios
| | | |-+  efectuar un algoritmo q reciba los 10 elementos de un arreglo entero
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: efectuar un algoritmo q reciba los 10 elementos de un arreglo entero  (Leído 2,741 veces)
Mr.MJ

Desconectado Desconectado

Mensajes: 2


Ver Perfil
efectuar un algoritmo q reciba los 10 elementos de un arreglo entero
« en: 24 Octubre 2012, 20:33 pm »

Buenas quisiera saber si me pueden ayudar deseo realizar un algoritmo q reiciba los 10 elementos de un arreglo entero y que elimine a los elementos duplicados.
Tengo hecho avanzado algo pero en este caso yo coloco la posicion del dato a borrar pero no me sale el comparar cada elemento les dejo una parte de lo que estaba avanzado espero puedan ayudarme :-/
var a:vector[10] numerico
    i,pos,num:numerico
inicio
cls()
//ingreso de elementos
num=10
desde i=1 hasta num
{
 imprimir("A[",i,"]=")
 leer(a)
}
imprimir("Ingrese la posicion de borrado")
leer(pos)
si(pos>0 and pos<=num)
{
   borrar(a,pos,num)
   //recorrido de comprobacion
   desde i=1 hasta num
   {imprimir("\nA[",i,"]=",a)}
sino
   imprimir("Posicion fuera de rango")
}
fin
subrutina borrar(ref x:vector

    * numerico;ref k,n:numerico)

var j:numerico
inicio
 desde j=k hasta n-1
 {x[j]=x[j+1]}
  n=n-1
fin


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines