SoloCodigo

No se en que parte tenés el problema, si no lográs que cuentes la vocales (no te funciona el algoritmo) o es otra cosa.
Si es el algoritmo esto funciona:

Código: Text

1. LOCAL cadena, cantidadVocales, ctemp
2. && THISFORM.text es el campo de texto que tiene la cadena a la que se le quiere contar las vocales
3. cadena = ALLTRIM(THISFORM.text.Value)
4. cantidadVocales = 0
5.  
6. FOR i = 1 TO LEN(cadena) STEP 1
7.   ctemp = UPPER(SUBSTRC(cadena,i,1))
8.   IF ctemp=='A' OR  ctemp=='E' OR ctemp=='I' OR ctemp=='O' OR ctemp=='U' THEN
9.     cantidadVocales = cantidadVocales + 1
10.   ENDIF
11. ENDFOR
12.  
13. MESSAGEBOX("Cantidad de vocales: "+ALLTRIM(STR(cantidadVocales)))
14.  

Por supuesto, el messagebox es sólo para ver el resultado y seguramente no lo necesites. El resultado queda en la variable "cantidadVocales"

muchas gracias por la ayuda amigo me ha sido de mucha utilidad. thx

hola, gracias de antemano a la persona que me pueda ayudar con estos algoritmos...tengo la mente en blanco y no he podido hacerlos.

Los algoritmos deben imprimir imprimir estas series de numeros:

Serie 1

-1 2 -3 4 -5 6 -7 8 -9 10 -11 12 -13 14 -15

Serie 2

1 2 3 4 8 5 6 7 8 16 9 10 11 12 24

Serie 3

1 2 3 4 5 4 3 2 1 6 7 8 9 10 9 8 7 6


Gracias por la ayuda