ABCdatos

Publicado: **Mié May 12, 2004 3:34 am**

BUENAS ,,,

NESECITO UNOS PROGRAMAS, ES UNA TAREA Y SI NO LA LLEVO PIERDO
PORFAVOR AYUDENME.

programas 1. que permita contar cuantas vocales tiene la frase

2. que invierta la frase. ejemplo: de "ABC" , lo transforme a "CBA"

3. que permita contar cuantas vocales abiertas tiene una frase

4. que elimine los espacios pero sin usar trim, ltrim y rtrim

5. Que mustre en un textbox las vocales de una frase y entro textbox me muestre las consonantes

NOTA los temas que estoy dando en el colegio son FOR-NEXT RIGHT-LEFT-MID.

ES AGRADESCO SU AYUDA

Publicado: **Jue May 13, 2004 6:38 pm**

Hola

Te pongo solución aproximada del tirón, si no funciona mira que la sintaxis a lo mejor no es del todo correcta

1

Código: Seleccionar todo

for n = 1 to len(frase)
 letra=mid(frase,1,1)
 if letra="a" or letra ="e" or letra = "i" or letra ="o" or letra = "u" then
  vocales=voceles+1
 endif
next

2

Lo tienes en http://www.jm-web.tk en la parte de programación

3

¿Vocales abiertas? ¿Eso que es? Supongo que te refieres a la a, la e y la u

Código: Seleccionar todo

for n = 1 to len(frase)
 letra=mid(frase,1,1)
 if letra="a" or letra ="e" or letra = "u" then
  vocales=voceles+1
 endif
next

4

Código: Seleccionar todo

for n = 1 to len(frase)
 letra=mid(frase,1,1)
 if letra<>" " then
  nuevafrase = nuevafrase + letra
 endif
next
frase = nuevafrase

5

Código: Seleccionar todo

for n = 1 to len(frase)
 letra=mid(frase,1,1)
 if letra="a" or letra ="e" or letra = "i" or letra ="o" or letra = "u" then
  txtvocales.text =txtvocales.text + letra
 else
  txtconsonantes.text =txtconsonantes.text + letra
 endif
next

Espero que te de una idea de como solucionarlos
Tendrás que arreglar varias cosas como que reconozca mayúsculas y minúsculas y acentos

Saludos

ABCdatos

Necesito Ayuda Para Crear Un Programa, PLEASE LO NECESITO.

Necesito Ayuda Para Crear Un Programa, PLEASE LO NECESITO.