ALORITMOS PARA ORDENAR ALFABETICAMENTE, CONTAR VOCALES Y BUSCAR UN NOMBRE

Algoritmo nombresalfabeticamente

        Dimension lista[100]

        cant<-0

    Escribir "La lista tiene un maximo de 100 alumnos"

    Escribir "Ingrese los nombres ( Enter para terminar):"

    Leer nombre

    Mientras nombre<>"" Hacer

        cant<-cant+1

        lista[cant]<-nombre

        Repetir

            Leer nombre

            repeticion<-Falso

            Para i<-1 Hasta cant Hacer

                Si nombre=lista[i] Entonces

                    repeticion<-Verdadero

                FinSi

            FinPara

        Hasta Que NO repeticion

    FinMientras

    Para i<-1 Hasta cant-1 Hacer

        men<-i

        Para j<-i+1 Hasta cant Hacer

            Si lista[j]<lista[men] Entonces

                men<-j

            FinSi

        FinPara

        aux<-lista[i]

        lista[i]<-lista[men]

        lista[men]<-aux

    FinPara    

    Escribir "La lista ordenada es:"

    Para i<-1 Hasta cant Hacer

        Escribir " El Numero " ,i ": De la lista de alumnos es ", lista[i]

    FinPara

FinAlgoritmo

Funcion cantvocales<-numvoca(frase)

Definir palabra Como Caracter

Definir n, i, c Como Entero

Escribir "ingrese una frase"

Leer palabra

n = longitud(palabra)

i = 1

c = 0

Mientras i<=n Hacer

        segun subcadena(palabra,i,i)

                "a" o "A":

                        c = c + 1

                "e" o "E":

                        c = c + 1

                "i" o "I":

                        c = c + 1

                "o" o "O":

                        c = c + 1

                "u" o "U":

                        c = C +1

        FinSegun

        i= i + 1

FinMientras

Escribir " la frase  ",  palabra , " tiene " ,   c   , " vocales"

Finfuncion

Algoritmo vocalesfrase

Escribir numvoca(frase)

FinAlgoritmo

Algoritmo nombresalfabeticamente

        Dimension lista[100]

        cant<-0

    Escribir "La lista tiene un maximo de 100 alumnos"

...