Saltar al contenido
EjemplosEnglishEspacio →

Contar vocales

Cuenta las vocales, los espacios y los demás caracteres de un texto.

Nivel
Intermedio
Tema:
Texto
Conceptos:
Entrada y salida
Texto
Segun
Para
Abrir en Codoritmo

Ejecuta, modifica y depura este ejemplo en el navegador.

Lo que aprenderás

Un Para recorre el texto letra por letra con Subcadena. Segun acepta varios valores en un mismo caso, como "a", "e", "i", "o", "u".

Código

count-vowels.psc · 23 líneas
Algoritmo ContarVocales    Definir texto, letra Como Caracter    Definir i, vocales, espacios, otros Como Entero    Escribir "Escribe un texto:"    Leer texto    vocales <- 0    espacios <- 0    otros <- 0    Para i <- 1 Hasta Longitud(texto) Hacer        letra <- Minusculas(Subcadena(texto, i, i))        Segun letra Hacer            "a", "e", "i", "o", "u":                vocales <- vocales + 1            " ":                espacios <- espacios + 1            De Otro Modo:                otros <- otros + 1        FinSegun    FinPara    Escribir "Vocales: ", vocales    Escribir "Espacios: ", espacios    Escribir "Otros caracteres: ", otrosFinAlgoritmo

Diagrama de flujo

Cada bloque del diagrama corresponde a una instrucción del código.

Algoritmo ContarVocales"a", "e", "i", "o", "u"" "De Otro ModoAlgoritmo ContarVocalesAlgoritmo ContarVocalesDefinir texto, letra Como CaracterDefinir texto, letra ComoCaracterDefinir i, vocales, espacios, otros Como EnteroDefinir i, vocales, espacios,otros Como EnteroEscribir "Escribe un texto:"Escribir "Escribe un texto:"Leer textoLeer textovocales <- 0vocales <- 0espacios <- 0espacios <- 0otros <- 0otros <- 0Para i <- 1 Hasta Longitud(texto) HacerPara i <- 1 HastaLongitud(texto)letra <- Minusculas(Subcadena(texto, i, i))letra <-Minusculas(Subcadena(texto, i,i))Segun letra Hacerletravocales <- vocales + 1vocales <- vocales + 1espacios <- espacios + 1espacios <- espacios + 1otros <- otros + 1otros <- otros + 1Escribir "Vocales: ", vocalesEscribir "Vocales: ", vocalesEscribir "Espacios: ", espaciosEscribir "Espacios: ",espaciosEscribir "Otros caracteres: ", otrosEscribir "Otros caracteres: ",otrosFinAlgoritmoFinAlgoritmo

Ejemplo de ejecución

Esto muestra el programa al ejecutarlo. Las respuestas escritas por el usuario aparecen resaltadas.

Escribe un texto:Respuesta del usuario: Programar es pensarVocales: 6Espacios: 2Otros caracteres: 11

Desafío

Cuenta también las vocales con tilde (á, é, í, ó, ú) como vocales.

Ver pista

Agrega esas letras a la lista del caso de las vocales.

Abrir en Codoritmo
  • Cifrado César

    Cifra un mensaje corriendo cada letra del abecedario.

    Avanzado
  • Formato de datos

    Ordena mayúsculas y minúsculas, y convierte entre texto y número.

    Intermedio
  • Números romanos

    Convierte un número entre 1 y 3999 a números romanos.

    Avanzado