Programación General > Pascal

 Desencriptar clave

(1/2) > >>

lolita23:
Bueno pues lo que tengo que hacer ahora es lo siguiente:
Me dan una palabra y lo que tengo que hacer es invertir cuando hay 2 vocales o mas seguidas.
Por ejemplo:
puerta-->peurta
Esto es lo que he hecho, si alguien me lo pudiera revisar....
MUCHAS GRACIAS.


--- Código: Pascal --- PROCEDURE encriptar (VAR palabra:string)VAR   pila:tPila;   cola:tCola;   Car1,Car2:Char;   I:Integer;BEGIN    CrearPila(pila);    CrearCola(cola);    FOR (I:=1 to length(palabra)) DO    Begin       IF (palabra[I] Not in ['a','e','i','o','u']) THEN           MeterEnCola(palabra[I],cola);       ELSE           Apilar(palabra[I],pila);   REPEAT        SacarDeCola(Car1,cola);        Desapilar(Car2,pila);   UNTIL (EsVacia(cola) OR EsVacia(Pila)=True)END;{fin}  

eternity:
por que con una pila... si es mucho mas fácil teniendo un string al que podes acceder a traves de índices? :unsure:

m0skit0:
A mí me parece perfecto que use una pila.

eternity:
yo no digo que no este perfecto... pero el poco codigo que puso no me dice lo suficiente para afirmar que sea lo mejor o lo peor el uso de una pila :o

lolita23:
Bueno, pero en caso de usar la pila esta bien como lo hice???

Navegación

[0] Índice de Mensajes

[#] Página Siguiente