Dinero por Click

lunes, 25 de agosto de 2008

Codigo para determinar vocales

Hola a todos, las disculpas del caso por los días de retraso para subir esta información, pero aquí estamos nuevamente.

A continuación le dejo el código fuente visto en clases

CLEAR
STORE
0 TO vocal,consonante,numero,simbolo,espacio && Declarando las variables para los contadores
STORE SPACE (50) TO texto && Asignado espacio a la variable texto

@ 6,5 SAY "Calcule un texto" FONT 'Elephant',18 && La función FONT asigna un tipo de fuente
@ 10,5 SAY "Digite un texto cualquiera" GET texto
READ

longitud = LEN(ALLTRIM(texto)) && Determinando la longitud total del texto

FOR x=1 TO longitud
captura = SUBSTR(ALLTRIM(texto),x,1) && Capturando letra por letra de la varible texto

*!* En este ciclo se determinan los espacios en blanco dentro de la varible texto
IF captura = " "
espacio = espacio + 1
ENDIF
*!* Fin del ciclo decisivo

IF captura="a" OR captura="A" OR captura="e" OR captura="E" OR captura="i" OR;
captura="I" OR captura="o" OR captura="O" OR captura="u" OR captura="U"
vocal = vocal + 1
ELSE

IF captura="1" OR captura="2" OR captura="3" OR captura="4" OR captura="5" OR;
captura="6" OR captura="7" OR captura="8" OR captura="9" OR captura="0"
numero = numero + 1
ELSE
IF
captura="º" OR captura="ª" OR captura="!" OR captura="@" OR captura="#" OR;
captura="$" OR captura="%" OR captura="&" OR captura="/" OR captura=")" OR;
captura="=" OR captura="(" OR captura="?" OR captura="¿" OR captura="¡" OR;
captura="," OR captura=";" OR captura=":" OR captura="." OR captura="_" OR;
captura="-" OR captura="+" OR captura="*"
simbolo = simbolo + 1
ELSE
consonante = consonante + 1
ENDIF
ENDIF
ENDIF
ENDFOR

consonante = consonante - espacio && Restando los espacio en blanco encontrados, a las consonantes

@ 14,5 SAY "El texto digitado contiene:" STYLE'Underline'
@ 16,5
SAY ALLTRIM(STR(vocal)) + ", vocal(es)" STYLE'Bold'
@ 17,5
SAY ALLTRIM(STR(consonante)) + ", consonante(s)" STYLE'Bold'
@ 18,5
SAY ALLTRIM(STR(numero)) + ", número(s)" STYLE'Bold'
@ 19,5
SAY ALLTRIM(STR(simbolo)) + ", símbolo(s)" STYLE'Bold'
@ 20,5
SAY ALLTRIM(STR(espacio)) + ", espacio(s)" STYLE'Bold'