/*Programa: ContarCaracteres

      Autores: Lidia y Pablo

      Descripción: Este programa cuenta en un texto introducido

      por el usuario el número de caracteres totales, el número de

      espacios en blanco, el número de dígitos numéricos y el

      número de vocales*/

 

Program ContarCaracteres

 

      Method Main()

 

            Var caracter As String

            Var caracteres As Integer    //contador de sílabas

            Var blancos As Integer       //contador de blancos

            Var digitos As Integer       //contador de digitos

            Var vocales As Integer       //contador de vocales

           

            ConsoleWriteLine("Escribe una frase y te daré la información siguiente:")

            ConsoleWriteLine("- el número de caracteres totales")

            ConsoleWriteLine("- el número de espacios en blanco")

            ConsoleWriteLine("- el número de dígitos numéricos")

            ConsoleWriteLine("- el número de vocales")

            ConsoleWriteLine("OJO: El último carácter debe ser un punto (.)")

            ConsoleWriteLine("")

           

            //si el carácter introducido es distinto de "." se

            //ejecuta While

            While caracter<>"."

                  caracter=ConsoleReadKey()

                  ConsoleWrite(caracter)

                  caracteres=caracteres+1

                  If caracter=" " Then

                        blancos=blancos+1

                  End If

                  If caracter="0" Or caracter="1" Or caracter="2" Or caracter="3" Or caracter="4" Or caracter="5" Or caracter="6" Or caracter="7" Or caracter="8" Or caracter="9" Then

                        digitos=digitos+1

                  End If

                  If caracter="a" Or caracter="e" Or caracter="i" Or caracter="o" Or caracter="u" Then

                        vocales=vocales+1

                  End If

            End While

           

            //imprimir el resultado

            ConsoleWriteLine("")

            ConsoleWriteLine("")

            ConsoleWriteLine("RESULTADOS")

            ConsoleWriteLine("número de caracteres totales = "+caracteres)

            ConsoleWriteLine("número de espacios en blancos = "+blancos)

            ConsoleWriteLine("número de dígitos numéricos = "+digitos)

            ConsoleWriteLine("número de vocales = "+vocales)

 

      End Method

 

End Program