Pseint Hitskin_logo Hitskin.com

Esto es una previsualización de un tema de Hitskin.com
Instalar el estiloVolver a la ficha del tema.

Todos los foros
Pseint Registrate_22_zps9e54cac0
Todos los foros
Pseint Registrate_22_zps9e54cac0



 
ÍndiceNormasÚltimas imágenesRegistrarseConectarse

3 participantes

    Pseint

    avatar
    lauracobo
    Novato/a


    Mensajes : 2

    Pseint Empty Pseint

    Mensaje por lauracobo Mar Nov 14, 2017 1:02 pm

    Necesito ayuda para poder programar con Pseint un programa en el que introduzcas una serie de nombres y te los ordene alfabeticamente.

    Un saludo. Muchas gracias!
    avatar
    Corleone
    Veterano/a


    Mensajes : 626

    Pseint Empty Re: Pseint

    Mensaje por Corleone Mar Nov 14, 2017 1:07 pm

    Con Excel puedes ordenar alfabéticamente.
    avatar
    ivan2000vp
    Novato/a


    Mensajes : 4

    Pseint Empty Re: Pseint

    Mensaje por ivan2000vp Miér Nov 15, 2017 9:01 am

    Hola, se haria asi:
    Proceso ordena_lista
        Dimension lista[200]
        i<-2;
        Escribir "Introduzca las palabras para poder ordenarlas alfabeticamente";
        Leer nombre;
        lista[1]<-nombre
        Mientras nombre<>"" Hacer
            Escribir "Introduzca otra palabra";
            Leer nombre;
            Para j<-1 Hasta i-1 Con Paso 1 Hacer
                Si nombre<>lista[j] Entonces
                    lista[i]<-nombre;
                Sino
                    Escribir "Este nombre ya ha sido introducido";
                    j<-i-1;
                    i<-i-1;
                Fin Si
            Fin Para
            i<-i+1;
        Fin Mientras
        Para j<-1 Hasta i-1 Hacer
            pmenor<-j;
            Para k<-j+1 Hasta i-1 Hacer
                Si lista[pmenor]>lista[k] Entonces
                    pmenor<-k;
                FinSi
            FinPara
            aux<-lista[j];
            lista[j]<-lista[pmenor];
            lista[pmenor]<-aux;
        FinPara
        Para j<-1 Hasta i Hacer
            Escribir "",lista[j];
        Fin Para
       
    FinProceso
    Espero que te sirva.

    Contenido patrocinado


    Pseint Empty Re: Pseint

    Mensaje por Contenido patrocinado


      Fecha y hora actual: Vie Sep 20, 2024 9:25 am